home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / asp / advdirectory / act_create.asp next >
Encoding:
Text File  |  2000-09-30  |  426 b   |  20 lines
  1. <html>
  2. <head>
  3.     <title>AdvDirectory Component</title>
  4. </head>
  5. <body>
  6. <%
  7. dim Directory
  8. set Directory = Server.CreateObject("AdvDirectory.Directory")
  9. Directory.Create(Request.Form("Directory"))
  10. if (Directory.IsError = 1) then
  11.     Response.Write Directory.ErrorReason & "<br>"
  12. else
  13.     Response.Write "Successfully created" & "<br>"
  14. end if
  15. set Directory = Nothing
  16. %>
  17. <a href="dsp_create.htm">Back</a>
  18. </body>
  19. </html>
  20.