Randomize en række af tal

Random_Number_Min = 1
Random_Number_Max = 24

De bliver loopet ud som:

For i = Random_Number_Min To Random_Number_Max
response.write i &"<br>"
Next

Men jeg vil gerne have dem ud i random rækkefølge.

Jeg har prøvet med

<%
' Determines how many unique random numbers to be produced
tot_unique=5

' Determines the highest value for any unique random number
top_number=5
dim random_number, counter, check, unique_numbers
' When passing a varible for an array use redim
redim random_number(tot_unique)
' begin random function
randomize
' Begin a for next loop from one to the max number of unique numbers
For counter = 1 to tot_unique
' select a number between 1 and the top number value
random_number(counter) = Int(Rnd * top_number)+1
' For next loop to compare the values stored in the array to
' the new random value being assigned
for check=1 to counter-1
if random_number(check)= random_number(counter) then
' If the current value is equal to a previous value
' subject
counter=counter-1
end if
next ' Repeat loop to check values
next ' Repeat loop to assign values to the array
%>

<p>
<ol><% 'write out the unique numbers in a list for display
For counter = 1 to tot_unique
response.write "<li>" & random_number(counter) & "</li>"

next
%>


Men det virker ikke med 24 så bliver det simpelthen så langsomt