Hola
Prueba así
Código asp:
Ver original' conexión bd
' consulta
set rs = oConn.Execute(SQL)
registros = rs.getrows()
rs.Close
Set rs = Nothing
%>
<table>
<tr>
<%
For i = 0 to UBound(registros,2)
If i Mod 5 = 0 Then
Response.Write "</tr><tr>"
End If
Response.Write "<td>" & registros(campo,i) & "</td>"
Next 'i
%>
</tr>
</table>
Suerte