<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% ' Delete all previous copies of backup files Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath("/Bookings/dbBackup/")) For Each objItem in objFolder.Files If InStr(1,objItem.Name,"Rats-",vbTextCompare)<>0 then objFSO.DeleteFile(objItem) End If Next 'objItem Set objItem = Nothing Set objFolder = Nothing Set objFSO = Nothing %> <% ' Create a copy of database with date tamped file name. dim fs, dbSource, dbTarget, dbName dbName = "Rats-" & (Right(Year(Date),2) & Right("0"&(Month(Date)),2) & Right("0"&(Day(Date)),2) & Right("0"&(Hour(Now)),2) & Right("0"&(Minute(Now)),2)) & ".mdb" dbSource = Server.MapPath("/Bookings/database/bookdb.mdb") dbTarget = Server.MapPath("/Bookings/dbBackup/" & dbName) set fs=Server.CreateObject("Scripting.FileSystemObject") fs.CopyFile dbSource,dbTarget,True set fs=nothing %> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="userEdit,webmaster" MM_authFailedURL="/Bookings/Secure/sorryAccess.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> Rhydd Covert Delete Leader


Rhydd Activity Tracking System
Download RATS Database

 

RATS BACKUP FACILITY

This page enables you to download a date stamped copy of the
current online database. This should be done regularly.

Clicking below causes the file to be downloaded - Simply
save it to your computer in a location reserved for the
RATS database backups. The file name contains info
about when the file was downloaded, so please save the
file with the same filename.

Should you ever need to recover data from a backed up
Database file, please contact the system administrator.

Please remember to keep the file safe as it contains
our clients names and contact information.

<%dbPath = """/Bookings/dbBackup/" & dbName & """" %>

>Download Database