<% Dim RS dim db Set db = Server.CreateObject ("ADODB.Connection") db.ConnectionString="PROVIDER=Microsoft.Jet.OLEDB.3.51;" & "DATASOURCE=C:\1.mdb" db.Open Set RS = Server.CreateObject ("ADODB.Recordset") RS.Open "SELECT * FROM tb1", 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 ("a") Response.Write "

---

" RS.MoveNext Wend End If %>