ExchangeSort Function:

The ExchangeSort function sorts an array alphabetically (A - Z) or numerically (low to high). ExchangeSort expects an array as input.

Syntax:
array = ExchangeSort(unsortedarray)
Example Usage: 
<%
Dim Item
For Each Item In ExchangeSort( Array( "jonny", "steve", "bill", "brian", "alfred" ) )
	Response.Write Item & "<BR>"
Next
 ' returns:
 '   alfred
 '   bill
 '   brian
 '   jonny
 '   steve


Dim Item
For Each Item In ExchangeSort( Array( 512, 10, 81, 6, 452 ) )
	Response.Write Item & "<BR>"
Next
 ' returns:
 '   6
 '   10
 '   81
 '   452
 '   512
%>
ASP Source Code: 
<%
Private Function ExchangeSort(byVal unsortedarray)
	Dim Front, Back, I, Temp, Arrsize, Excom, Exswap
	Arrsize = UBOUND( unsortedarray )
	For Front = 0 To Arrsize
		For Back = Front To Arrsize
			Excom = Excom + 1
			If unsortedarray(Front) > unsortedarray(Back) Then
				Temp = unsortedarray(Front)
				unsortedarray(Front) = unsortedarray(Back)
				unsortedarray(Back) = Temp
				Exswap = Exswap + 1
			End If
		Next
	Next
	ExchangeSort = unsortedarray
End Function
%>