1. DB-Beispiel: Anzeigen

Dim objcon, objrspersonen, strsqlselpersonen

Set objcon = Server.CreateObject("ADODB.Connection")

objcon.Open _
  "DRIVER={Microsoft Access Driver (*.mdb)};" & _
  "DBQ=" & Server.MapPath("/fpdb/dbpers.mdb")

strsqlselpersonen = "SELECT * FROM tblpersonen"
Set objrspersonen = _
  Server.CreateObject("ADODB.Recordset")
objrspersonen.Open strsqlselpersonen, objcon

Do While Not objrspersonen.EOF 
  Response.Write(objrspersonen("nachname") & _
    "<br />" & vbCrLf)
  objrspersonen.MoveNext 
Loop