<%

Function GetDBConnection()
	Dim strCon
	Set GetDBConnection = Server.CreateObject("ADODB.Connection")
	
'MODIFY the following line includes the location to the newsletter database. 
'  Make sure the "server.mappath" value is correct .
	strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("\CremaRicerche\db\newsletter.mdb")

	GetDBConnection.Open strCon
End Function

%>