A ver, este es un pequeño ejemplo,para lo que quieres a lo mejor tienes que crear tablas dentro de las columnas, pero haz tus pruebas, la lógica es así
Código:
<%
Set rsTabla = server.CreateObject("ADODB.Recordset")
strSQL = "SELECT TOP 10 name FROM product"
rsTabla.Open strSQL, ObjConn, 3, 3
x = 0
%>
<table border=1 cellpadding=2 cellspacing=0 align=center>
<tr>
<%
While not rsTabla.EOF
x = x + 1
If x = 1 Then
%>
<td>
<%
End If
Response.Write rsTabla("name") & "<br>"
If x = 5 Then
%>
</td>
<%
x = 0
End If
rsTabla.MoveNext
Wend
rsTabla.Close
Set rsTabla = Nothing
%>
</tr>
</table>
Salu2,