codice:
<%
'--------------------------------------------
'------------     DOWNLOAD FILE   -----------
'--------------------------------------------
Nomefile=request.querystring("file")
PercorsoFile = server.mappath(Nomefile)
Response.Buffer = True
Response.Clear

Set ADOStream = Server.CreateObject("ADODB.Stream")
ADOStream.Open

ADOStream.Type = 1  ' Set binary stream

Set FS = Server.CreateObject("Scripting.FileSystemObject")
If Not FS.FileExists(PercorsoFile) Then
        DownloadFile = False
Else

        Set FileStream = FS.GetFile(PercorsoFile)
        DimensioneFile = FileStream.Size

        ADOStream.LoadFromFile(PercorsoFile)
        If Err Then
                DownloadFile = False
        Else
                NomeFile = Mid(PercorsoFile, InStrRev(PercorsoFile, "\")+1)
                Response.ContentType = "application/octet-stream"
                Response.AddHeader "Content-Disposition", "attachment; filename=" & Nomefile
                Response.AddHeader "Content-Length", DimensioneFile

                Response.BinaryWrite ADOStream.Read
                Response.Flush
                
                'FS.DeleteFile(PercorsoFile)
                Set FS = Nothing
                
                DownloadFile = True
        End If
End If
%>