<%@ Language=VBScript %>
<%option explicit%>
<!--
METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library"
-->
<%
dim documentname
dim FileStream

documentname=Request.QueryString("f")

Response.Buffer=true
Response.AddHeader "Content-Type", "application/download"
Response.AddHeader "Content-Disposition", "attachment; filename="& chr(34) & documentname & chr(34)
Response.AddHeader "Content-Description", documentname
Response.AddHeader "Content-Transfer-Encoding", "binary"
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Expires", "0"
set FileStream=Server.CreateObject("ADODB.Stream")
FileStream.Type=adTypeBinary
FileStream.Open 
FileStream.LoadFromFile(Server.MapPath(".\") & "\WEB\PLIKI\" & documentname)
Response.BinaryWrite(FileStream.Read)
FileStream.Close
set FileStream=nothing
%>