Salvare immagini in locale da un url

[ErgoSum]

Ciao,
dovrei realizzare una pagina in codice ASP classico per fare in modo che dato l'url di una immagine tipo "http://utenti.html.it/common/img/logo_forum.gif" questa immagine venga salvata in locale.

Ho trovato questo 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("/dir/nomefile.ext") 
	Stream.SaveToFile LocalPath,2
	Stream.Close()
	Set Stream = Nothing
End Function

SaveUrlIn "http://www.villalba1.org/img/contatto.gif"

ma non funziona, mi da errore alla riga

Http.open "GET",Url,False

Tipo di errore:
msxml4.dll (0x80070057)
Parametro non corretto.
Se qualcuno sa aiutarmi....
Grazie