Dim Deger
Deger = Array(12,24,51,24,15,35,15,650,418)


Function BubbleSort(arrInt)
for i = UBound(arrInt) - 1 To 0 Step -1
    for j= 0 to i
        if arrInt(j)>arrInt(j+1) then
            temp = arrInt(j+1)
            arrInt(j+1) = arrInt(j)
            arrInt(j) = temp
        end if
    next
next 
BubbleSort = arrInt
end function

response.write Join(BubbleSort(Deger ),",")