<%set rs=server.createobject("adodb.recordset") sql="select top 5 * from ptd_shop where shop_key=1 and shop_key1=1 and shop_key2=1 and shop_key3=1 order by shop_id desc" rs.open sql,conn,1,1 do while not rs.eof set rs33=server.createobject("adodb.recordset") sql33="select * from ptd_shopsort where ptd_id="&rs("ptd_shopsort") rs33.open sql33,conn,1,1 rjsort=rs33("ptd_shopsort") rjlink="shop_vlist.asp?shopsort="&rs33("ptd_id")&"" rs33.close title=trim(rs("txtCompanyName")) txtAgio=rs("txtAgio") if cityHTML=1 then webget="Html/shop/"&year(rs("add_data"))&month(rs("add_data"))&"/"&replace(replace(replace(rs("add_data"),"-",""),":","")," ","")&".html" else webget="shop_view.asp?id="&rs("shop_id")&"" end if %> <%rs.movenext loop rs.close%>
 
   
  摄像师 初元祯     摄影师/摄像师 李浩  
     
朝鲜族首席摄像师 朴成奎 朝鲜族摄影师 白喆
 
  摄影师 卢强 摄像师 董光辉
   
  摄像师 一凡     摄影师 边克峰  
     
   
   
 
   
     
 
   
<%set rs=server.createobject("adodb.recordset") sql="select top 5 * from ptd_shop where shop_key=1 and shop_key1=1 and shop_key2=1 and shop_key3=1 order by shop_id desc" rs.open sql,conn,1,1 do while not rs.eof set rs33=server.createobject("adodb.recordset") sql33="select * from ptd_shopsort where ptd_id="&rs("ptd_shopsort") rs33.open sql33,conn,1,1 rjsort=rs33("ptd_shopsort") rjlink="shop_vlist.asp?shopsort="&rs33("ptd_id")&"" rs33.close title=trim(rs("txtCompanyName")) txtAgio=rs("txtAgio") if cityHTML=1 then webget="Html/shop/"&year(rs("add_data"))&month(rs("add_data"))&"/"&replace(replace(replace(rs("add_data"),"-",""),":","")," ","")&".html" else webget="shop_view.asp?id="&rs("shop_id")&"" end if %> <%rs.movenext loop rs.close%>
 
<%set rs=Server.CreateObject("Adodb.Recordset") sql="select * from PTD_links where PTD_key=0 and PTD_key1=1 order by PTD_id desc" rs.open sql,conn,1,1 if not rs.eof then n=0 do while not rs.eof n=n+1%> <%if n mod 7=0 then response.write "" rs.movenext loop end if rs.close set rs=nothing%> <%set rs=Server.CreateObject("Adodb.Recordset") sql="select * from PTD_links where PTD_key=1 and PTD_key1=1 order by PTD_id desc" rs.open sql,conn,1,1 if not rs.eof then n=0 do while not rs.eof n=n+1%> <%if n mod 7=0 then response.write "" rs.movenext loop end if rs.close set rs=nothing%>
 
本站部分信息由企业自行提供,该企业负责信息内容的真实性、准确性和合法性。丹东婚庆礼仪网 对此不承担任何保证责任
关于我们 | 联系我们 | 广告合作 | 付款方式 | 使用帮助 丹东婚庆礼仪网 版权所有
Copyright 2006 All Rights Reserved.
mailto:blakecwm@yahoo.com.cn 客服热线:13898528618
网站浏览:豫ICP07000526
主办单位: 正大婚庆礼仪服务中心