<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsudInfo 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query to query the database
Dim udInfo, checkMsg, udDesc
'Create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dbase/db.mdb")
'Create an ADO recordset object
Set rsudInfo = Server.CreateObject("ADODB.Recordset")
%>
