<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% function RandomString() Randomize() dim CharacterSetArray CharacterSetArray = Array(_ Array(7, "abcdefghijklmnopqrstuvwxyz"), _ Array(1, "0123456789") _ ) dim i dim j dim Count dim Chars dim Index dim Temp for i = 0 to UBound(CharacterSetArray) Count = CharacterSetArray(i)(0) Chars = CharacterSetArray(i)(1) for j = 1 to Count Index = Int(Rnd() * Len(Chars)) + 1 Temp = Temp & Mid(Chars, Index, 1) next next dim TempCopy do until Len(Temp) = 0 Index = Int(Rnd() * Len(Temp)) + 1 TempCopy = TempCopy & Mid(Temp, Index, 1) Temp = Mid(Temp, 1, Index - 1) & Mid(Temp, Index + 1) loop RandomString = TempCopy end function %>

Name of the institution / university / school *	:
Designation *	:
Title	:	Mr.  Ms.  Mrs. Dr.
First Name *	:
Last Name	:
E-mail Address *	:
Telephone *	:
Address	:
City / State	:
Postal Code	:
Country	:	USA UK Canada Italy France Germany Netherlands Poland Belgium Hungary Australia New Zealand Norway Sweden Denmark Finland Bulgaria Austria Others
Please let us know the nature of your query * (If promotional or student recruitment tours, please mention cities.)	:
Please Enter Security Code As Displayed	:	<% randomKey = RandomString() %>