'--

Function Random(myLength)
Const minLength = 6
Const maxLength = 20
Dim X, Y, strRef
If myLength = 0 Then
	Randomize
	myLength = Int((maxLength * Rnd) + minLength)
End If
For X = 1 To myLength
	'randomize character type
	Y = Int((2 * Rnd) + 1) '(1) numeric, (2) uppercase, (3) lowercase
	Select Case Y
		Case 1
			'numeric
			Randomize
			strRef = strRef & CHR(Int((9 * Rnd) + 48))
		Case 2
			'uppercase
			Randomize
			strRef = strRef & CHR(Int((25 * Rnd) + 65))
		Case 3
			'lowercase
			Randomize
			strRef = strRef & CHR(Int((25 * Rnd) + 97))
	End Select
Next
Random = strRef
End Function

NewToken = Random(20)

Response.Write(NewToken)

'--