home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / asp / advregistry / act_delete.asp next >
Encoding:
Text File  |  2000-10-02  |  478 b   |  22 lines
  1. <html>
  2. <head>
  3.     <title>AdvRegistry Component</title>
  4. </head>
  5. <body>
  6. <%
  7. dim Registry
  8. dim Result
  9. set Registry = Server.CreateObject("AdvRegistry.Registry")
  10. Registry.Entry = Request.Form("Entry")
  11. Registry.Delete(Request.Form("Branch"))
  12. if (Registry.IsError = 1) then
  13.     Response.Write "Error: " & Registry.ErrorReason & "<br>"
  14. else
  15.     Response.Write "Successfully delete" & "<br>"
  16. end if
  17. set Directory = Nothing
  18. %>
  19. <A HREF="dsp_delete.htm">Back</A>
  20. </body>
  21. </html>
  22.