 |
爱心地列表 |
|
|
<%set rs=server.CreateObject("adodb.recordset")
sql = "select id , parentid , clubname from [club] where sort = 2 and parentid <> 0 order by id desc"
rs.open sql,conn,1,1
do while not rs.eof %>
<%
set rs2 = server.CreateObject("adodb.recordset")
sql2 = "select top 2 * from [lovemember] where clubid = "&rs("id")&" order by id desc "
rs2.open sql2,conn,1,1
do while not rs2.eof
if rs2("pic") <> "" or rs2("pic") <> null then
pic ="http://www.cnwh.com/news/"&rs2("pic")
else
pic = "images/no.jpg"
end if
%>
|
<%rs2.movenext
loop
rs2.close %>
|
|
|
<% rs.movenext
loop
rs.close%>
|
|
|
