Bubblesort i asp

Hej eksperten..

jeg sidder lige og leget lidt med noget bubblesort, og har lavet dette script, og på en måde, virker det også fint, men det ser ud til at den kun sortere efter det første tal:
Her er koden:

<%
ANTAL = 10
x = 0
random = ""
hold = ""

randomize
for x = 0 to ANTAL
    random = Cint(rnd()*100)
    random_list = random_list & Cstr(random) & ","
next

arr_random_list = split(random_list,",")

for x = 0 to UBound(arr_random_list)
    response.write(arr_random_list(x) & "<br>")
next

response.write("<br><br>")   

for x = 0 to UBound(arr_random_list)
    for y = 0 to UBound(arr_random_list) -1
        if arr_random_list(y) <= arr_random_list(y+1) then
        hold = arr_random_list(y+1)
        arr_random_list(y+1) = arr_random_list(y)
        arr_random_list(y) = hold
        end if
    next
next

for x = 0 to UBound(arr_random_list)
    response.write(arr_random_list(x) & "<br>")
next
%>

kan se koden i funktion her: www.nicetrade.dk/try/rand.asp

//krab