Ho ideato una cosa ma (c'è sempre un ma)...
codice:
Dim Rank(10)
'Genera un numero random 0 a 299 (300 sono i recordset del DB)
Randomize()
min_val = 0
max_val = 299
all_vals = max_val - min_val + 1
numero = CInt(all_vals*Rnd() + min_val)
'Fai una SQL sul DB dove estratto=False (false=non estratto)
sql="select * from tab Where estratto=False"
Set rs=OBJdbConnection.Execute(sql)
for i = 0 to 299
'creo un Array e assegno a ogni array (da 0 a 299) un recordset
rank(i)=rs("ID")
rs.movenext
Next
' Prendi RS al quale ho assegnato il numero random
response.write (rank(numero) & " " & numero & "
")
'segno il recordset come estratto=True
OBJdbConnection.Execute "UPDATE tab_midi SET estratto=True WHERE ID="& rank(numero)
Bhè funziona... il MA sta nel fatto:
Ma 300 variabili (l'array) non mi faranno skiattare il server? E se sono + utenti in contemporanea sono 300+300+300... variabili....