Ragazzi mi sapete dire perchè ottengo con lo script:

codice:
<%
Dim sSource, sDest, oHTTP, stream
sSource = "http://server1/website1/test.pdf"
sDest = "http://server1/website1/test2.pdf"
set oHTTP = CreateObject("Microsoft.XMLHTTP") 
oHTTP.open "GET", sSource, False 
oHTTP.send 
const adTypeBinary = 1 
const adSaveCreateOverwrite = 2 
const adModeReadWrite = 3

set stream = createobject("adodb.stream") 
stream.type = adTypeBinary 
stream.mode = adModeReadWrite
stream.open 
stream.write oHTTP.responseBody 
stream.savetofile sDest, adSaveCreateOverwrite 
stream.close 
set oHTTP = nothing 
set stream = nothing
%>
il seguente errore?

codice:
ADODB.Stream error '800a0bbc' 

Write to file failed. 

/public/prova.asp, line 48
La directory in cui salvo il file ha i permessi di scrittura.