<%
Dim NumMax
' Initialize the random number generator.
Randomize
' Note:
' The generic formula for generating a random number in a
' range is:
'
' Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
'
' I've simplified this where possible, but all the random
' generation below is based upon this basic form.
Dim NumRND ' A var to store our randomn number
NumMax=7
' Pick a random number between 1 and NUMBER_OF_IMAGES (4)
NumRND = Int((NumMax * Rnd) + 1)
%>