<%
'**************************************************************************
' class: crandom
'calls randomize to seed the random number generator.
'provides functions for returning ranged random integers or arrays of
'ranged random integers.
'**************************************************************************
class crandom

' calling randomize to seed the random number generator at the time the
' class is created seemed like a reasonable thing to do.
private sub class_initialize()
' check the vbscript documentation for the specifics relating
' to the randomize function
randomize
end sub

' terminate doesn't need to do anything for this class
private sub class_terminate()
end sub

'**********************************************************************
' function:rangedrandom
' parameter:lowerbound, the lowest allowable number to return
' parameter:upperbound, the highest allowable number to return
' returns:a random integer between lowerbound and upperbound,
'inclusive
'**********************************************************************
public function rangedrandom( lowerbound, upperbound )
rangedrandom = cint((upperbound - lowerbound) * rnd + lowerbound)
end function

'**********************************************************************
' function: rangedrandomarray
' parameter: lowerbound, the lowest allowable number to return
' parameter: upperbound, the highest allowable number to return
' parameter: arraysize, zero based number specifying the size of the array
' parameter: duplicates, true or false to indicate whether duplicate
' random values are allowed in the array
' returns: a single dimension array sized to match the arraysize
' parameter, containing random integers between lowerbound and
' upperbound, inclusive
'**********************************************************************
public function rangedrandomarray(lowerbound, upperbound, arraysize, duplicates)
dim temparray()
dim filledelements, tempvalue, badvalue, i

' resize the temparray to hold the number of elements passed in the
' arraysize parameter
redim temparray(arraysize)

' this is a loop counter, set it to 0
filledelements = 0

' loop until filledelements is equal to the arraysize + 1
do until filledelements = arraysize + 1

' call the rangedrandom function with the lowerbound and upperboundparameters
tempvalue = rangedrandom( lowerbound, upperbound )

' handle the case where we don't want duplicate values
if duplicates = false then
badvalue = false
for i = 0 to ubound(temparray)
' check if the new random value already exists in the array
' if it does set the badvalue flag to true and break out of the loop
if tempvalue = temparray(i) then
badvalue = true
exit for
end if
next
if badvalue = false then
temparray(filledelements) = tempvalue
filledelements = filledelements + 1
end if
else
' handle the case where duplicate values in the array are acceptable
temparray(filledelements) = tempvalue
filledelements = filledelements + 1
end if
loop

' return the array
rangedrandomarray = temparray
end function

end class
%>
<%
' all the code that follows is example code showing the use of the
' crandom class.

dim objrandom
dim flip
dim randomarray
dim rowstotest
dim i, j

' create an instance of our class
set objrandom = new crandom

' set the number of iterations that we want to test
rowstotest = 10

' "toggle" to determine whether or not we set the bgcolor of the table row
flip = true

' start the table
response.write "<table border=0 cellpadding=1 cellspacing=1>"

for j = 0 to rowstotest
' we'll alternate the bgcolor of the table rows based on the
' value of the flip variable
if flip then
response.write "<tr bgcolor=lightgrey>"
else
response.write "<tr>"
end if

' call the rangedrandomarray function