ASP script download

'*******************************************************************
' http://authors.aspalliance.com/chrisg/tools/view-downloadfile.asp
' use: 
'  call DownloadFile(Server.Mappath("data/data.rar"))
'
sub DownloadFile(strFilename)
 Response.Clear
 
 ' create stream
 Set s = Server.CreateObject("ADODB.Stream")
 s.Open
 
 ' Set as binary
 s.Type = 1
 
 ' load in the file
 on error resume next
 
 ' check the file exists
 Set fso = Server.CreateObject("Scripting.FileSystemObject")
 if not fso.FileExists(strFilename) then
 Response.Write("Error: " & strFilename & " does not exist")
 Response.End
 end if
 
 ' get length of file
 Set f = fso.GetFile(strFilename)
 intFilelength = f.size
 
 s.LoadFromFile(strFilename)
 if err then
 Response.Write("Error: " & err.Description)
 Response.End
 end if
 
 ' send the headers to the users browser
 Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
 Response.AddHeader "Content-Length", intFilelength
 Response.CharSet = "UTF-8"
 Response.ContentType = "application/octet-stream"
 
 ' output the file to the browser
 Response.BinaryWrite s.Read
 Response.Flush
 
 ' tidy up
 s.Close
 Set s = Nothing

End sub