<%
Dim adoCon 'Holds the Database Connection Object
Dim rsSermon 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query to query the database
Set adoCon = Server.CreateObject("ADODB.Connection") 'Create an ADO connection object
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/db/updates.mdb")'Set an active connection to the Connection object using a DSN-less connection
Set F2Finfo = Server.CreateObject("ADODB.Recordset")'Create an ADO recordset object
strSQL = "SELECT * FROM F2Fly ;"'Initialise the strSQL variable with an SQL statement to query the database
F2Finfo.Open strSQL, adoCon 'Open the recordset with the SQL query
%>