Spaltennamen einer DB auslesen

Dim RS
set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = Cnn
RS.Source = "SELECT * FROM Tabelle"
RS.Open
 
Dim Feld
FOR EACH Feld IN RS.Fields
   Response.Write Feld.Name & "<br>"
   Response.Write Feld.Type & "<br>"
Next
 
RS.Close
set RS = nothing
Cnn.Close
set Conn = nothing