Backup BD Não está funcionando

[ricardo coelho designer 0]

Bom dia!Pessoal recorro a vcs novamente.O Código abaixo precisa fazer uma copia do arquivo BD, só que quando a página retorna, não duplica o arquivo.Ele tem que fazer backup do arquivo com a data de hoje.O que será que eu errei?Se puderem me ajudar agradecerei.

<%Arquivo = Request.QueryString("arquivo")Caminho = Request.QueryString("path")Sub CopiaArquivo(Origem,Arquivo,Caminho,action)Dim objFSODim FileOrigemDim FileDestinoFileOrigem = Caminho & "/" & ArquivoFileDestino = Caminho & "/" & Arquivo.dateSet objFSO = Server.CreateObject("Scripting.FileSystemObject")if objFSO.FileExists(Server.MapPath(FileOrigem)) thenSet objFileCopy = objFSO.GetFile(Server.MapPath(FileOrigem))objFileCopy.Copy Server.MapPath(FileDestino)Set objFileCopy = Nothingend ifSet objFSO = NothingEnd Sub%><meta http-equiv='refresh' content='1; url=defaultvisualiza_imagem_excluirBD.asp'/>

[jrcardozo 4]

tenteFileDestino = Caminho & "/" & Arquivo&"."&date

[ricardo coelho designer 0]

tenteFileDestino = Caminho & "/" & Arquivo&"."&date

O que acontece é que o arquivo não duplica, ele recebe os dados backup.asp?path=C:\Inetpub\wwwroot\AccessAdmin\&arquivo=vitrine.mdbMas não faz uma cópia do arquivo com outro nome.