" & chr(13)
iTotalCatCount = UBound(Application("TOP_CATEGORY_DATA"))
nonDhtmlMenudivtags=""
Dim templPageName
For iLoop=1 to iTotalCatCount
varItem = Application("TOP_CATEGORY_DATA")(iLoop)
idImg = "nav" & iLoop
idCat = "cat" & iLoop
'varItem(3) = rollover on image, (4)=off image (5)=pagename
'templPageName = varItem(5)
'if templPageName <> "" then
' if left(templPageName,1) = "/" and len(templPageName) > 1 then
' templPageName = mid(templPageName,2)
' end if
'end if
templPageName = HTTP_HOST & "templates/gateway.asp"
'***********************************************
if SHOW_TEXT_CATEGORY_LINKS = true then
nonDhtmlMenudivtags = nonDhtmlMenudivtags & chr(13) &_
"| " & chr(13) &_
"" & varItem(2) & " | | " & chr(13)
else
nonDhtmlMenudivtags = nonDhtmlMenudivtags & chr(13) &_
"" & chr(13) &_
"![" & varItem(2) & "](" & IMAGE_PATH & varItem(4) & ") | " & chr(13)
end if
menudivtags = menudivtags & chr(13) &_
"" & chr(13) &_
"" & chr(13) &_
"" & chr(13) &_
"" & chr(13) &_
"" & chr(13) &_
" " & chr(13) &_
"" & chr(13) &_
"![](" & IMAGE_PATH & "global/navshadow.gif) | " & chr(13) &_
" " & chr(13)
'"" & chr(13) &_
' "| " & varItem(2) & " | " & chr(13) &_
'" " & chr(13)
subvarItem = getSubCategoryData(varItem(1)) ' varItem(1) = CATEGORY ID
'***********************************************
'subcat links
For iLoop2=1 to UBound(subvarItem)
varItem2 = subvarItem (iLoop2) 'varItem2(2) subcategory id
idsubCat = idCat & "_sub" & iLoop2
menudivtags = menudivtags &_
"" & chr(13) &_
"| " & varItem2(4) & " | " & chr(13) &_
" " & chr(13)
Next
'***********************************************
menudivtags = menudivtags &_
"" & chr(13) &_
"![](" & IMAGE_PATH & "global/globalnav/cat_footer.gif) | " & chr(13) &_
" " & chr(13) &_
" " & chr(13) &_
" | " & chr(13) &_
" " & chr(13) &_
" | " & chr(13)
If iLoop < iTotalCatCount then 'add diamond one less than cat count
menudivtags = menudivtags &_
"![](" & IMAGE_PATH & "global/globalnav/nav_diamond.gif) | " & chr(13) & chr(13)
if SHOW_TEXT_CATEGORY_LINKS = true then
nonDhtmlMenudivtags = nonDhtmlMenudivtags & "![](" & IMAGE_PATH & "global/spacer.gif) | " & chr(13) & chr(13)
else
nonDhtmlMenudivtags = nonDhtmlMenudivtags &_
" | " & chr(13) & chr(13)
end if
end if
over_preload_images = over_preload_images & "," & IMAGE_PATH & varItem(3) & "," & IMAGE_PATH & varItem(4) & chr(13) ''varItem2(5) is roll over on image
Next
if nonDhtmlMenudivtags <> "" then
nonDhtmlMenudivtags = "" & chr(13) &_
"" & nonDhtmlMenudivtags & " " & chr(13) &_
" | "
end if
Application("BUILD_DHTML") = "Done"
Application("DHTML_over_preload_images") = over_preload_images
Application("DHTML_menudivtags") = menudivtags
Application("DHTML_NON_menudivtags") = nonDhtmlMenudivtags
End if
over_preload_images = Application("DHTML_over_preload_images")
%>