<% Response.Expires = 0 %> <% sel = Cint(Request("sel")) %> <% i = 1 %> <% while (i < 9) %> <% if ( sel <> i ) then %> <% else %> <% end if %> <% i = (i+1) %> <% wend %>