Display a Random Quote

<%
Dim LowestNumber, HighestNumber, RandomNumber
RANDOMIZE
LowestNumber = 1
HighestNumber = 5
RandomNumber = Int((HighestNumber-LowestNumber+1)*Rnd+LowestNumber)

SELECT Case RandomNumber
Case 1
Response.write "My first random quote"
Case 2
Response.write "My second random quote"
Case 3
Response.write "My third random quote"
Case 4
Response.write "My fourth random quote"
Case 5
Response.write "My fifth random quote"
End Select
%>