Dim oConn, rs, SQL, miTabla
Dim I, J 'Para recorrer el vector
SQL="SELECT * FROM Tabla"
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "..."
set rs = oConn.Execute(SQL)
miTabla = rs.GetRows
rs.Close
set rs = nothing
oConn.Close
set oConn = nothing
Response.Write("<TABLE>")
'Recorremos el vector
'Desde el primero hasta el último "registro"...
for I = 0 to UBound(miTabla,2)
'Abrimos una nueva fila
Response.Write("<TR>")
'Desde el primero hasta el último "campo"...
for J = 0 to Ubound(miTabla, 1)
'Imprimo una celda para cada campo
Response.Write("<TD>" & miTabla(J, I) & "</TD>")
next
Response.Write("</TR>")
next
Response.Write("</TABLE>")
Fuente: ASP facil.com