<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "1154, 1155, 1156, 1157, 1158, 1159, 1160, 1161, 1162, 1163, 1164, 1165, 1166, 1167, 1168" strThisBackPage = "config" %> <% '=============================================== ' CactuShop ASP Shopping Cart ' ©1999-2004 Cactusoft Ltd. www.cactusoft.com '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== '----------------------------------------------- 'FUNCTION 'Recursive function to write out the categories 'and sub-categories in a trail '----------------------------------------------- Function DoCats(objCategoriesDictionary, objSubCategoriesDictionary, numMotherID, strTrail) 'Ignore it if the category is the current category - we don't want them to put a category 'inside itself, or inside one of it's children! If numMotherID & "" <> PT_ID & "" then 'Write out the trail response.write "- " & strTrail & objCategoriesDictionary.Item(CInt(numMotherID)) & "" & vbcrlf 'If there are any sub categories for this category If objSubCategoriesDictionary.Exists(CInt(numMotherID)) then 'Get all sub categories and loop through them arySubCategories = split(objSubCategoriesDictionary.Item(CInt(numMotherID)), ",") For each numSubCategory in arySubCategories If isnumeric(numSubCategory) then 'Add the sub category to the end of the trail and call the function with the new sub-cat strTrailToPass = "    " & strTrail DoCats objCategoriesDictionary, objSubCategoriesDictionary, numSubCategory, strTrailToPass end if Next end if end if end Function %>

<% WriteString("PageTitle_MarkupPrices") %> <% WriteString("ContentText_MarkupPricesDesc1") %> <% WriteString("ContentText_MarkupPricesDesc2") %> <% WriteString("ContentText_VersionsToMarkUp") %> <% WriteString("ContentText_PriceRange") %>: <%= GetString("ContentText_PriceRangeBetween") & " " & strDefaultCurrencySymbol %> <%= GetString("ContentText_PriceRangeAnd") & " " & strDefaultCurrencySymbol %> <%= " " & GetString("ContentText_LeaveBlankPrices") & "" %> <% WriteString("ContentText_InCategory") %>: <% WriteString("ContentText_AllCategories") %> <% '------------------------------------------------------------- ' WRITE OUT CATEGORIES SELECT '------------------------------------------------------------- strQuery = "SELECT " For numCounter = 1 to numTotalLanguages: strQuery = strQuery & "tblCactuShopProdtype.PT_Name" & CStr(numCounter) & ", MasterProducts.PT_Name" & CStr(numCounter) & " As MotherName" & CStr(numCounter) & ", ": Next strQuery = strQuery & "tblCactuShopProdtype.PT_ID, tblCactuShopProdtype.PT_MotherProdType FROM tblCactuShopProdtype LEFT OUTER JOIN tblCactuShopProdtype AS MasterProducts ON tblCactuShopProdtype.PT_MotherProdType = MasterProducts.PT_ID ORDER BY tblCactuShopProdtype." & strCategoryOrderBy Call ExecuteSQL(strQuery, numCursorType, objRecordSet) 'Create dictionary objects that hold all the category information Set objCategoryDictionary = server.CreateObject("Scripting.Dictionary") 'Key - ID, Value - name of category Set objParentDictionary = server.CreateObject("Scripting.Dictionary") 'Key - Mother ID, Value - comma-seperated IDs 'Loop for every prodtype pulled out Do Until objRecordSet.EOF 'get repeated recordset values numID = objRecordSet("PT_ID") numMotherID = objRecordSet("PT_MotherProdType") 'Find a product name that isn't blank, starting with the default ID strCategoryName = objRecordSet("PT_Name" & CStr(numLanguageID)) if strCategoryName & "" = "" then For numCounter = 1 to numTotalLanguages strCategoryName = objRecordSet("PT_Name" & CStr(numCounter)) if strCategoryName & "" <> "" then exit for next end if 'add to the categories dictionary objCategoryDictionary.Add numID, strCategoryName 'add it to parent dictionary - if it already exists, add it on 'to the end of the list. If not, create a new entry if objParentDictionary.Exists(numMotherID) then objParentDictionary.Item(numMotherID) = objParentDictionary.Item(numMotherID) & numID & "," else objParentDictionary.Add numMotherID, numID & "," end if objRecordSet.movenext Loop objRecordSet.Close aryTopLevels = Split(objParentDictionary.Item(0), ",") For Each strCat in aryTopLevels If strCat <> "" then DoCats objCategoryDictionary, objParentDictionary, CInt(strCat), "    " end if next %> <% WriteString("ContentText_PriceModification") %>   <% WriteString("ContentText_Markup") %> <% WriteString("ContentText_Markdown") %> prices by <% WriteString("ContentText_Percentage") %> <%= strDefaultCurrencyISOCode %> ">

<% objDataConn.Close set objDataConn = nothing %>