<%
Dim aProductsTypes(4)
aProductsTypes(0) = "Ring"
aProductsTypes(1) = "Logos"
aProductsTypes(2) = "Games"
aProductsTypes(3) = "Videos"
%>
<%
for j=0 to ubound(aProductsTypes)-1
%>
 |
<%= aCathTitles(j) %> |
 |
<%
iCount = 0
for i=0 to ubound(eval("aMenu" & aProductsTypes(j)))
if (aProducts(eval("aMenu" & aProductsTypes(j))(i), 0) <> "") and (aProducts(eval("aMenu" & aProductsTypes(j))(i), 0) <> "--") then
sButtonStyle = ""
if iCount = ubound(eval("aMenu" & aProductsTypes(j))) then
sButtonStyle = "_last"
end if
response.write ("")
response.write ("")
response.write (" | ")
if (18 = eval("aMenu" & aProductsTypes(j))(i)) then
response.write ("")
else
response.write ("")
end if
response.write (" | ")
response.write ("
")
end if
iCount = iCount + 1
Next
response.write sBottom
%>
<%
Next
%>