Suponiendo que tu recordset se llame "Rs", este fragmento debería hacer lo que necesitás sin problemas:
Código:
<%
' Acá va la conexión y apertura del recordset como habitualmente
miTabla = Rs.GetRows
Response.Write "<table>"
'Creamos la primer línea con los encabezados
Response.Write "<tr>"
For Each Campo in RS.Fields
Response.Write "<td align=""center""><b>" & Campo.Name & "</b></td>"
Next
Response.Write "</tr>" ' fin de los encabezados
'Ahora iteramos el array creado con el GetRows...
'para mostrar los registros:
for Variable_I = 0 to UBound(miTabla,2)
Response.Write "<TR>"
for Variable_J = 0 to Ubound(miTabla, 1)
Response.Write "<td>" & miTabla(Variable_J, Variable_I) & "</td>"
next
Response.Write "</tr>"
next
Response.Write "</table>"
%>