Response.ContentType = "application/x-unknown" ' arbitrary
szPath = "D:\path_to_site\" & szFilename
Response.AddHeader "Content-Disposition","attachment; filename=" & szFilename
set adoStream = server.createobject("ADODB.Stream")
adoStream.Open()
adoStream.Type = 1
adoStream.LoadFromFile(szPath)
response.BinaryWrite adoStream.Read()
adoStream.Close
set adoStream = nothing