<%
' (SS,15/2/13) functions used instead of subs because values are returned to replaced the {SITEMAP} token rather than render directly here

' --- START OF SITEMAP TEMPLATES --- '

Function ShowSitemapHeader
  ShowSitemapHeader = ""
End Function

Function ShowSitemapGroupHeader
  ShowSitemapGroupHeader = "<ul class=""sitemap"">" & NL
End Function

Function ShowSitemapGroup(AGroup, AHRef)
  ShowSitemapGroup = "  <li><a href=""" & AHRef & """>" & AGroup & "</a></li>" & NL
End Function

Function ShowSitemapGroupFooter
  ShowSitemapGroupFooter = "</ul>" & NL
End Function

Function ShowSitemapCategoryHeader
  ShowSitemapCategoryHeader = "<ul class=""sitemap"">" & NL
End Function

Function ShowSitemapCategory(ACategory, AHRef)
  ShowSitemapCategory = "  <li><a href=""" & AHRef & """>" & ACategory & "</a></li>" & NL
End Function

Function ShowSitemapCategoryFooter
  ShowSitemapCategoryFooter = "</ul>" & NL
End Function

Function ShowSitemapSubcategoryHeader
  ShowSitemapSubcategoryHeader = "  <ul>" & NL
End Function

Function ShowSitemapSubcategory(ASubcategory, AHRef)
  ShowSitemapSubcategory = "    <li><a href=""" & AHRef & """>" & ASubcategory & "</a></li>" & NL
End Function

Function ShowSitemapSubcategoryFooter
  ShowSitemapSubcategoryFooter = "  </ul>" & NL
End Function

Function ShowSitemapProductHeader
  ShowSitemapProductHeader = "    <ul>" & NL
End Function

Function ShowSitemapProduct(AProductCode, AProductName, AHRef)
  ShowSitemapProduct = "      <li><a href=""" & AHRef & """>" & AProductName & "</a></li>" & NL
End Function

Function ShowSitemapProductFooter
  ShowSitemapProductFooter = "    </ul>" & NL
End Function

Function ShowSitemapFooter
  ShowSitemapFooter = ""
End Function

' --- END OF SITEMAP TEMPLATES ---'

%>