Contents of connect.inc

---

<%
'NOTE: This is an MS Access-specific dsn-less connection.

lcConnect = "DRIVER={Microsoft Access Driver (*.mdb)};"
lcConnect = lcConnect & "DBQ=" & Server.MapPath("geneva.MDB")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open lcConnect
%>

---