Copia file da un server ad un altro server

[burruchaga]

è stato trattato pochi giorni fa

<%
set richiesta = server.CreateObject("MSXML2.ServerXMLHTTP")
   	richiesta.Open "get", "http://forum.html.it/forum/images/reply.gif", false
   	richiesta.Send()
  	ax=richiesta.responseBody
set richiesta = nothing
   
Set objStream = Server.CreateObject("ADODB.Stream")
	objStream.Type = 1
	objStream.Open
	objStream.write(ax)
	objStream.savetoFile(server.MapPath("file2.gif"))
	objStream.Close
Set objStream = Nothing
%>