<% ' --- Globale Datei zum Öffnen einer Datenbankverbindung ' --- Objektname wird als Verweis eines Connection-Objekts verwendet Set conn = Server.CreateObject("ADODB.Connection") ' --- Objektname.open "System-DSN", "UserName", "Passwort" conn.open "kuehlkamp","","" SQL = "SELECT * FROM links" ' --- Globale Datei zum Öffnen eines Recordset-Objekts Set rs = Server.CreateObject("ADODB.Recordset") ' --- Objektname.open "SQLString", Aktive Verbindung, CursorType, Öffnungsmodus rs.Open sql, conn, 3, 3 ' --- Prüfen, ob mind. 1 Datensatz gefunden wurde If Not rs.EOF Then ' --- Ausgabe der Werte rs.MoveFirst do while Not rs.eof Response.Write " " Response.Write " " Response.Write " " Response.Write "" rs.MoveNext loop ' --- Das Recordset ist leer. Fehler ausgeben Else Response.Write "" End if ' --- Globale Datei zum Schließen eines Recordset-Objekts ' --- Objektname.Close (erwartet keine Parameter) rs.Close ' --- Löschen der Objektvariablen Set rs = Nothing ' --- Globale Datei zum Schließen einer Datenbankverbindung ' --- Objektname.Close (erwartet keine Parameter) conn.Close ' --- Löschen des Verweises auf die Objektvariable Set conn = Nothing %>

Links

" Response.Write " " & rs.Fields("text") & "" Response.Write "