1.
for i=0 to rs.fields.count-1
response.write rs.fields(i).name
next
2.
set rstschema=conn.openschema(20)
Do while not rstSchema.EOF
Response.Write "Table name:"& rstSchema(2)&"<br/>"
Response.Write"Table type:"&rstSchema(3)&"<br/><br/>"
rstSchema.MoveNext
Loop