% set rs = server.createobject("adodb.recordset") sql = "Select * from friend order by id DESC" rs.Open sql,conn,1 i=1 do while not rs.eof %> td align="left" height="50"> a href="%=rs("url")%>" target="_blank"> img src="%=rs("logo")%>" class="framed" width="88" height="31" alt="%=rs("name")%>" />/a> /td> % if i mod 5 = 0 then Response.Write("/tr>tr>") end if i=i+1 rs.movenext Loop rs.close set rs=nothing %>
