% Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" %>
First Name:
Last Name:
E-Mail:
Type comments here.
<% '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 'Randomize() ' Find range size 'intRangeSize = 5000 - 1000 + 1 ' Get a random number from 0 to the size of the range 'sngRandomValue = intRangeSize * Rnd() ' Center the range of possible random numbers over the desired result set 'sngRandomValue = sngRandomValue + intLowerBound ' Convert our value to an integer 'intRandomInteger = Int(sngRandomValue) dim randnum randnum = RndStringGen(6,1,3) For intWriteDigitLoopCount = 1 to Len(randnum) 'Display the graphical hit count Response.Write("") Next %>
Verification code: