asp下循环一行多少个

这个东西经常要用到好东西 ,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" /> </td> 
<% 
if i mod 5 = 0 then 
Response.Write("</tr><tr>") 
end if 
i=i+1 
rs.movenext 
Loop 
rs.close 
set rs=nothing 
%>