<%
  Response.Expires = 0
  Response.Buffer=FALSE
  FilePath=request("file")
  FileName=Mid(FilePath, Instrrev(FilePath, "\")+1)
  Response.AddHeader "content-disposition", "attachment;FileName=" & FileName
  
  SET objfs=Server.CreateObject("scripting.Filesystemobject")
  SET objf=objfs.GetFile(FilePath)
  Response.AddHeader "content-length", objf.size
  SET objf=nothing
  SET objfs=nothing
  
  Response.ContentType= "application/unknown"
  Response.CacheControl="public"
  
  SET objdownload=server.CreateObject("DEXT.FileDownload")
  objdownload.Download FilePath
  SET objdownload=nothing
%>