webserver.com.my - Web Hosting, Domain Name Registration, Ecommerce Solutions and more.

Your domain name:

Your name:

Your Telephone No:

Your email:

Indicate your problem here:

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 Response.Write("") %>

This email will be send to: Support@webserver.com.my