Generare sequenza casuale di lettere e numeri

[[trodat]]

function GenerateSessionID(nchar)
dim sessionID
sessionID = ""
randomize timer
dim i, n
for i=0 to nchar-1
do
n = int(rnd * 75) + 48
loop until ((n >= 48) AND (N <= 57)) OR ((N >= 65) AND (N <= 90)) OR ((N >= 97) AND (N <= 122))
sessionID = sessionID & chr(n)
next
GenerateSessionID = sessionID
end function
strGenerateSessionID = GenerateSessionID(30)

response.write strGenerateSessionID