MyFile.Close
end if
' Copio il file creato nella dir di visualizzazione
sourcePathcopyorig = "D:\yyyyy\xxxxx\docuavvi\file\file_fax\"
sourcePathAssofilecopyorig=sourcePathcopyorig&""&v c_nomefileHtml
'response.write sourcePathAssofilecopyorig
sourcePathcopydest = "D:\yyyyy\xxxxx\bollavvifile\"
sourcePathAssofilecopydest=sourcePathcopydest&""&v c_nomefileHtml
'response.write sourcePathAssofilecopydest
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject ")
set f=fs.GetFile(sourcePathAssofilecopyorig)
f.Copy(sourcePathAssofilecopydest,true)
set f=nothing
set fs=nothing
' Prossimo file
rsrelaservazie.MoveNext
Loop
end if