<% Set DB = Server.CreateObject (ADODB.Connection) db.Open (PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="C:\biblio.mdb") Dim RS Set RS = Server.CreateObject (“ADODB.Recordset”) RS.Open “SELECT * FROM authors”, DB If RS.EOF And RS.BOF Then Response.Write “There are 0 records.” Else RS.MoveFirst While Not RS.EOF Response.Write RS.Fields (“author”) Response.Write RS.Fields (“au_id”) Response.Write “

---

” RS.MoveNext Wend End If %>