<%
' --- START OF MENU TEMPLATES --- '
' (SS,13/8/14) for use with Bootstrap, individual categories are listed
' (SS,19/10/15) latest version
' (SS,16/5/17) added Delivery Info off Help menu
' (SS,19/5/17) added Local Mode off Help menu

Sub ShowMenuHeader
%>
<!-- START OF MENU -->
    <div class="navbar navbar-default navbar-static-fixed" role="navigation">
      <div class="container">
        <div class="row">
        <div class="navbar-header">
          <button type="button" class="navbar-toggle" data-toggle="collapse" data-target=".navbar-collapse">
            <span class="sr-only">Toggle navigation</span>
            <span class="icon-bar"></span>
            <span class="icon-bar"></span>
            <span class="icon-bar"></span>
          </button>
          <a class="navbar-brand visible-xs" href="/">Cast Iron Radiators</a>
          <p class="navbar-text visible-xs pull-right"><strong>Menu</strong>&nbsp;&nbsp;</p>
        </div>
        <div class="navbar-collapse collapse">
          <ul class="nav navbar-nav"> 
<%
End Sub

Sub ShowMenuFooter
%>
          
            <li><a href="products.asp?page=btucalculator">BTU Calculator</a></li>            
            <li><a href="products.asp?page=account" rel="nofollow">Account</a></li>
            <li><a href="products.asp?page=contact">Contact</a></li>            

            <li class="dropdown">
              <a href="#" class="dropdown-toggle" data-toggle="dropdown">Help</a>
              <ul class="dropdown-menu" role="menu">
                <li><a href="products.asp?page=about">About</a></li>
                <li><a href="products.asp?page=contact">Contact</a></li>
                <li><a href="products.asp?page=contact">Opening Times</a></li>
                <li><a href="products.asp?page=howtoorder">How to Order</a></li>
                <li><a href="products.asp?page=customerinfo">Customer Info</a></li>
                <li><a href="products.asp?page=privacy">Privacy Policy</a></li>
                <li><a href="products.asp?page=deliveryinfo">Delivery Info</a></li>
                <li><a href="products.asp?page=links">Useful Links</a></li>              
                <li role="separator" class="divider"></li>
                <li><a href="products.asp?page=faq">FAQ</a></li>
                <li><a href="products.asp?page=fittingguidelines">Fitting Guidelines</a></li>
                <li><a href="products.asp?page=calculatingpipecentres">Calculating Pipe Centres</a></li>
                <li><a href="products.asp?page=handlingcastironradiators">Handling Cast Iron Radiators</a></li>
                <li><a href="media/cast-iron-radiator-centre-returns-form.pdf">Returns Form</a></li>
<%If IsLocalMode Then%>
                <li role="separator" class="divider"></li>
                <li><a href="products.asp?cat=Local+Mode">Local Mode Products</a></li>
<%End If%>                
              </ul>
            </li> 
            
          </ul>          
          
        </div><!--/.nav-collapse -->          
 
      </div><!--row-->
      </div><!--container-->
    </div>
   
<!-- END OF MENU -->
<%
End Sub

' (SS,18/5/15) ALevelNo can be used to provide tidy indenting depending on no
Sub ShowMenuSingle(ACaption, AHRef, ALevelNo)
%>
            <li><a href="<%=AHRef%>"><%=ACaption%></a></li>
<%
End Sub

' (SS,18/5/15)
Sub ShowMenuDivider
%>
  <li class="divider"></li>
<%
End Sub

' (SS,18/5/15) ALevelNo can be used to provide tidy indenting depending on no
Sub ShowMenuDropdownHeader(ACaption, AHRef, ALevelNo)
%>
            <li><a href="<%=AHRef%>"><%=ACaption%></a>
              <ul class="dropdown-menu">
<%
End Sub

' (SS,18/5/15)
Sub ShowMenuDropdownFooter
%>
              </ul>
            </li>
<%
End Sub

' --- END OF MENU TEMPLATES --- '
If Not ForProductList Then
  'ShowMenuForCategories "" '"Cast Iron Radiators;Radiator Valves;Radiator Accessories"
  StartMultiMenu "C"
  AddMultiMenu "Cast Iron Radiators", "", ""
  AddMultiMenu "Valves", "", ""
  ' (SS,22/7/16) renamed "Accessories" to "Accessories & Spares"
  AddMultiMenu "Accessories & Spares", "", ""
  EndMultiMenu  
Else
  Response.Write("<a href=""products.asp?cmd=cat"">Browse Products</a>")
End If
%>