home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / ins.cab / nnmnus.asp < prev    next >
Encoding:
Text File  |  1997-08-16  |  590 b   |  21 lines
  1. <% Response.Expires = 0 %>
  2. <% sel = Cint(Request("sel")) %>
  3. <BODY BGCOLOR="#000000" LEFTMARGIN=0 TOPMARGIN=0>
  4. <TABLE HEIGHT=210 WIDTH=10 BORDER=0 CELLSPACING=0 CELLPADDING=0>
  5.     <% i = 1 %>
  6.        <% while (i < 9) %>
  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>
  15.             </TD>
  16.         <% end if %>
  17.         </TR>
  18.         <% i = (i+1) %>
  19.     <% wend %>
  20. </TABLE>
  21. </BODY>