Gracias SJAM7, ya lo resolví esta mañana haciendo memoria. Lo cuelgo por si sirve a alguien:
Set rsficha = cn.Execute("SELECT * FROM tabla WHERE Id = " & Id& "")
'iniciamos la tabla donde mostraremos el resultado
Response.Write "<TABLE WIDTH='98%' BORDER='1' cellpadding='0' cellspacing='1' style='border-collapse: collapse'>" & vbCrLf
If Not rsficha.EOF then
For I = 0 To rsficha.Fields.Count - 1
Response.Write vbTab & vbTab & "<TR><TD BGCOLOR='#FFCC00'><B><FONT FACE='Verdana' SIZE='1'>"
Response.Write rsficha.Fields(I).Name
Response.Write "<B></TD><td>"&rsficha.Fields(I)&"</td></TR>" & vbCrLf
Next 'I
end if
Response.Write "</TABLE>"
rsficha.Close
Set rsficha = Nothing