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