<%
response.buffer=true
oggi = replace(trim(cstr(date)), "/", "-")
ora = replace(trim(cstr(time)), ".", "-")
response.flush
KKPercorso = CartelladelDatabase
KKMotore = "DAO.DBEngine.36"
KKArrayDB = array("Carico")%>
<h2 class="MyTitle">Compressione Database</h2>
<font class="medio">
<b>Questa funzione permette di compattare i database dell'applicazione direttamente online senza compromettere le funzionalià del sito</b><br>
Contemporaneamente CREA UNA COPIA DI BACKUP del database stesso!<br><br></font>
<font class="medio">
A seguito dell'eliminazione di dati o di oggetti da un database di Access oppure di oggetti da un progetto di Access, è possibile che il file si frammenti utilizzando lo spazio su disco in modo inefficiente. Eseguendo la compattazione di un file di Access si crea una copia del file e si riorganizza lo spazio di memorizzazione sul disco.<br>
La compattazione comporta un miglioramento delle prestazioni, e non influenza in alcun modo il processo di numerazione automatica, tuttavia, se sono stati eliminati dei record dalla parte finale di una tabella di un database di Access contenente un campo Contatore, compattando il database si reimposta il valore Contatore e il valore Contatore del record successivo sarà maggiore di uno rispetto al valore Contatore dell'ultimo record non eliminato della tabella.<br>
<br><br></font>
<%for i = lbound(KKArrayDB) to ubound(KKArrayDB)
  'comprimo il database 
  response.write "<hr><p class='small'>Compressione Database "& KKArrayDB(i) &".mdb in corso..."
  Set miodb = CreateObject(KKMotore) 
  miodb.CompactDatabase server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"), server.MapPath(KKPercorso & KKArrayDB(i) & "_new.mdb")
  response.write "<p class='small'>Database "& KKArrayDB(i) &".mdb compresso con successo</p>"
  Set miodb=Nothing
  ' backuppo il db
  Dim obJfso, objFile
  response.write "<p class='small'>Creo copia di backup ( "& KKArrayDB(i) &"_BKP_" & oggi & "_" & ora &".mdb ) in corso..."
  Set objFso=Server.CreateObject("scripting.filesystemobject")
  Set objFile=objFso.GetFile(server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"))
  objFSO.MoveFile server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"), server.MapPath(KKPercorso & KKArrayDB(i) &"_BK_" & oggi & "_" & ora & ".mdb") 
  response.write "<p class='small'>Copia di backup creata!</p>"
  Set objFSO = Nothing
  Set objFile = Nothing
  ' rinomino il database 
  response.write "<p class='small'>Ridenominazione del database " & KKArrayDB(i) &".mdb in corso...."
  Dim myobjFSO 
  Set myobjFSO = CreateObject("Scripting.FileSystemObject") 
  myobjFSO.MoveFile server.MapPath(KKPercorso & KKArrayDB(i) &"_new.mdb"), server.MapPath(KKPercorso & KKArrayDB(i) &".mdb") 
  response.write "<p class='small'>Database "& KKArrayDB(i) &".mdb rinominato con succcesso<br><br>"
  Set myobjFSO = Nothing
next
%>

Set miodb = CreateObject(KKMotore) 
miodb.CompactDatabase server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"), server.MapPath(KKPercorso & KKArrayDB(i) & "_new.mdb") 
response.write "<p class='small'>Database "& KKArrayDB(i) &".mdb compresso con successo</p>" 
Set miodb=Nothing 
' backuppo il db 
Dim obJfso, objFile 
response.write "<p class='small'>Creo copia di backup ( "& KKArrayDB(i) &"_BKP_" & oggi & "_" & ora &".mdb ) in corso..." 
Set objFso=Server.CreateObject("scripting.filesystemobject") 
Set objFile=objFso.GetFile(server.MapPath(KKPercorso & KKArrayDB(i) &".mdb")) 
objFSO.MoveFile server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"), server.MapPath(KKPercorso & KKArrayDB(i) &"_BK_" & oggi & "_" & ora & ".mdb") 

<% 
Set db = CreateObject("DAO.DBEngine.35") 
db.CompactDatabase "percorsoDatabase\database.mdb", 
"percorsoDatabase\database_compresso.mdb" 
%>