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