<%
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 %>
<% Case 4 %>
<% Case 5 %>
<% Case 7 %>
<% End Select %>