alguien dio esta respuesta anteriormente no recuerdo quien.
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
counter=0
Do While Not Rs.EOF
%>
<td><%=Rs("NombreCampo")%></td>
<%
counter=counter+1
If counter Mod 3=0 Then Response.Write "</tr><tr>"
Rs.MoveNext
Loop
%>
</tr>
</table>
En el código anterior se da por entendido que ya se tienen la conexión y el recordset creado.
Si queremos mostrar de 2 en 2, de 4 en 4, 5 en 5, etc. Solo debemos cambiar la siguiente línea...
If counter Mod 3=0 Then
En esta línea cambiamos el 3 por el numero de registros que deseamos mostrar en cada fila.
espero te sirva.