ADO Recordset

Nach dem Öffnen der Verbindung holt man sich die Daten in ein Recordset. Auch hier braucht es zwei Schritte:

1. Recordset erzeugen mit Server.CreateObject("ADODB.Recordset")
2. Recordset öffnen mit der Methode Open und einem
    SQL-Statement und einem Connection-Objekt als Parametern

Mit einer Do- oder While-Schleife wird das Recordset dann bis zum letzten Datensatz (objrs.EOF) durchlaufen.

Dim objcon, objrs, strsql
Set objcon = Server.CreateObject("ADODB.Connection")
objcon.Open "NWind"
  
Set objrs = Server.CreateObject("ADODB.Recordset")
strsql = "SELECT Artikelname FROM Artikel"
objrs.Open strsql, objcon

Do Until objrs.EOF
  Response.Write(objrs("Artikelname")&"<br />")
  objrs.MoveNext
Loop