<% Dim LowestNumber, HighestNumber, RandomNumber RANDOMIZE LowestNumber = 1 HighestNumber = 5 RandomNumber = Int((HighestNumber-LowestNumber+1)*Rnd+LowestNumber) SELECT Case RandomNumber %> <% Case 1 %> <% Case 2 %> <% Case 3 %> <% Case4%> <% Case 5 %> <% End Select %>