Random Tal

Ingen tal må altså gå igen??
Hvilket tal område skal de strække sig imellem???

tal = 8 ' antal forskellige tal
b_tal = "," ' brugte tal

for x = 1 to 1000
randomize
tallet = int(rnd()*tal)+1
if Instr(bTal, "," & tallet & ",") > 0 then bTal = bTal & tallet & ","
if Ubound(Split(bTal)) = 51 then exit for
next

retter lige...

interval = 100 'tallene fra 0 til x må bruges
tal = 50 ' antal forskellige tal
b_tal = "," ' brugte tal

for x = 1 to 1000
randomize
tallet = int(rnd()*interval)+1
if Instr(bTal, "," & tallet & ",") = 0 then bTal = bTal & tallet & ","
if Ubound(Split(bTal)) > tal then exit for
next

Jo tallene må godt gå igen, bare random tal...
Og så skal det være mellem 1 og 100, og som sagt 50 gange.

Og skriv lige hvordan i udskriver det også, for det forrige script forstod jeg ikke lige hvordan man udskrev...
Er det "Tallet" der skal udskrives eller hvad? :S

Tak for svaret :)

Fandt lige ud af det :P

i mit "script" går tallene ikke igen... derfor får du lige det rigtige, nu da jeg har fået så mange points...

interval = 100 'tallene fra 0 til x må bruges
tal = 50 ' antal forskellige tal

for x = 1 to tal
randomize
tallet = int(rnd()*interval)+1
bTal = bTal & "," & tallet
response.write tal & "<br>" 'hvis du vil udskrive enkeltvis
next

response.write bTal 'hvis du vil have dem alle i en string som du senere kan arbejde videre med