<%
    Dim espostiDB
    Set espostiDB = Server.CreateObject("ADODB.Connection")
    'espostiDB.ConnectionString = "DSN=esposti.dsn"
    'espostiDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dbesposti1.mdb")
    espostiDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbesposti.mdb") ')e:inetpubwwwrootespostiesposti.mdb"
    'espostiDB.ConnectionString = "DSN=esposti.dsn"
    espostiDB.Open
%>

<%
    Set espostiDB = Server.CreateObject("ADODB.Connection")

    connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("~dbesposti.mdb")

    espostiDB.Open connStr
%>