<% set rs=server.CreateObject("adodb.recordset") sql="select * from FriendLink where State=-1 and showon=1 order by id desc" rs.open sql,conn,1,1 if not rs.bof then Response.Write ("document.write("""");") For i = 1 to 3 Response.Write ("document.write("""");") for num=1 to 6 Response.Write ("document.write("""");") rs.movenext if rs.eof then exit for next Response.Write ("document.write("""");") if rs.EOF then Exit For end if next end if rs.close set rs=nothing %>

"&rs("LinkName")&"