<!--#INCLUDE File="../../../counter/include/counter.asp" -->
<%
	Dim filename, path, data
	Dim objCounter

	filename = Request("filename")

	If InStr(filename, "/") > 0 Or InStr(filename, "\") > 0 Then
		Response.End
	End If

	path = Server.MapPath(".") & "\" & filename

	Set objStream = Server.CreateObject("ADODB.Stream")
	objStream.Open()
	objStream.Type = 1

	objStream.LoadFromFile(path)

	data = objStream.Read()

	Response.ContentType = "application/octet-stream"

	Call Response.AddHeader("Content-Disposition", "attachment; filename=" & filename)

	Response.BinaryWrite(data)

	Set objstream = nothing 

	Set objCounter = new Counter

	With objCounter
		.Directory = "..\..\..\counter\talesweaver"
		.Prefix = filename & "_"
		.extension = "log"
		.Count
	End With

	Set objCounter = Nothing
%>