asp下循环一行多少个

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