<%@ Language=VBScript %>
<%
	Response.Buffer = False
	
	strFileName = Request.QueryString("file")
	strFilePath = Server.MapPath("/downloads/" & strFileName)

	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	If fso.FileExists(strFilePath) Then
		Set file = fso.GetFile(strFilePath)
		Response.AddHeader "Content-Length", file.Size
	
		Set Upload = Server.CreateObject("Persits.Upload.1")
		Upload.SendBinary strFilePath, True, "application/octet-binary", True
	Else
		Response.Redirect("/errorPage.asp")
	End If
%>