View Single Post

welshstew · #1 (**permalink**) Nov 23rd, 2007, 08:36

I am still learning ASP functions, so please be gentle with me. I have got a script that sorts a multi-dimensional array Ascending, but I need to switch this to Descending.

Anyway, I've gone and got myself all confuddled, and can't see the wood for the trees. Any help is hugely appreciated.

Code: Select all

Function arraySortDecend( arToSort, sortBy, compareDates )

    Dim c, d, e, smallestValue, smallestIndex, tempValue

    For c = 0 To uBound( arToSort, 2 ) - 1

        smallestValue = arToSort( sortBy, c )
        smallestIndex = c

        For d = c + 1 To uBound( arToSort, 2 )
            if not compareDates then
                if strComp( arToSort( sortBy, d ), smallestValue ) < 0 Then
                smallestValue = arToSort( sortBy, d )
                smallestIndex = d
                End if
            else
                if not isDate( smallestValue ) then
                    arraySort = arraySort( arToSort, sortBy, false)
                    exit function
                else
                    if dateDiff( "d", arToSort( sortBy, d ), smallestValue ) > 0 Then
                        smallestValue = arToSort( sortBy, d )
                        smallestIndex = d
                    End if
                end if
            end if
        Next

        if smallestIndex <> c Then 'swap
            For e = 0 To uBound( arToSort, 1 )
                tempValue = arToSort( e, smallestIndex )
                arToSort( e, smallestIndex ) = arToSort( e, c )
                arToSort( e, c ) = tempValue
            Next
        End if
    Next
    End Function