io utilizzo questa bella funzioncina:
codice:
' Genera una stringa casuale di nchar caratteri
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
il parametro in ingresso è la lunghezza della stringa che vuoi ottenere (che viene restituita dalla funzione)