ASP Database Backup Program

Backing up the database is what every webmaster has to do, and here's a simple article that uses ASP to back up an Access database.

Public Function compactdbfile (strdbfilename)
Dim jet_conn_partial
Dim Sourceconn
Dim Destconn
Dim Ojetengine
Dim oFSO

Jet_conn_partial = "Provider=Microsoft.Jet.OLEDB.4.0; Data source= "

Sourceconn = jet_conn_partial & AppPath () & Strdbfilename
Destconn = jet_conn_partial & AppPath () & "Temp" & Strdbfilename
Set oFSO = Server.CreateObject ("Scripting.FileSystemObject")
Set ojetengine = Server.CreateObject ("JRO. JetEngine ")

With oFSO
If not. FileExists (AppPath () & Strdbfilename) Then
ErrMsg ("database File not found!!!! " )
Stop
Compactdbfile = False
Exit Function
Else
If. FileExists (AppPath () & "Temp" & Strdbfilename) Then
ErrMsg ("not knowing the error!!! ")
. DeleteFile (AppPath () & "Temp" & Strdbfilename)
Compactdbfile = False
Exit Function
End If
End If
End With

With Ojetengine
. CompactDatabase Sourceconn, Destconn
End With

Ofso.deletefile AppPath () & Strdbfilename
Ofso.movefile AppPath () & "Temp" & Strdbfilename,apppath () & Strdbfilename

Set oFSO = Nothing
Set Ojetengine = Nothing
Compactdbfile = True
End Function