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
%>

Output:
My fifth random quote

Get the best asp web hosting provider now and save 30%

Advertisements



MembersPro

MembersPro PayPal - ASP Membership software

Plug and play ASP membership script that integrates with PayPal to let you charge recurring membership fees.