Salvare immagine remota

[emilio81]

Salve, devo salvare delle immagini remote sul server tramite il seguente script trovato sul forum..

Function GetBinaryUrl(Url)
Dim Http
	Set Http = Server.CreateObject("Microsoft.XMLHTTP")
	Http.open "GET",Url,False
	Http.Send()
	GetBinaryUrl = Http.ResponseBody
	Set Http=Nothing
End Function

Function SaveUrlIn(Url)
Dim LocalPath
	Set Stream = Server.CreateObject("ADODB.Stream")
	Stream.Type=1
	Stream.Open()
	Stream.Write GetBinaryUrl(Url)
	Url = Replace(Url,"/","\")
	LocalPath = Server.MapPath("/public/nomefile.gif")
	Stream.SaveToFile LocalPath,2
	Stream.Close()
	Set Stream = Nothing
End Function

SaveUrlIn "http://www.miosito.com/immagine.gif"

Purtroppo quando lo eseguo mi dice :

ADODB.Stream error '800a0bbc'

Write to file failed.


Come posso risolvere? cosa c'è di sbagliato?