Prova con XMLHTTP
codice:
Response.Buffer = True
Dim objXMLHTTP, StrURL, StrNome
StrURL = "http://dominio/temp.txt" 'file da trasmettere
StrNome = "mionome.txt" 'cambio il nome
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
'Utilizziamo la versione 3 che non ha problemi di performance
'per la 2 usare Microsoft.XMLHTTP
objXMLHTTP.Open "GET", StrURL, False
' Richiama il file
objXMLHTTP.Send
' Aggiunge un header per far scaricare il file
Response.AddHeader "Content-Disposition", _
"attachment;filename=" & StrNome
' Imposta il content su octet-stream, forzando l'apertura fuori dal browser
Response.ContentType = "file/octet-stream"
' Manda il contenuto con BinaryWrite
Response.BinaryWrite objXMLHTTP.responseBody
Set xml = Nothing