<%@ Language=VBScript%>
<% 'option explicit%>
<%Server.ScriptTimeout = 600%>
<%
Response.Buffer = True
Response.Expires = 0
%>
<%
	'çäåñü ìîæíî ïîñòàâèòü ïðîâåðêó - àâòîðèçîâàí ëè ïîëüçîâàòåëü
	'äëÿ ñêà÷èâàíèÿ ôàéëà
	Dim fl, fso, obj

	' ïîëíûé ïóòü ê ôàéëó äëÿ ñêà÷èâàíèÿ
	'fl = "d:\programs\distr\mp3Trim.zip"
'fl = "C:\var\contratos\1792466731\rallyellanes.com\web\2016\descargas\TABLON_DE_ANUNCIOS\TC4-CERA.pdf"

dir = Request("dir")
archivo = Request("archivo")
fl = server.MapPath("\") + "\2016\descargas\" + dir + "\" + archivo

	Set obj = Server.CreateObject("ADODB.Stream")
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	obj.Open
	obj.Type = 1
	obj.LoadFromFile(fl)
	Response.Clear
	Response.ContentType="application/octet-stream"
	Response.AddHeader "Content-disposition","inline;filename=" & fso.GetFileName(fl)

 	If obj.Size > 0 Then 
		Response.BinaryWrite obj.Read
	End If

	obj.Close
	Set obj = Nothing
	Set fso = Nothing
%>