<%
    strFile = Server.MapPath("\mdb-database\prova.mdb")
    strFileTo = Server.MapPath("\mdb-database\prova_cmp.mdb")

  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
    "Data Source=" & strFile
    strConnTo = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
    "Data Source=" & strFileTo
    set objJro = server.createobject("jro.JetEngine")
    objJro.CompactDatabase strConn, strConnTo
    if err <> 0 then
        Response.Write "Errore: " & err.description
    else
        Response.Write "Il Database è stato compattato con successo"

'cancello il vecchio files    
set Procedi=Server.CreateObject("Scripting.FileSystemObject")
Procedi.DeleteFile(Server.MapPath("\mdb-database\prova.mdb"))

'rinomino il files appena compattato
Procedi.movefile Server.MapPath("\mdb-database\prova_cmp.mdb"), Server.MapPath("\mdb-database\prova.mdb")
Set Procedi = Nothing
    
    end if
    set objJro = Nothing
%>