Compattazione database ACCESS 2007 tramite vbscript

[vic53]

Per che sta cercando di compattare il database Access 2007 via ASP,
Inserisco la routine che ho sperimentato e che condivido

...
archivi = Server.MapPath("database\archivi.accdb")
compdb = Server.MapPath("database\archiviCP.accdb")

set objDAO = server.CreateObject("DAO.DBEngine.120")
objDAO.CompactDatabase archivi , compdb
if err <> 0 then
        Response.Write "db archivi Errore: " & err.description
        swErr=swErr+1
else
        msg="database: "&archivi&" compattato!;"
        'Response.Write "Il Database " & archivi & " è stato compattato con successo"
end if
...

Naturalmente le librerie DAO devono essere installate.... microsoft DAC...

un saluto