Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment;filename=produkt.xls"

Const adTypeBinary = 1
Dim strFilePath

strFilePath = Server.MapPath("produkt.xls")

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath

Response.BinaryWrite objStream.Read

objStream.Close
Set objStream = Nothing