Bubble Sort:

Click here to test this script.

Code:

<%
Dim nameArray(9,1), i
nameArray(0,0) = "Darren"
nameArray(0,1) = 10
nameArray(1,0) = "Andrew"
nameArray(1,1) = 5
nameArray(2,0) = "Paul"
nameArray(2,1) = 8
nameArray(3,0) = "Homer"
nameArray(3,1) = 2
nameArray(4,0) = "Bart"
nameArray(4,1) = 1
nameArray(5,0) = "Lisa"
nameArray(5,1) = 7
nameArray(6,0) = "Barney"
nameArray(6,1) = 6
nameArray(7,0) = "Fred"
nameArray(7,1) = 9
nameArray(8,0) = "Wilma"
nameArray(8,1) = 3
nameArray(9,0) = "Betty"
nameArray(9,1) = 4
%>

<%
call arraySort(nameArray, 1)

Response.Write "Sorted by Number: "
For i = LBound(nameArray) to UBound(nameArray)
 Response.Write nameArray(i, 0) & " - "
 Response.Write nameArray(i, 1) & " "
Next

call arraySort(nameArray, 0)

Response.Write "Sorted by Name: "
For i = LBound(nameArray) to UBound(nameArray)
 Response.Write nameArray(i, 0) & " - "
 Response.Write nameArray(i, 1) & " "
Next
%>

<%
Sub arraySort(byRef arrArray, DimensionToSort)

Dim i, x, smallest_value, smallest_key, rememberkey, rememberval, swap_pos, OtherDimension

Const column = 1
    
    If DimensionToSort = 1 then
		OtherDimension = 0
	ElseIf DimensionToSort = 0 then
		OtherDimension = 1
	End If
    
    For i = 0 To UBound( arrArray, column ) - 1

smallest_value = arrArray ( i, DimensionToSort )
 rememberkey = arrArray ( i, OtherDimension )
 rememberval = arrArray ( i, DimensionToSort )
 swap_pos = i
		
 For x = i + 1 to UBound( arrArray, column )
 If arrArray ( x, DimensionToSort ) < smallest_value Then
 swap_pos = x
 smallest_value = arrArray ( x, DimensionToSort )
 smallest_key = arrArray ( x, OtherDimension )
 End If
 Next
		
 If swap_pos <> i Then
 arrArray ( swap_pos, OtherDimension ) = rememberkey
 arrArray ( swap_pos, DimensionToSort ) = rememberval
 arrArray ( i, OtherDimension ) = smallest_key
 arrArray ( i, DimensionToSort ) = smallest_value
 End If	
 
 Next
 
End Sub
%>