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