Bueno, te paso este script para generar una copia de una base de datos, con el nombre usando la fecha, y un numero aleatorio como nombre, el nombre queda algo asi 20050920_1854.mdb en la carpeta respaldo, ya el hacerlo automatico sera cosa de ver como se podria hacer
Código:
<%
Randomize()
num = CInt(Int((9999 * Rnd()) + 1))
fecha=date()
'response.write replace(fecha,"/","") &"<br>"
'response.write num
nombre=replace(fecha,"/","") &"_"&num
StrCarpeta = server.mappath(".")
'if right(StrCarpeta,1) <> "\" then StrCarpeta = StrCarpeta & "\"
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set archivo = oFSO.GetFile(strCarpeta & "\base.mdb")
tamano = formatnumber(archivo.size/1000,0)
If oFSO.FileExists(strCarpeta & "\base.mdb") Then
Response.Write ("Respaldo completo<br>")
oFSO.CopyFile (StrCarpeta & "\base.mdb"), strCarpeta&"/respaldos/"&nombre&".mdb"
Response.Write "<b>base.mdb </b><br>"&tamano & " kb <br><br>"
Response.Write "<b><a href=respaldos/base.mdb>Descargar respaldo</a><br><br>"
Response.Write "<a href=sistema.asp?pan=9>REGRESAR</a>"
else
Response.Write ("* La base de datos <B'>" & Request.form("DBFileName") & "</B'> no se encontro u ocurrio algun error.<br>"&strCarpeta)
Response.Write "<br><br><a href=sistema.asp?pan=9>REGRESAR</a>"
End If
%>