Microsoft.XMLHTTP errore salvataggio

[pralloprallo]

ragazzi sto facendo un'applicazione in vbscript che so connette al un server e mi salva delle immagini in locale,però da qualche parte sbaglio perchè l'immagine si crea ma non si visualizza.Ecco il codice:

indirizzo= "http://adorocinema.cidadeinternet.com.br/
filmes/monge-a-prova-de-balas/monge-a-prova-de-balas-poster01.jpg"
Set img = CreateObject("Microsoft.XMLHTTP")
img.open "GET", indirizzo, false
img.send()
estensione = "."& right(img.getResponseHeader("Content-Type"),3)
If estensione = ".peg" Then estensione = ".jpg"
Dimensione =img.getResponseHeader("Content-Length")
Contenuto =img.getResponseHeader("Content-Type")
Disposizione =img.getResponseHeader("Content-Disposition")
Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.CreateTextFile("C:\nome"& estensione,true,true)
MyFile.WriteLine (img.responseBody )
MyFile.Close

[deleted_c]

devi decodificare quello che xmlhttp ti restituisce
cerca sul forum

[pralloprallo]

cosa cerco sto impazzendo!!!

[pieroseko]

come si fa a decodificare ?
mi serve questo passaggio

[Baol74]

Sei fuori strada. Prova così:

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(Folder,Url)
Dim LocalPath,FileName
	Set Stream = Server.CreateObject("ADODB.Stream")
	Stream.Type=1
	Stream.Open()
	Stream.Write GetBinaryUrl(Url)
	Url = Replace(Url,"/","\")
	FileName = Mid(Url,InStrRev("\")+1)
	On error resume next
	LocalPath = Server.MapPath("Folder") & "\" & FileName
	If err.Number<>0 then LocalPath = Folder & "\" & FileName
	On error goto 0
	LocalPath = Replace(LocalPath,"\\","\")
	Stream.SaveToFile LocalPath,2
	Stream.Close()
	Set Stream = Nothing
End Function

SaveUrlIn "c:\","http://adorocinema.cidadeinternet.com.br/
filmes/monge-a-prova-de-balas/monge-a-prova-de-balas-poster01.jpg"