questo è il file di inclusione:

<%
Function GetDBConnection()
Dim strCon
Set GetDBConnection = Server.CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("\dbfiles\newsletter.mdb")
GetDBConnection.Open strCon
End Function
%>