-----------<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim adoCon 'Holds the Database Connection Object
Dim RS 'Holds the recordset for the records in the database
Dim SQL 'Holds the SQL query for the database
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data\mtmorris.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
%>