<% Dim subvarItem Dim varItem2 Dim csaction_data Dim CSAct_Data Dim over_preload_images Dim iLoop Dim iLoop2 Dim varItem Dim mainCatLinks Dim menudivtags Dim tmpImage 'BUILD MENU TEXT ONCE 'Application("BUILD_DHTML") = "" If Application("BUILD_DHTML") = "" then csaction_data = "" & chr(13) For iLoop=1 to UBound(Application("TOP_CATEGORY_DATA")) varItem = Application("TOP_CATEGORY_DATA")(iLoop) menudivtags = menudivtags & "
" & chr(13) &_ "" & chr(13) 'for main menu csaction_data = csaction_data & buildCsactionData("main" & varItem(1) & "ROLLON", "main" & varItem(1) & "ROLLOFF", iLoop) 'for each menu
tag 1st entry is main category.. csaction_data = csaction_data & buildCsactionData("nav" & varItem(1) & "ROLLON", "nav" & varItem(1) & "ROLLOFF", iLoop) 'for first dropdown menu value which is main cat by itself csaction_data = csaction_data & buildCsactionData(varItem(1) & "ROLLON", varItem(1) & "ROLLOFF", iLoop) menudivtags = menudivtags & buildMenuDivs("nav" & varItem(1) & "ROLLON", "nav" & varItem(1) & "ROLLOFF", varItem(3), 0, varItem(1) ) 'tmpImage tmpImage= "global/globalnav/cat0" & iLoop & "sub01_off.gif" menudivtags = menudivtags & buildMenuDivs(varItem(1) & "ROLLON", varItem(1) & "ROLLOFF",tmpImage, 1, varItem(1) ) CSAct_Data = CSAct_Data & buildCSActData("main" & varItem(1) & "ROLLON", "main" & varItem(1) & "ROLLOFF", iLoop) CSAct_Data = CSAct_Data & buildCSActData("nav" & varItem(1) & "ROLLON", "nav" & varItem(1) & "ROLLOFF", iLoop) CSAct_Data = CSAct_Data & buildCSActData(varItem(1) & "ROLLON", varItem(1) & "ROLLOFF", iLoop) 'rollover on for main cat over_preload_images = over_preload_images & buildOverPreloadImages(varItem(1), varItem(3), iLoop) 'varItem(3) is roll over on image over_preload_images = over_preload_images & buildOverPreloadImages(varItem(1), varItem(4), iLoop) 'varItem(4) is roll over off image mainCatLinks = mainCatLinks & "" &_ "" if iLoop " end if subvarItem = getSubCategoryData(varItem(1)) ' varItem(1) = CATEGORY ID 'Response.Write "" & UBound(subvarItem) & "..." For iLoop2=1 to UBound(subvarItem) varItem2 = subvarItem (iLoop2) 'varItem2(2) subcategory id csaction_data = csaction_data & buildCsactionData(varItem2(2) & "ROLLON", varItem2(2) & "ROLLOFF", iLoop) menudivtags = menudivtags & buildMenuDivs(varItem2(2) & "ROLLON", varItem2(2) & "ROLLOFF", varItem2(6), 2, varItem2(2)) CSAct_Data = CSAct_Data & buildCSActData(varItem2(2) & "ROLLON", varItem2(2) & "ROLLOFF", iLoop) over_preload_images = over_preload_images & buildOverPreloadImages(varItem2(2), varItem2(5), iLoop2) ''varItem2(5) is roll over on image Next menudivtags = menudivtags & "
" & chr(13) &_ "" &_ "" &_ "
" & chr(13) Next csaction_data = csaction_data & "" & chr(13) Application("BUILD_DHTML") = "Done" Application("DHTML_csaction_data") = csaction_data Application("DHTML_over_preload_images") = over_preload_images Application("DHTML_CSAct_Data") = CSAct_Data Application("DHTML_mainCatLinks") = mainCatLinks Application("DHTML_menudivtags") = menudivtags End if csaction_data = Application("DHTML_csaction_data") over_preload_images = Application("DHTML_over_preload_images") CSAct_Data = Application("DHTML_CSAct_Data") %> <%=csaction_data%> <% Function buildMenuDivs(rolloveron, rolloveroff, imgoff, flag, catID) Dim imageword Dim sHref if flag=0 then buildMenuDivs = "" &_ "" &_ "" &_ "" & chr(13) else imageword=replace(imgoff,"global/globalnav/", "") imageword=replace(imageword,".gif", "") Dim bNoRollOverOn bNoRollOverOn=true If flag=1 then 'gateway level Dim CatLevelData CatLevelData = getTopCategoryData( catID ) sHref = HTTP_HOST & CatLevelData(1)(5) & "?navID=" & catID else 'directory level bNoRollOverOn=false sHref = HTTP_HOST & "templates/directory.asp?navID=" & catID end if buildMenuDivs = "" &_ "" &_ "" &_ "" & chr(13) end if End Function Function buildCsactionData(item1, item2, iLoop) buildCsactionData = "" & chr(13) &_ "" & chr(13) End Function Function buildCSActData(item1, item2, iLoop) buildCSActData= "CSAct[/*CMP*/ '" & item1 & "'] = new Array(CSShowHide,/*CMP*/ 'cat" & iLoop & "sub',1);" & chr(13) &_ "CSAct[/*CMP*/ '" & item2 & "'] = new Array(CSShowHide,/*CMP*/ 'cat" & iLoop & "sub',0);" & chr(13) End Function Function buildOverPreloadImages(item1, item2, iLoop) buildOverPreloadImages = "over_main_" & item1 & iLoop & "_off = newImage(/*URL*/'" & IMAGE_PATH & item2 & "');" & chr(13) End Function %>