home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / asp / advfile / act_write.asp < prev    next >
Encoding:
Text File  |  2000-12-22  |  558 b   |  26 lines
  1. <html>
  2. <head>
  3.     <title>AdvFile Component</title>
  4. </head>
  5. <body>
  6. <%
  7. dim File
  8. set File = Server.CreateObject("AdvFile.File")
  9. File.Attributes = Request.Form("Attributes")
  10. if (Request.Form("NewLine") = "on") then
  11.     File.AddNewLine = true
  12. else
  13.     File.AddNewLine = false
  14. end if
  15. File.Write Request.Form("Source"), Request.Form("Data")
  16. if (File.IsError = 1) then
  17.     Response.Write "Error: "&File.ErrorReason & "<br>"
  18. else
  19.     Response.Write "Successfully write" & "<br>"
  20. end if
  21. set File = Nothing
  22. %>
  23. <a href="dsp_write.htm">Back</a>
  24. </body>
  25. </html>
  26.