<% if navID = "1" then Dim adminQS if badmin = true then adminQS = "?trot@dmin=@dm1n" Response.Redirect HTTP_HOST & "index.asp" & adminQS end if %> <% Dim gatewayCatData Dim gatewayTemplateData Dim subcaregorydata Dim sHeaderImage Dim lsSql 'main category specific data gatewayCatData = getTopCategoryData(NAVID) For GENERIC_VARIABLE=1 to UBound(gatewayCatData) varItem = gatewayCatData(GENERIC_VARIABLE) sHeaderImage = varItem (6) Next 'category template specific data gatewayTemplateData = getGatewayTemplateData(NAVID) if badmin=true then 'GET DATA THRO SQL FOR ADMIN lsSql = "exec P_WP_TEMPLATE_KICKER_DATA_ADMIN " & NAVID gatewayTemplateData = getRecordSetList(lsSql) END IF 'category->subcategory data subcaregorydata = getSubCategoryData(NAVID) %>

<%else%> <%end if%> <%For GENERIC_VARIABLE=1 to UBOUND(subcaregorydata) varItem=subcaregorydata(GENERIC_VARIABLE) PRELOAD_IMAGES = PRELOAD_IMAGES & ",'" & IMAGE_PATH & varItem(8) & "','" & IMAGE_PATH & varItem(9) & "'" %> <%Next%> <%if SHOW_TEXT_CATEGORY_LINKS = true then%> <%'if UBOUND(subcaregorydata) > 0 then%> <%=subcaregorydata(1)(3)%><%'end if%> <%if UBOUND(subcaregorydata) > 0 then%> - <%=varItem(4)%> <%else%> "> <%end if%> <%=getKickerData(gatewayTemplateData,1,badmin)%>	<%=getKickerData(gatewayTemplateData,2,badmin)%>
<%=getKickerData(gatewayTemplateData,3,badmin)%>	<%=getKickerData(gatewayTemplateData,4,badmin)%>	<%=getKickerData(gatewayTemplateData,5,badmin)%>