<% @Language = VBScript%> <% Option Explicit%>
Simple ado query with asp b> font> Contacts within the Authors Database: 'Map authors database to physical path filepath = server.mappath ("authors.mdb") 'Create Ado Connection Component to Connect' with Sample Database Set oConn = Server.CreateObject ( "ADODB.Connection") oConn.Open "Provider = Microsoft.Jet.OLEDB.3.51; Data Source =" & filePath 'Execute a SQL query and store the results' within recordset Set oRs = oConn. Execute ("Select * from authors")%> p>
p>
<% Dim oConn Dim oRs Dim filePath Dim Index