<%
Option Explicit

Session("EffettuatoDownload") = True

Response.Buffer = True
Response.Clear

Dim objStream, strFileName
strFileName = Request.QueryString("file")
strFileName = Server.MapPath("..\aggiornamento\" & strFileName)
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile strFileName
' Istruiamo il browser sul tipo di file
Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
Response.ContentType = "application/octet-stream"
Response.BinaryWrite objStream.Read

Response.Flush

objStream.Close
Set objStream = Nothing

Session("Messaggio") = strFileName

Response.Redirect "download.asp"
%>