Ciao ragazzi ho questo codice che genera in automatico un pass di 6 lettere.
Siccome devo creare 900 password random ho messo un ciclo per scrivere in una pagine tutte e 900 le pass, il problema è che viene data sempre la stessa. Se faccio un refresh la pass cambia ma rimangono sempre 900 pass identiche. Come posso fare?

codice:
dim conta
conta=0
do while conta<883
caratteri = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
Randomize ' inizializza il generatore di numeri casuale 
Do Until len(password) = 6 ' qui imposti la lunghezza della password 
lettera = Int((27 * Rnd) + 1) ' Genera un valore casuale compreso tra A e Z. 
password = password & Mid(caratteri,lettera,1) 
Loop 
Response.Write ("Il tuo codice è : " & password & "") 
Response.Write("
")
conta=conta+1
loop