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    
%>          
            " target="_blank">    
            " class="framed" width="88" height="31" alt="<%=rs("name")%>" />    
            
<%    
if i mod 5 = 0 then    
Response.Write("")    
end if    
i=i+1    
rs.movenext    
Loop   
rs.close    
set rs=nothing    
%>