The following code can be used to take backup of your database available in the server. This is to prevent dataloss due to server crash, etc.,
<% Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(Server.MapPath("temp.mdb"))=true) Then ' which file to be copied , give a backup name fs.CopyFile Server.MapPath("temp.mdb"),Server.MapPath("temp1.mdb") Else Response.Write("File does not exist") End If