Generare codici casuali

[klinik]

Salve, dovrei generare dei codici casuali a tot cifre.
Ho usato questo script:

<%
' generazione chiave casuale
caratteri = "1234567890"
'lettera = "ABCDEFGHILMNOPQRSTUWZ"
Randomize ' inizializza il generatore di numeri casuale

Do Until len(cupon1) = 8 ' qui imposti la lunghezza della password
lettera = Int((27 * Rnd) + 1) ' Genera un valore casuale compreso tra A e Z.
cupon1 = cupon1 & Mid(caratteri,lettera,1)
Loop

' Connessione al DB
myDB = "database.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)

' Lavoriamo sul Recordset
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "coupons", conn, 3, 3
rs.addnew

rs("coupons") = cupon1
rs("scontistica") = scontistica

rs.update

' Chiusura del database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing

%>

Lo script genera 1 codice di 8 numeri e lo memorizza su un database.
Lo script l'ho duplicato 20 volte in modo che mi generi e mi memorizzi 20 numeri alla volta.
A generarne 1000 ho dovuto aggiornare la pagina 50 volte...

Come posso fare a far generare e memorizzare almeno 200 numeri alla volta senza stal là a cliccare una marea di volte??

Grazie
Gabriele

[Roby_72]

Metti tutto all'interno di un ciclo for-next da 1 a 200.

Roby

[santino83_11_04]

function randomKey()

dim caratteri,lettera

' generazione chiave casuale
caratteri = "1234567890" 
'lettera = "ABCDEFGHILMNOPQRSTUWZ" 
Randomize ' inizializza il generatore di numeri casuale 

Do Until len(cupon1) = 8 ' qui imposti la lunghezza della password 
lettera = Int((27 * Rnd) + 1) ' Genera un valore casuale compreso tra A e Z. 
cupon1 = cupon1 & Mid(caratteri,lettera,1) 
Loop

randomKey=cupon1

end function


for i=1 to 200

response.write randomKey

next

[santino83_11_04]

cmq il cuore della funzione dovrebbe essere + giusto così:

caratteri = "1234567890" 
'lettera = "ABCDEFGHILMNOPQRSTUWZ" 


Do Until len(cupon1) = 8 ' qui imposti la lunghezza della password 
Randomize ' inizializza il generatore di numeri casuale 
lettera = Int((27 * Rnd) + 1) ' Genera un valore casuale compreso tra A e Z. 
cupon1 = cupon1 & Mid(caratteri,lettera,1) 
Loop

[klinik]

Vi ringrazio. adesso funziona tutto bene.

Gab