codice:
Sub elabora2()
ReverseSortie n
MsgBox ReverseSortie(n)
End sub

Function ReverseSortie(valoriDaMischiare)
Dim num(54)
for h = 1 to 54: num(h) = h: next
for h = 1 to 54
X = Fix(Rnd(1) * 54) + 1
Y = Fix(Rnd(1) * 54) + 1
tin = num(X): num(X) = num(Y): num(Y) = tin
next
for h = 1 to 20: nuova = nuova & num(h) & ",": next
ReverseSortie = nuova
End function
Ho trovato questo script per generare casualmente una sequenza di 54 numeri...
da questi farò si di memorizzare la sequenza di un mazzo di carte sul database...
praticamente lo script genera un' allert dove viene indicata la sequenza.

come faccio a tradurre lo script in asp ed a far si che invece di generare l' allert ogni numero venga memorizzato dentro una casella di una tabella?

E' un po di tempo che non lavoro in asp.. potete aiutarmi?
Grazie.