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