'************************************************************
' This function takes an array and prints out the first
' or second half of the array, defaulting to print the
' first half with one additional row if Length mod 2 is not 0.
' Prototyped by: Dan Smith
'************************************************************
Sub PrintArrayHalf(Array,ArrayHalf)
	If ArrayHalf = 1 Then
		MiddleBound = ceil(UBound(Array) / 2)-1
		For Counter = 0 to MiddleBound
			Response.Write (Array(Counter)) 
		Next  			
	ElseIf ArrayHalf = 2 Then 
		LowerBound = ceil(UBound(Array) / 2)
		For Counter = LowerBound to UBound(Array)
			Response.Write (Array(Counter)) 
		Next 																
	End If													
End Sub

'************************************************************
' This function takes an array and prints out the first
' or second half of the array, defaulting to print the
' first half with one additional row if Length mod 2 is not 0.
' Prototyped by: Dan Smith
'************************************************************
Sub PrintArrayHalf(Array,ArrayHalf)
	If ArrayHalf = 1 Then
		MiddleBound = Round(UBound(Array) / 2)-1
		For Counter = 0 to MiddleBound
			Response.Write(Array(Counter))
		Next  			
	ElseIf ArrayHalf = 2 Then 
		LowerBound = Round(UBound(Array) / 2)
		
		For Counter = LowerBound to UBound(Array)
			Response.Write(Array(Counter))
		Next 																
	End If													
End Sub

'************************************************************
' This function takes an array and prints out the first
' or second half of the array, defaulting to print the
' first half with one additional row if Length mod 2 is not 0.
' Prototyped by: Dan Smith
'************************************************************
Sub PrettyPrintArray(Array,ArrayHalf)
	If ArrayHalf = 1 Then
		MiddleBound = Round(UBound(Array) / 2)-1
		For Counter = 0 to MiddleBound
			Response.Write(Array(Counter))
		Next  			
	ElseIf ArrayHalf = 2 Then 
		LowerBound = Round(UBound(Array) / 2)
		
		For Counter = LowerBound to UBound(Array)
			Response.Write(Array(Counter))
		Next 																
	End If													
End Sub

'************************************************************
' This function takes an array and prints out the first
' or second half of the array, defaulting to print the
' first half with one additional row if Length mod 2 is not 0.
' Prototyped by: Dan Smith
'************************************************************
Sub PrintArrayHalf(Array,ArrayHalf)
	If ArrayHalf = 1 Then
		If UBound(Array) mod 2 = 0 Then
			MiddleBound = Round(UBound(Array) / 2)-1
		Else
			MiddleBound = Round(UBound(Array) / 2)
		End If

		For Counter = 0 to MiddleBound
			Response.Write(Array(Counter))
		Next  			
	ElseIf ArrayHalf = 2 Then 
		If UBound(Array) mod 2 = 0 Then
			LowerBound = (UBound(Array) / 2) 
		Else 
			LowerBound = Round(UBound(Array) / 2)+1
		End If
		
		For Counter = LowerBound to UBound(Array)
			Response.Write(Array(Counter))
		Next 																
	End If													
End Sub

'************************************************************
' This function takes an array and prints out the first
' or second half of the array, defaulting to print the
' first half with one additional row if Length mod 2 is not 0.
' Prototyped by: Dan Smith
'************************************************************
Sub PrintArrayHalf(Array,ArrayHalf)
	If ArrayHalf = 1 Then
		If UBound(NavigationList) mod 2 = 0 Then
			MiddleBound = Round(UBound(NavigationList) / 2)-1
		Else
			MiddleBound = Round(UBound(NavigationList) / 2)
		End If

		For Counter = 0 to MiddleBound
			Response.Write(NavigationList(Counter))
		Next  			
	ElseIf ArrayHalf = 2 Then 
		If UBound(NavigationList) mod 2 = 0 Then
			LowerBound = (UBound(NavigationList) / 2) 
		Else 
			LowerBound = Round(UBound(NavigationList) / 2)+1
		End If
		
		For Counter = LowerBound to UBound(NavigationList)
			Response.Write(NavigationList(Counter))
		Next 																
	End If													
End Sub

Used when splitting array elements between two columns in HTML

Print Array Half

ASP