<%
' Last Updated 11th Dec 2006
' Jonathan Maxwell

Sub BuildArray(objDict, aTempArray) 
	Dim nCount, strKey
	nCount = 0
	
	'-- Redim the array to the number of keys we need 
	Redim aTempArray(objDict.Count - 1)

	'-- Load the array 
	For Each strKey In objDict.Keys
		'-- Set the array element to the key 
		aTempArray(nCount) = strKey 
		nCount = nCount + 1
	Next 
End Sub

Sub SortArray(aTempArray) 
	Dim iTemp, jTemp, strTemp

	For iTemp = 0 To UBound(aTempArray)  
		For jTemp = 0 To iTemp  
			If strComp(aTempArray(jTemp), aTempArray(iTemp)) > 0 Then
				'Swap the array positions
				strTemp = aTempArray(jTemp) 
				aTempArray(jTemp) = aTempArray(iTemp) 
				aTempArray(iTemp) = strTemp 
				
			End If 
		Next 
	Next 
End Sub


%>