home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ims.cab / smmnus.asp < prev    next >
Text File  |  1997-10-12  |  595b  |  21 lines
  1. <% Response.Expires = 0 %>
  2. <% sel = Cint(Request("sel")) %>
  3. <BODY BGCOLOR="#000000" LEFTMARGIN=0 TOPMARGIN=0>
  4. <TABLE HEIGHT=270 WIDTH=10 BORDER=0 CELLSPACING=0 CELLPADDING=0>
  5.     <% i = 1 %>
  6.        <% while (i < 10) %>
  7.            <TR>
  8.         <% if ( sel <> i ) then %>
  9.             <TD VALIGN="middle">
  10.                 <FONT SIZE=2 FACE="Arial"><B> </B></FONT>
  11.             </TD>
  12.         <% else %>
  13.             <TD VALIGN="middle">
  14.                 <FONT SIZE=2 FACE="Arial"><B><IMG ALIGN="textmiddle" SRC="images/gnictoc1.gif" HEIGHT=10 WIDTH=10></B></FONT><br>
  15.             </TD>
  16.         <% end if %>
  17.         </TR>
  18.         <% i = (i+1) %>
  19.     <% wend %>
  20. </TABLE>
  21. </BODY>