webserver.com.my - home

Home Web Hosting & Services Support Center Reseller About Us News Site Map
Contact Us
Online Feedback
Prompt service is one of our many principles. Should you want to know more about us, we would be glad to answer all your queries. Please fill in the feedback form below and we shall get in touch real soon.
(* required fields)

Name* :
Company :
Address* :
Email* :
Telephone* :
Fax :
I would like* :
Comments :
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("") %>
Are you human ? : Yes No
Category : Contact Us
   Operation Center
   Administration Department
   Online Feedback
About WebServer | Site Map | Contact Us
 Privacy Statement | Terms of Use