random filename creation <% 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 (longth) = 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%>
