VBScriptのRecordSetから列名を抽出する

For Eachで回せばRecordsetのポインタを意識しなくて済むので良さそうです。

For Each Field In rsObj.Fields
    Response.Write "<th>"
    Response.Write  Field.name
    Response.Write  "</th>"
Next 

列名

Field.name

値

Field.value