Random code generation

Copy after login

1 < %
 2 Function RndCode()
 3 CodeSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
 4 AmountSet = 62 ' Amount of text
 5 Randomize
 6
 7 ' Generate random characters
 8 Dim vCode( 10 ), vCodes
 9 For i = 0 To 9
10 vCode(i) = Int( Rnd * AmountSet)
11 vCodes = vCodes & Mid (CodeSet, vCode(i) + 1 , 1 )
12 Next
13 RndCode = vCodes
14 End Function
15
16 % >
17 < % = RndCode()% >
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.