Any suggestions?

arTest = arraySort(arTest,1,true)

is called

code————————

function arraySort( arToSort, sortBy, compareDates )

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

For c = 0 To uBound( arToSort, 2 ) – 1
"=== set smallest to current
smallestValue = arToSort( sortBy, c )
smallestIndex = c
For d = c + 1 To uBound( arToSort, 2 ) "=== find smallest and set
if not compareDates then
if strComp( 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
arraySort = arToSort
end function

dim arTest(2,2)
arTest(0, 0) = 1
arTest(0, 1) = "01-01-2004"
arTest(0, 2) = "Event #1"
arTest(1, 0) = 2
arTest(1, 1) = "10-01-2005"
arTest(1, 2) = "Event #2"
arTest(2, 0) = 3
arTest(2, 1) = "02-01-2006"
arTest(2, 2) = "Event #3"

arTest = arraySort(arTest,1,true)

For i=LBound(arTest,1) to UBound(arTest,1)
For j=LBound(arTest,2) to UBound(arTest,2)
response.write(arTest(i,j) & " ")
next
if j mod 3 = 0 then response.write(" ")
next