Hometown Favorites Site Map
<%
xmlstring =sitelink.DEPARTMENTDIRECTORY(0,true)
objDoc.loadxml(xmlstring)
set SL_Dept = objDoc.selectNodes("//thesedepts")
objDoc.loadxml(xmlstring)
%>
<%
for x=0 to SL_Dept.length-1
deptname = SL_Dept.item(x).selectSingleNode("name").text
deptcode = SL_Dept.item(x).selectSingleNode("deptcode").text
deptunder = SL_Dept.item(x).selectSingleNode("under").text
deptlevel = SL_Dept.item(x).selectSingleNode("level").text
hassubdept= false
target_subnode = "//thesedepts[under="+deptcode+"]"
set SL_deptsub = objDoc.selectNodes(target_subnode)
if SL_deptsub.length > 0 then
hassubdept=true
end if
set SL_deptsub= nothing
if deptunder = 0 then
if deptcode="1003" then
usethislink = "http://www.hometownfavorites.com/shop/htfg.asp"
elseif deptcode="1001" then
usethislink = "http://www.hometownfavorites.com/shop/candy_store.asp"
elseif deptcode="1004" then
usethislink = "http://www.hometownfavorites.com/shop/gift_center.asp"
elseif deptcode="1092" then
usethislink = "products.asp?dept=1092"
elseif deptcode="1103" then
usethislink = "products.asp?dept=1103"
end if
else
if hassubdept=true then
usethislink = "departments.asp"
else
usethislink = "products.asp"
end if
end if
%>
<%if deptunder = 0 then %>
<%=deptname%>
<%elseif deptunder = 0 or hassubdept = true then %>
 <%=deptname%>
<%else%>
<%=deptname%>
<%end if %>
|
<%next%>
<%
set SL_Dept = nothing
'Set objDoc =nothing
%>
More Information
|
