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 = nothingDim RS set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = Cnn RS.Source = "SELECT … Spaltennamen einer DB auslesen weiterlesen