Sorry, here it is
<%
Dim objStream, objRecord, strURLofFile, strURLofBackup, strText, strDateStamp
strURLofFile = Request.Form("URLofFile")
strURLofBackup = Request.Form("URLofBackup")
set objRecord = Server.CreateObject("ADODB.Record")
objRecord.Open "", "URL=" & strURLofFile
objCopyRecord "", strURLofBackup,,, adCopyOverWrite
objRecord.Close
Set objRecord = Nothing
|