sembrerebbe tutto ok :master:
prova a cambiare stringa di connessione
codice:
<% 
Function GetDBConnection() 
  Dim strCon 
  Set GetDBConnection = Server.CreateObject("ADODB.Connection") 
  strCon = DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("\dbfiles\newsletter.mdb") 
  GetDBConnection.Open strCon 
End Function 
%>