home *** CD-ROM | disk | FTP | other *** search
- <html>
- <head>
- <title>AdvRegistry Component</title>
- </head>
- <body>
- <%
- dim Registry
- dim Result
- set Registry = Server.CreateObject("AdvRegistry.Registry")
- Registry.Entry = Request.Form("Entry")
- Registry.Type = Request.Form("Type")
- Registry.Value = Request.Form("Value")
- Registry.Set(Request.Form("Branch"))
- if (Registry.IsError = 1) then
- Response.Write "Error: " & Registry.ErrorReason & "<br>"
- else
- Response.Write "Successfully set" & "<br>"
- end if
- set Directory = Nothing
- %>
- <A HREF="dsp_set.htm">Back</A>
- </body>
- </html>
-