Man kan bruge openschema og få tabel og kolonne navne ud.
Set rs = Conn.OpenSchema(4)
Do until rs.eof
If Lcase(rs("TABLE_NAME")) = table Then
If First = True Then
Response.Write ("<TABLE>")
Response.Write("<TR>")
Response.Write("<TD>Feltnavn</TD>")
Response.Write("<TD>Datatype</TD>")
Response.Write("<TD>Nulværdi</TD>")
Response.Write("<TD>Standardværdi</TD>")
Response.Write("</TR>")
First = False
End if
Response.Write("<TR>")
Response.Write("<TD>" & rs("COLUMN_NAME") & "</TD>")
Response.Write("<TD>" & rs("DATA_TYPE") & " , " & rs("CHARACTER_MAXIMUM_LENGTH") & " , " & rs("NUMERIC_PRECISION") & " , " & rs("NUMERIC_SCALE") & "</TD>")
If rs("IS_NULLABLE") = True Then
Response.Write("<TD>Ja</TD>")
Else
Response.Write("<TD>Nej</TD>")
End if
Response.Write("<TD>" & rs("COLUMN_DEFAULT") & "</TD>")
Response.Write("</TR>")
End if
rs.movenext
Loop
Se evt mere her:
http://www.devguru.com/Technologies/ado/quickref/connection_openschema.html