<%
'''''''''''''''''''''''''''
' Functions:
'
' OpenConnection
'''''''''''''''''''''''''''

dim dbPath : dbPath = "/database/subscribers.mdb"
dim connectionString : connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

function OpenConnection
	dim cn
		
	set cn = Server.CreateObject("ADODB.Connection")
	cn.open connectionString & Server.MapPath(dbPath)
	
	set OpenConnection = cn
end function
%>