'**************************************
    ' Name: Sort arrays
    ' Description:Vbscript function that sor
    '     ts 
    an one-dimensional array 
    of number either ascending
    or descending.
    This function sorts using 
    the well known Double 
    for..next principle. 
    Script gives an overview 
    of passing parameters 
    and especially passing 
    arrays of numbers 
    To a function.
    ' By: Rogier Doekes
    '
    ' Inputs:The function gets as 
    input an unsorted 
    array, plus 1 For 
    ascending sorting 
    or something Else 
    For descending sorting
    '
    ' Returns:The function returns
    a sorted array of numbers.
    '
    ' Assumes:Using SQL sorting is not
    a problem. However, For 
    those cases when there 
    is no SQL To sort with, 
    or an array of numbers 
    is manipulated requiring 
    a sort, this function 
    might come In handy. 
    Also, VBscript does 
    Not have a build-in 
    sorting function.
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=6495&lngWId=4    'for details.    '**************************************
    
    '--------Begin Function----
    function fnSort(aSort, intAsc)
    Dim intTempStore
    Dim i, j 
    For i = 0 To UBound(aSort) - 1
    For j = i To UBound(aSort)
    'Sort Ascending
    if intAsc = 1 Then
    if aSort(i) > aSort(j) Then
    intTempStore = aSort(i)
    aSort(i) = aSort(j)
    aSort(j) = intTempStore
    End if 'i > j
    'Sort Descending
    Else
    if aSort(i) < aSort(j) Then
    intTempStore = aSort(i)
    aSort(i) = aSort(j)
    aSort(j) = intTempStore
    End if 'i < j
    End if 'intAsc = 1
    Next 'j
    Next 'i
    fnSort = aSort
    End function 'fnSort
    '-------------------------
    Dim aUnSort(3), aSorted
    aUnSort(0) = 4
    aUnSort(1) = 2
    aUnSort(2) = 6
    aUnSort(3) = 20
    'call the function
    'second argument:
    ' * ascending sorted = 1
    ' * descending sorting = any other chara
    '     cter
    aSorted = fnSort(aUnSort, 1)
    Erase aUnSort