code:
<% Function Generator (Length) DIM I, TEMPS, V DIM C (39) Temps = "" C (1) = "A": C (2) = "B": c (3) = "c": c (4) = "d": c (5) = "e": c (6) = "f": c (7) = "g" c (8) = "h": c (9) = "i ": C (10) =" j ": c (11) =" k ": c (12) =" l ": c (13) =" m ": c (14) =" n "c (15) = "O": c (16) = "p": c (17) = "q": c (18) = "r": c (19) = "s": c (20) = "t": C (21) = "u" c (22) = "V": c (23) = "w": c (24) = "x": c (25) = "y": c (26) = " Z ": c (27) =" 1 ": c (28) =" 2 "c (29) =" 3 ": c (30) =" 4 ": c (31) =" 5 ": c (32 = "6": c (33) = "7": c (34) = "8": c (35) = "9" c (36) = "-": c (37) = "_": C (38) = "@": c (39) = "!" if isnumeric (length) = false the response.write "a Numeric Datattype Was Not Submitted to this function." EXIT FUNCTION END IF for I = 1 to Length Randomize v = int ((39 * RND) 1) Temps = Temps & C (v) Next Generator = Temps end function for i = 1 to 20 randomize x = int ((20 * RND) 1) 10 Response. Write generator (x) & "
" & vbnewline next%>
