<%
	Dim mstrDBFile
	mstrDBFile = "Database\presidioc.mdb"
	Sub openDatabaseConnection(mobjCn)
		Dim mintCount
		
		Set mobjCn = Server.CreateObject("ADODB.Connection")
			
		Dim mstrFullPath
		mstrFullPath = Server.MapPath(mstrDBFile)
				
		mobjCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mstrFullPath & ";Jet OLEDB:Database Password=;"

		mobjCn.Open
	End Sub
	
	Sub associateRecordset(mobjCn, mobjRs)
		Set mobjRs = Server.CreateObject("ADODB.Recordset")
	
		mobjRs.ActiveConnection=mobjCn
		mobjRs.CursorLocation=3
		mobjRs.CursorType=2
		mobjRs.LockType=3
	End Sub
	
	Sub performQuery(mobjRs, pstrQuery)
		mobjRs.Open(pstrQuery)
	End Sub
	
	Sub closeRecordset(mobjRs)
		mobjRs.Close
		
		Set mobjRs = Nothing
	End Sub
	
	Sub closeDatabaseConnection(mobjCn)
		mobjCn.Close
		
		Set mobjCn = Nothing
	End Sub
%>