![]() |
|
|
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:
Site developed by Michael Wall - Web Design Belfast N.Ireland. |
|