home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / asp / advregistry / act_set.asp < prev    next >
Encoding:
Text File  |  2000-10-02  |  547 b   |  24 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.Type = Request.Form("Type")
  12. Registry.Value = Request.Form("Value")
  13. Registry.Set(Request.Form("Branch"))
  14. if (Registry.IsError = 1) then
  15.     Response.Write "Error: " & Registry.ErrorReason & "<br>"
  16. else
  17.     Response.Write "Successfully set" & "<br>"
  18. end if
  19. set Directory = Nothing
  20. %>
  21. <A HREF="dsp_set.htm">Back</A>
  22. </body>
  23. </html>
  24.