generatore password casuali in un ciclo do while

[liana79]

Ciao a tutti ,
all'interno di un ciclo do while ho messo un generatore di password casuali (numeri e lettere) :

Do While Not tsTextStream.AtEndOfStream

caratteri = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ/"
Randomize

Do Until len(password) = 10
carattere = Int((37 * Rnd) + 1)
password = password & Mid(caratteri,carattere,1)
Loop

response.write password

loop

Il codice normalmente funziona benissimo ma in questo caso per tutte le righe scrive la stessa password non va avanti... non riesco a vedere l'errore , potete aiutarmi per favore??

grazie

[Mems]

Do Until len(password) = 10 
randomize()
carattere = Int((37 * Rnd) + 1) 
password = password & Mid(caratteri,carattere,1)
Loop

[liana79]

niente, ho provato ma non va nemmeno cosi... genera sempre la stessa password.

[optime]

eliana, dopo che hai fatto la prima, la len è già 10.... azzerala ad ogni giro

[liana79]

Siii funziona!!!
"Pensare è il lavoro più pesante che ci sia" mi riferisco a me... non ho proprio visto che non svuotavo la variabile.

grazieee

[optime]

Originariamente inviato da liana79
"Pensare è il lavoro più pesante che ci sia" ... mi riferisco a me ...

allora hai sbagliato lavoro

[liana79]

Mi hai fregata ...
giusta affermazione ma non ho sbagliato lavoro è troppo bello pensare !