Te paso uno que tengo hecho.
Una vez abierto el recordset ...
Código:
response.write("<table border=1 bgcolor=#ffffff>")
response.write("<tr bgcolor=#006699>")
dim i
for i = 0 to oRS.Fields.Count - 1
response.write("<td><font color=white size=2>")
response.write(oRS.Fields(i).Name)
next
response.write("<tr bgcolor=#ffffff>")
while not (oRS.EOF)
response.write("<tr><td><font size=2>")
for i = 0 to oRS.Fields.Count - 1
response.write(oRS.Fields(i).Value)
response.write("<td><font size=2>")
next
oRS.MoveNext
wend
response.write("</table>")