Auto backup 1ggr/mån

Hittade ett tyskt script, men vad går snett....får inte det att funka.
Man skulle infoga följande kod på en sida med databas så skulle den ta daglig backup

<%@Language=VBScript%>
<%Option Explicit%>

<%
dim fs,f,e,objFileSys
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("c:/inetpub/wwwroot/db2/yourdatabase.mdb")
set e=fs.GetFile("c:/inetpub/wwwroot/db/yourdatabase.mdb")

%>

<%
Dim datum1,datum2,datum3

datum1 = FormatDateTime(f.DateLastModified,2)
datum2 = date()
datum3 = FormatDateTime(e.DateLastModified,2)

%>

<%

If CDate(datum3) = CDate(datum2) AND _
   CDate(datum1) = CDate(datum3) Then
'Response.Write "Das Datum ist gleich" & "<br>"

Else

Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
objFileSys.CopyFile Server.MapPath("\db\yourdatabase.mdb"), Server.MapPath("\db2\yourdatabase.mdb"), true
Set objFileSys = Nothing
'Response.Write "Die Datei wurde kopiert " & "<br>"
End IF

%>

<%
set f=nothing
 set e = nothing
set fs=nothing
%>

Ahh, du kunde frågat mig lite tidigare,
hade en sånn function, dock utan en gång i månaden.
Men det kunde man ju bara lägga till i en If sats..

Aja, spara när du senast gjorde en backup(I en databas eller application variabel), sen kolla med datediff hur längesen det var i månader, om det var mer eller likamed en månad så kör du scriptet.

Jag ska kolla om jag hittar scriptet nånstans..

MVH Daniel