| |
|
|
|
|
<%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%>
|
