<%
	Option Explicit

	Dim objConn,DbPath
	DbPath = "#db.mdb"
	
	Set objConn = Server.CreateObject("Adodb.Connection")
  ''''''''''''''''''''''''''''''''
  '    Connect  database
  ''''''''''''''''''''''''''''''''
	Function Connect()
		objConn.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath(DbPath) & ";"
	End Function
	
  ''''''''''''''''''''''''''''''''
  '    Disconnect  database
  ''''''''''''''''''''''''''''''''
	Function Disconnect()
		objConn.Close()
		Set objConn = Nothing
	End Function
%>