<%@ LANGUAGE="VBSCRIPT" %> <% PageStrings = "18, 55, 107, 108, 160, 265, 266, 648, 838, 1180, 1181, 1236, 1237" %> <% strCategoryListHTML = strCategoryListHTML & "" & vbcrlf strCategoryListHTML = strCategoryListHTML & "

" & vbcrlf strCategoryListHTML = strCategoryListHTML & "" & vbcrlf strCategoryListHTML = strCategoryListHTML & "" & GetString("ContentText_CategoryAsDropdownDefault") & "" & vbcrlf aryTopLevels = Split(objParentDictionary.Item(0), ",") For Each strCat In aryTopLevels If strCat <> "" Then DoCatsMenu objCategoryDictionary, objParentDictionary, Clng(strCat), "", 1, Application(LICENSENUMBER & "categorylevelsmenufront"), true End If Next strCategoryListHTML = strCategoryListHTML & "

" & vbcrlf %> <% Call ReadFromTemplate(strTemplateLocation, aryPageTemplate, strBasketHTML, strCategoryListHTML) Response.Write(aryPageTemplate(0)) %>

<% Response.Write strCategoryListHTML %>

<% Response.Write(aryPageTemplate(1)) objDataConn.Close Set objDataConn = Nothing %>