" & chr(13)
iTotalCatCount = UBound(Application("TOP_CATEGORY_DATA"))
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
'***********************************************
nonDhtmlMenudivtags = nonDhtmlMenudivtags & chr(13) &_
"" & chr(13) &_
"![](" & IMAGE_PATH & varItem(4) & ") | " & chr(13)
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)
nonDhtmlMenudivtags = nonDhtmlMenudivtags &_
" | " & chr(13) & chr(13)
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
nonDhtmlMenudivtags = "" & chr(13) &_
"" & nonDhtmlMenudivtags & " " & chr(13) &_
" | "
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")
%>