<%
FileName = Request("file")
path = Request("path")
strFileType = lcase(Right(FileName, 4))
Dim fileSize , fileName , FileFullPath
'FileSize=Dimensioni del file da scaricare in BYTES
'FileName=Nome da dare al file che scarico
'FileFullPath=Nome e percorso del file da scaricare
fileFullPath = Server.MapPath(path & filename)
Dim fso, fileObj
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObj = fso.GetFile(FileFullPath)
fileSize = fileObj.size
fileName = fileObj.name
Set fileObj = nothing
Set fso = nothing
Response.Clear
Dim adoStream
Set adoStream = Server.CreateObject("ADODB.Stream")
adoStream.Open()
adoStream.Type = 1
adoStream.LoadFromFile fileFullPath
Response.AddHeader "Content-Disposition", "attachment;filename=" & fileName & ";"
Response.AddHeader "Content-Length", fileSize
Response.ContentType = "application/octet-stream"
Response.BinaryWrite( adoStream.Read() )
adoStream.Close
Set adoStream = Nothing
%>