home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iiadmls.asp < prev    next >
Text File  |  1997-11-12  |  1KB  |  53 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5. <% 
  6. Const L_ADD_TEXT = "    Add     "
  7. Const L_REMOVE_TEXT = "Remove"
  8. %>
  9.  
  10. <HTML>
  11. <HEAD>
  12.     <TITLE></TITLE>
  13. </HEAD>
  14.  
  15. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" STYLE="font-face: Helv,Arial; font-size:10pt;">
  16.         <FORM NAME="userform">
  17.         <TABLE>
  18.  
  19.         <TR><TD  VALIGN="top"><FONT SIZE=1 FACE="Helv,Arial">
  20.  
  21.             <SELECT NAME="selTrustee" SIZE = 5 MULTIPLE>
  22.  
  23.             <SCRIPT LANGUAGE="JavaScript">
  24.             var nodeList = parent.head.cachedList;
  25.             var numEnabled = 0;
  26.             for (i=0;i<nodeList.length;i++){
  27.                 if (!nodeList[i].deleted){
  28.                 document.write("<OPTION VALUE='"+i+"'>"+nodeList[i].trustee);
  29.                 }                
  30.             }
  31.  
  32.                 document.write("<OPTION>                                ");
  33.  
  34.             document.write("</SELECT>");
  35.  
  36.             </SCRIPT>
  37.  
  38.             <P>
  39.             </TD>
  40.             <TD VALIGN = "top">
  41.             <% if Session("IsAdmin") then %>
  42.                 <INPUT TYPE="Button" VALUE="<%= L_ADD_TEXT %>" onClick="parent.head.listFunc.addItem();"><P>
  43.                 <INPUT TYPE="Button" VALUE="<%= L_REMOVE_TEXT %>" onClick="parent.head.listFunc.delItem();">                
  44.             <% end if %>
  45.             </TD>
  46.         </TR>
  47.         </TABLE>
  48.     </FORM>
  49.  
  50. </BLOCKQUOTE>
  51. </BODY>
  52. </HTML>
  53.