Random Proverb

Here's a random proverb (refresh this page to see another one):

And here is the VBscript that generated it:

<%
dim quote(10)     ' declare an array that can hold 11 text strings
quote(0) = "Out of sight, out of mind"
quote(1) = "Absence makes the heart grow fonder."
quote(2) = "He who laughs last laughs longest."
quote(3) = "Make hay while the sun shines."
quote(4) = "Too many cooks spoil the broth."
quote(5) = "A stitch in time saves nine."
quote(6) = "Every cloud has a silver lining."
quote(7) = "Still waters run deep."
quote(8) = "Empty vessels make the most sound."
quote(9) = "There's no smoke without fire."
quote(10) = "If you can't stand the heat then get out of the kitchen."
Randomize()    ' makes sure that the Rnd function generates true random numbers
iRandom = Int(11 * Rnd)     ' generate a random integer from 0 to 10
response.write quote(iRandom)
%>