<% Function Gen_Key (DIGITS)
DIM CHAR_ARRAY (35)
Char_Array (0) = "0"
Char_Array (1) = "1"
Char_Array (2) = "2"
Char_Array (3) = "3"
Char_Array (4) = "4"
Char_Array (5) = "5"
Char_Array (6) = "6"
Char_Array (7) = "7"
Char_Array (8) = "8"
Char_Array (9) = "9"
Char_Array (10) = "a"
Char_Array (11) = "b"
Char_Array (12) = "c"
Char_Array (13) = "d"
Char_Array (14) = "e"
CHAR_ARRAY (15) = "f"
CHAR_ARRAY (16) = "g"
Char_Array (17) = "h"
Char_Array (18) = "i"
Char_Array (19) = "j"
Char_Array (20) = "k"
Char_Array (21) = "L"
Char_Array (22) = "m"
Char_Array (23) = "n"
Char_Array (24) = "o"
Char_Array (25) = "p"
Char_Array (26) = "q"
Char_Array (27) = "r"
Char_Array (28) = "s"
Char_Array (29) = "t"
CHAR_ARRAY (30) = "u"
Char_Array (31) = "v"
Char_Array (32) = "w"
Char_Array (33) = "x"
Char_Array (34) = "Y"
Char_Array (35) = "z"
randomize
Do While Len (Output) Num = char_Array (int (35 * rND 0))) Output = OUTPUT NUM loop Gen_key = Output END FUNCTION %>
