Search
Home | About CA | Norms | Our Programmes | Our Members | Committees | Good Governance | Endorsement | Annual Reports | Contact Us
 
News Letters
 
View Newsletter
Subscribe Newsletter
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
News Letters Form
 
Registration Form
 Fields marked with a * are mandatory.
Name:   
Organisation:   
Position:  
*E-mail:   
Address:   
   
*Pin Code:   
*City:   
*Country:   
*For verification, type the number from the image in the textbox below.
By entering this code you help us prevent spam & hacking attempts.
<% '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) For intWriteDigitLoopCount = 1 to Len(intRandomInteger) 'Display the graphical hit count Response.Write("") Next %>
 
 
Should you wish to edit your profile or unsubscribe, please click here
 
 
 
 
 
 
       
 
Home | About CA | Norms | Our Programmes | Our Members | Committees | Good Governance | Endorsement | Join Us
Annual Reports | Downloads & Resources | Privacy Policy | Contact Us | Site Map
 
© 2009 Credibility Alliance All Right Reserved