la funzione era questa:

codice:
Public Function LoadRemoteFile(URL,FileType,ContentType)
		Dim ServerHTTP,Content,RequestBin,RequestText,FileName,StreamType,Name,iT,eT,bR
			on error resume next
			Set ServerHTTP = CreateObject("MSXML2.ServerXMLHTTP.4.0")
			if err.number <>0 then
				Set ServerHTTP = CreateObject("MSXML2.ServerXMLHTTP")
				if err.number <>0 then
					response.Write("<p style=""font-family:verdana;font-size:10"">Errore: L'oggetto MSXML2.ServerXMLHTTP non è installato sul server</p>")
					response.end
				end if
			end if
			on error goto 0
			InitUploadFiles()
			IsMultipart = true
			ServerHTTP.open "GET",URL,false
			ServerHTTP.Send
			iT = Timer()
			RequestBin = ServerHTTP.responseBody
			while ServerHTTP.readyState<>4
				ServerHTTP.waitForResponse 1000
			wend
			bR = LenB(RequestBin)
			FileName = Replace(URL,"/","\")
			StreamType = FileType
			eT = Timer()
			if (Et-iT)<>0 then
				ConnectionSpeed = cStr(round((bR / (Et-iT)) / 1024,1)) & " [kb/s]"
			else
				ConnectionSpeed =   cStr(round(bR/1024,1)) & " [kb/ms]"
			end if
			AddNewRs Name,FileName,ContentType,StreamType,RequestBin
			MoveFirst
			Set ServerHTTP = Nothing
		End function

che è, appunto, leggere il file via xmlhttp e salvare quello che si legge (requestBin) da qualche parte