<%@ Language=VBScript %> <% Option Explicit %> <% dim category_ID %> Site Map

Sitemap

/">Home

/galleries.asp">Gallery

/PPF/Parameters/17__/candlestick.asp">Contact Us

<% dim rsSiteMap, rsSiteMapSub, iCatCount, iHalfWay, iCC set rsSiteMap = server.CreateObject("ADODB.RECORDSET") set rsSiteMap = conn.execute("stor_PageCategories_select_sitemap_count") iCatCount = 3 + rsSiteMap("CategoryCount") iHalfWay = iCatCount/2 set rsSiteMap = Conn.Execute("stor_PageCategories_select_sitemap") iCC = 3 do while not rsSiteMap.EOF %>

__/candlestick.asp"><%=rsSiteMap("Name")%> <%set rsSiteMapSub = server.CreateObject("ADODB.RECORDSET") set rsSiteMapSub = conn.execute("stor_PagesPageCategories_select_category_ID_public_sitemap " & rsSiteMap("Category_ID")) if not rsSiteMapSub.EOF then %> <% do while not rsSiteMapSub.EOF %>

  • _<%=rsSiteMapSub("page_ID")%>_/candlestick.asp"><%=rsSiteMapSub("PageName")%>
  • <% rsSiteMapSub.MoveNext loop end if rsSiteMapSub.Close set rsSiteMapSub = nothing %>

    <% iCC = iCC + 1 if iCC > iHalfWay then 'response.Write("
    ") 'iCC = -500 end if rsSiteMap.MoveNext loop rsSiteMap.Close set rsSiteMap = nothing %>

     

    <% conn.close set conn = nothing %>