'FILE STRIMING------------------------------------------
Response.Addheader "Content-Disposition", "attachment; filename=File.zip"
Response.ContentType = "application/x-msdownload"
Response.CacheControl = "public"

set objStream = server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1 ' binary
on error resume next
objStream.LoadFromFile "c:\Folder\File.zip"
if Err.number > 0 then
' error handling ----
end if

Response.BinaryWrite objStream.Read
objStream.Close
set objStream = nothing
Response.Flush


'--------------- UserOnLine -------------------------
If Response.IsClientConnected then

'Potrebitelia e svalil celia fail files.zip ------
else
'Potrebitelia ne e downloadnal celia fail

End if