Compattazione Archivi in corso.....
Attendere prego.....
Compattazione Archivi in corso.....
Attendere prego.....
<%
strFile = Server.MapPath("mdb-database/E-commerce.mdb")
strFileTo = Server.MapPath("mdb-database/E-commerce_compattato.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 "Database compattato con successo su " & strFileTo
end if
set objJro = Nothing
'===================================
'Rinomino Database
'===================================
Dim fso
Set fso= Server.CreateObject("Scripting.FileSystemObject")
' CANCELLO IL FILE ORIGINALE
fso.DeleteFile strFile
'Rinomino il file Compresso
fso.Movefile strFileTo, strFile
%>
Il Database è stato cancellato.....
Il Database è stato SOSTITUITO.....
Il Database è stato compattato con successo.....
<%
%>