Contact Us » News
Print this
Email a Friend
Newsletter Signup
First Name
:
Last Name
:
Gender
:
Select Gender
Female
Male
Phone
:
Fax
:
Age
:
Location
:
E-mail ID
:
Do you own a Classic or Exotic Car/Bike?
If Yes
:
Verification Code :
:
<% '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(5,1,2) For intWriteDigitLoopCount = 1 to Len(randnum) 'Display the graphical hit count Response.Write("
") Next %>
Confirm Security Code Please Enter The 5 Character CodeShown Above:
:
Home
|
Contact Us
|
Advertise with Us
© 2007 Rolling Art Emporium, All Rights reserved, Design by
Ebrainwave
