Discount Cigarettes Shop | Marlboro $12.40, Camel - $11.80 | Kent $12.80 | Winston $10.45

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: