home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / asp / advfile / act_downloadas.asp < prev    next >
Encoding:
Text File  |  2000-12-22  |  329 b   |  13 lines
  1. <%
  2. set obj = server.CreateObject("AdvFile.File")
  3. if (Request.Form("ForceFully") = "on") then
  4.     obj.DownloadForceFully = true
  5. else
  6.     obj.DownloadForceFully = false
  7. end if
  8. obj.DownloadAs Request.Form("Source"), Request.Form("FileName")
  9. if (obj.IsError = 1) then
  10.     Response.Write obj.ErrorReason
  11. end if
  12. set obj = nothing
  13. %>