<%
Dim aCat, ainx
aCat = funcGetMenuCategory(objQuery, "N")
IF IsArray(aCat) Then
For ainx = 0 To UBound(aCat, 2)
%>
<%=Trim(aCat(2, ainx))%>
<%
Next
End IF
%>
<%
Dim aCat2, ainx2
aCat2 = funcGetMenuCategory(objQuery, "S")
IF IsArray(aCat2) Then
For ainx2 = 0 To UBound(aCat2, 2)
%>
<%=Trim(aCat2(2, ainx2))%>
<%
Next
End IF
%>