Private Sub populateCategoryInformation() 'Determine Method Type
	Dim iCat, iCatCount, categoryResults
	
	categoryResults = getCategoryRecords()
	
	Select Case (boolError) 'Set Postback to Main pg if no Cats Exist
		Case True
			url = "frmAvatarMain.asp"
			Exit Sub
		Case Else: 'Do Nothing
	End Select
	
	If not BoolError Then
		iCatCount = UBound(categoryResults,2)
		
		'Loop Through Record Sets
		For iCat = 0 to iCatCount
			strCatName = categoryResults(0, iCat)
			Select Case (Request.QueryString("Select"))
				Case privateFolderName, "ViewAll"
					If (mLev = 4) Then 
						setCategoryInformation(privateFolderName)
						Exit For
					Else
						'If Strings Don't Match and Loop is on Last Record, Set Avatar Path to 1st Record
						Select Case (iCat = iCatCount)
							Case True
								setCategoryInformation(categoryResults(0, 0))
								Exit For
							Case Else: 'Do Nothing
						End Select
					End If
				Case Else
					Select Case (Request.QueryString("Select") = strCatName)
						' If Strings Match, Set the Avatar Path
						Case True
							setCategoryInformation(strCatName)
							Exit For
						Case Else
							'Do Nothing
							setCategoryInformation(strCatName)
							'If Strings Don't Match and Loop is on Last Record, Set Avatar Path to 1st Record
							'Select Case (iCat = iCatCount)
								'Case True
									'setCategoryInformation(categoryResults(0, 0))
									'cot = iCat
									'coty = iCount
									'Exit For
								'Case Else: 'Do Nothing
							'End Select
					End Select					
			End Select				
		Next
	End If
Exit Sub
End Sub

setCategoryInformation(categoryResults(0, 0))

setCategoryInformation(privatefolder)

getQueryStringFolder = trim(LCase(Request.QueryString("Select")))
if mlev < 4 AND trim(getQueryStringFolder) = "viewall" then 
			response.redirect("frmAvatarMain.asp?Select=personal&method=Main")

end if