Prova a modificare:
codice:
dsnpath = dsnpath & "DBQ=" & Server.MapPath("database\casistica_2000.mdb")
con
codice:
dsnpath = dsnpath & "DBQ=" & Server.MapPath("/database/casistica_2000.mdb")
Potresti non avere i permessi nella cartella del database