Consulta = RSTConsulta.GetRows
Response.Write "<table width='100%' border='1' bordercolor='#f0f0f0' cellspacing='4' cellpadding='0' >"
'Los encabezados de la tabla...
Response.Write "<tr align='center'>"
For Each Campo in RSTConsulta.Fields
Response.Write "<td bgcolor='#000099'><div style='font-size:11px; color:#FFFFFF'><b> " & Campo.Name & " </b></div></span></td>"
Next
Response.Write "</tr>"
o=1
'Ahora los datos...
for I = 0 to UBound(Consulta,2)
'Abrimos una nueva fila
if o=1 then
co="#f0f0f0"
o=0
else
co="#ffffff"
o=1
end if
%>
<TR>
<%
'Desde el primero hasta el último "campo"...
for J = 0 to Ubound(Consulta, 1)
'Imprimo una celda para cada campo
Response.Write "<TD bgcolor='"&co&"'> " & Consulta(J, I) & " </TD>"
next
Response.Write "</TR>"
next
Response.Write "</TABLE>"