<%@ LANGUAGE = VBScript%><% tmpColor = UCase (Request("Color")) If tmpColor = "" then Randomize tmpCount = Int(6 * Rnd + 1) Select Case tmpCount Case 1 tmpColor="B" Case 2 tmpColor="G" Case 3 tmpColor="O" Case 4 tmpColor="P" Case 5 tmpColor="R" Case 6 tmpColor="Y" End Select End If %> <% If Ucase(Request("Java")) <> "NO" then %> Sorry, your browser doesn't suppor Java. Stop<% Else %> Start<% End If %>