El número de campos lo obtienes mediante la coleccion fields, al igual que el nombre.
Por ejemplo:
<%
Set rs = <un objeto recordset>
Response.Write "<table><tr>"
For I = 0 To rs.Fields.Count - 1
Response.Write "<td><b>" & rs(I).Name & "</b></td>"
Next
Do While Not rs.EOF
Response.Write "<tr>"
For I = 0 To rs.Fields.Count - 1
Response.Write "<td>" & rs(I)
Next
rs.MoveNext
Loop
Response.Write "</table>"
Set rs = Nothing
%>
Saludos