<%
'*********************************
'Function: Generator(Length)
'Parameters: Length, arbitrary length value, number of random code digits
'Author: Alixi
'Date: 2007/7/15
'Description: Generate random code functions of any English + digit length
'Example: Generator(80)
'*********************************
FunctionGenerator(Length)
Dimi,tempS
tempS="abcdefghijklmnopqrstuvwxyz1234567890"
Generator=""
IfisNumeric(Length)=FalseThen
ExitFunction
EndIf
Fori=1toLength
Randomize
Generator=Generator&Mid(tempS,Int((Len(tempS)*Rnd)+1),1)
Next
EndFunction
%>