<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
counter=0
Do While Not Rs.EOF
%>
<td><%=i%></td>
<%
counter=counter+1
If counter MOd 3=0 Then Response.Write "</tr><tr>"
Loop
%>
</tr>
</table>
Cada vez que counter llega a algun numero que al ser dividido entre 3 da 0 hace una nueva fila. Esto sucede cada 3 registros por lo tanto crea nuevas filas mostrando 3 celdas por cada fila.
Saludos
<center>
<p><a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/urjose.gif></a></p>
</center>