home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPFusion_Basic_Suite / examples / asp / advregistry / act_getall.asp < prev    next >
Encoding:
Text File  |  2001-09-22  |  980 b   |  43 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.Type = Request.Form("Type")
  11. Registry.Sort = Request.Form("Sort")
  12. Set Result = Registry.GetAll(Request.Form("Branch"))
  13. if (Registry.IsError = 1) then
  14.     Response.Write "Error: " & Registry.ErrorReason & "<br>"
  15. else
  16.     %>
  17.     <TABLE WIDTH=75% ALIGN=center BORDER=1 CELLSPACING=1 CELLPADDING=1>
  18.     <TR bgcolor="black">
  19.         <TD bgcolor="black"><b><font color="white">Entry</font></b></TD>
  20.         <TD bgcolor="black"><font color="white">Type</font></b></TD>
  21.         <TD bgcolor="black"><font color="white">Value</font></b></TD>
  22.     </TR>
  23.     <%
  24.     for each Member in Result    
  25.     %>
  26.     <TR>
  27.         <TD><%=Member.Entry%></TD>
  28.         <TD><%=Member.Type%></TD>
  29.         <TD><%=Member.Value%></TD>
  30.     </TR>
  31.     <%
  32.     next
  33.     %>
  34.     </TABLE>
  35.     <%
  36. end if
  37. set Directory = Nothing
  38. set Result = Nothing
  39. %>
  40. <A HREF="dsp_getall.htm">Back</A>
  41. </body>
  42. </html>
  43.