| |
|
<%
'Dimension variables
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
Dim intLowerBound ' Lower bound of the random number range
Dim intUpperBound ' Upper bound of the random number range
Dim intRangeSize ' Size of the range
Dim sngRandomValue ' A random value from 0 to intRangeSize
Dim intRandomInteger ' Our final result - random integer to return
dim randnum
randnum = RndStringGen(5,1,2)
For intWriteDigitLoopCount = 1 to Len(randnum)
'Display the graphical hit count
Response.Write("![]() ")
Next%> |
