home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iiadmbd.asp < prev    next >
Text File  |  1997-11-12  |  1KB  |  51 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5. <% 
  6. Const L_NAMES_TEXT = "Names"
  7. Const L_ADD_VALUE="Add"
  8. Const L_MEMBERS_VALUE="Members"
  9. Const L_SEARCH_VALUE="Search"
  10.  
  11. Dim blanks,i
  12.  
  13. blanks = "" 
  14. for i = 0 to 23
  15.     blanks = blanks & " "
  16. Next
  17. %>
  18.  
  19. <HTML>
  20. <HEAD>
  21.     <TITLE></TITLE>
  22. </HEAD>
  23.  
  24. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" STYLE="font-face: Helv,Arial; font-size:10pt;">
  25.         <FORM NAME="userform">
  26. <BLOCKQUOTE>
  27.         <TABLE>
  28.  
  29.         <TR><TD  VALIGN="top"><FONT SIZE=1 FACE="Helv,Arial"><%= L_NAMES_TEXT %><BR>
  30.  
  31.             <SELECT NAME="selNames" SIZE = 5 >
  32.             <OPTION><%= blanks %>
  33.             </SELECT>
  34.             <P>
  35.             </TD>
  36.             </TR>
  37.             <TR>
  38.             <TD VALIGN = "top">
  39.                 <INPUT TYPE="button" VALUE="<%= L_ADD_VALUE %>" onClick="parent.head.listFunc.addItem();"> 
  40.                 <INPUT TYPE="button" VALUE="<%= L_MEMBERS_VALUE %>" onClick="parent.head.listFunc.addItem();"> 
  41.                 <INPUT TYPE="button" VALUE="<%= L_SEARCH_VALUE %>" onClick="parent.head.listFunc.addItem();">
  42.  
  43.             </TD>
  44.         </TR>
  45.         </TABLE>
  46.     </FORM>
  47.  
  48. </BLOCKQUOTE>
  49. </BODY>
  50. </HTML>
  51.