Fijate si esto te sirve:
Código:
miTabla = RS.GetRows
Response.Write "<table border=""1"">"
'Los encabezados de la tabla...
Response.Write "<tr>"
For Each Campo in RS.Fields
Response.Write "<td align=""center""><b>" & Campo.Name & "</b></td>"
Next
Response.Write "</tr>"
'Ahora los datos...
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>"
No exporta nada a excel, pero te arma una tabla sin importar que campos haya en el SELECT