%@ 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 %>
We would highly recommend you get a newer browser from either Microsoft or Netscape.