ASP Access data backup, restore, Compress class code _ database related

<!--#include file= "config.asp"-->
<!--#include file= "fun.asp"-->
<%
' Database management class
Class Datas
' Backup
Public Sub Bk ()
Set fso=server.createobject ("Scripting.FileSystemObject")
Fso. CopyFile Server.MapPath (Sitedatapath), Server.MapPath (Sitedatabakpath)
Set fso=nothing
Response. Write ("<script language=javascript><!--
Alert (' Backup successful! '); window.location.href= ' datamanage.asp '
--></script> ")
End Sub

' Restore
Public Sub Rt ()
Sdpath = Server.MapPath (Sitedatapath)
sDBPath = Server.MapPath (Sitedatabakpath)
Set Fso=server.createobject ("Scripting.FileSystemObject")
If Fso.fileexists (sDBPath) Then
Fso.copyfile Sdbpath,sdpath
Set fso=nothing
Response. Write ("<script language=javascript><!--
Alert (' Success: You have successfully restored the database! '); window.location.href= ' Datamanage.asp?action=rt '
--></script> ")
Else
Response. Write ("<script language=javascript><!--
Alert (' failed: Please check the path and database name exists '); window.location.href= ' Datamanage.asp?action=rt '
--></script> ")
End If
End Sub

' Compress
Public Sub Dc ()
sDBPath = Server.MapPath (Sitedatabakpath)
Set Fso=server.createobject ("Scripting.FileSystemObject")
If Fso.fileexists (sDBPath) Then
Set Engine =server.createobject ("JRO.") JetEngine ")
If Request ("boolis") = "Then"
Engine.compactdatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & sDBPath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & sDBPath & "_temp.mdb" _
& "Jet oledb:engine type=" & jet_3x
Else
Engine.compactdatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & sDBPath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & sDBPath & "_temp.mdb"
End If
Fso.copyfile sDBPath & "_temp.mdb", sDBPath
Fso.deletefile (sDBPath & "_temp.mdb")
Set Fso = Nothing
Set Engine = Nothing
Response. Write ("<script language=javascript><!--
Alert (' Success: Database has been compressed successfully! '); window.location.href= ' DATAMANAGE.ASP?ACTION=DC '
--></script> ")
Else
Response. Write ("<script language=javascript><!--
Alert (' failed: Database compression failed, please check the path and database name exists! '); window.location.href= ' DATAMANAGE.ASP?ACTION=DC '
--></script> ")
End If
End Sub
End Class
%>