codice:
<%
Response.Buffer = True
Dim objXMLHTTP, StrURL, StrNome
StrURL = "percorso/relativo/del/file"
StrNome = "file.pdf"
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
Response.ContentType = "application/pdf"
' Manda il contenuto con BinaryWrite
Response.BinaryWrite objXMLHTTP.responseBody
Set xml = Nothing
%>