home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / services / ManageNewUser.agp < prev    next >
Encoding:
Text File  |  1999-06-17  |  1.9 KB  |  81 lines
  1. <html>
  2. <head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  4. <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper@infopulse.net">
  5. <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
  6. <title>Empty</title>
  7. </head>
  8. <body>
  9. <%
  10.     if Request.ReqParam("action") = "Add User" Then
  11.         ' Add the new user in the userfilter map
  12.  
  13.         Username = Request.ReqParam("name")
  14.         
  15.         On Error Resume Next
  16.  
  17.         Accounts.AddNewUserFilter(UserName)
  18.         
  19.         If Not Err.Number = 0 Then 
  20.             ErrLine = Err.Description
  21.         Else
  22.             if Username = "Guest" Then
  23.                 Path = "GuestAccess.agp"
  24.             Else
  25.                 Path = "EditUserAccess.agp?name=" + Username
  26.             End If
  27.             Response.Redirect(Path)
  28.         End If
  29.     End If
  30. %>
  31.     <p><big><strong><font face="Arial">
  32.         Manage new user
  33.     </font></strong></big></p>
  34. <%
  35.     If Not Len(ErrLine) = 0 Then
  36.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  37.     End If
  38. %>
  39.  
  40.  
  41. <form method="POST" action= "/services/ManageNewUser.agp">
  42.     <div>
  43.     <table border="1" cellpadding="0" cellspacing="0" width="60%">
  44.         <tr>
  45.             <td width="50%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  46.                 Option
  47.             </font></strong></td>
  48.             <td width="50%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  49.                 Value
  50.             </font></strong></td>
  51.         </tr>
  52.         <tr>
  53.             <td width="50%"><strong><font face="Arial">
  54.                 User Name
  55.             </strong></font></td>
  56.             <td width="50%"><font face="Arial">
  57.  
  58.                 <select name="name" size="1">
  59. <%
  60.                 Set users = Accounts.users
  61.                 for i = 1 to users.count
  62.                     Set user = users.item(i)
  63. %>
  64.                     <option value="<%Response.Write(user.Name)%>"><%Response.Write(user.Name)%></option>
  65. <%
  66.                 next
  67. %>
  68.                 </select>
  69.             </font></td>
  70.         </tr>
  71.  
  72.     </table>
  73.     </div>
  74. <br>
  75.  
  76.     <input type="submit" name="action" value="Add User">
  77. </form>
  78. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  79. </body>
  80. </html>
  81.