Sortera arrays

Hejsan!

Jag behöver sortera en array med 2 dimensioner. Har hittat ett script där man kan sortera vanliga arrays, men jag behöver ett för 2d arrays.

<%
  Option Explicit

  Dim MyArray, I
  MyArray = Array(1,5,"olle","adam","linda",123,12,98)
  MyArray = Sort(MyArray)
  For I = 0 to Ubound(MyArray)
    Response.Write MyArray(I) & "<br>" & vbCRLF
  Next
  Response.End

  ' En funktion som sorterar en Array
Function Sort(ary)

    Dim KeepChecking
    Dim I
    Dim FirstValue, SecondValue

    KeepChecking = TRUE
    Do Until KeepChecking = FALSE
        KeepChecking = FALSE
        For I = 0 to UBound(ary)
            If I = UBound(ary) Then Exit For
            If ary(I) > ary(I+1) Then
                FirstValue = ary(I)
                SecondValue = ary(I+1)
                ary(I) = SecondValue
                ary(I+1) = FirstValue
                KeepChecking = TRUE
            End If
        Next
    Loop
    Sort = ary
End Function
%>

Så ser koden ut till 1d-arrayens sortering, men hur gör man om det till att klara 2d array?

Tack på förhand!

Hur skall sortering fungera? Är alla fält relevanta?

MyArray(0,x) = hamta2(0)
MyArray(1,x) = hamta2(1)
MyArray(2,x) = RecSet("artnr")
MyArray(3,x) = RecSet("namn")
MyArray(4,x) = RecSet("beskrivning")
MyArray(5,x) = RecSet("pris")
Så är värdena på Arrayen

vill att dom skall sorteras efter namn, alltså 3,x

x motsvarar ett värde som den får ifrån en FOR-slinga.

Hoppas någon kan lösa detta.

http://www.webforum.nu/showthread.php?s=&threadid=53976&highlight=sortera+AND+array

patrikB's script funkar fint

Tusen tack!

Men jag tror inte att jag får använda det scriptet i min webshop-applikation, ger ju ut den gratis...

Ok, då ska du få ett par sökord av mig att använda på google eller andra najsiga ställen (4guys, etc): quick sort och bubble sort. Du kan ju leka lite med de mellanslagen också. ;)

Mvh,