<%
' --- 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
' (SS,3/4/20) added Coronavirus Update off Help menu
' (SS,3/6/20) added "Ex-Stock Sale" to menu also change to show "Ex-Stock Sale" in red (Sub ShowMenuDropdownHeader)
' (SS,24/5/22) replaced Coronavirus with Brexit
' (SS,29/6/23) changes to main menu, including adding customer photos, reviews and news
' (SS,28/2/24) added "Cookie Settings" to 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=customerphotos">Customer Photos</a></li>
            <li><a href="products.asp?page=blog">Blog</a></li>            
            <li><a href="products.asp?page=btucalculator">BTU Calculator</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=account" rel="nofollow">Account</a></li>              
                <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 role="separator" class="divider"></li>                
                <li><a href="products.asp?page=reviews">Reviews</a></li>
                <li><a href="products.asp?page=news">News</a></li>
                <li><a href="products.asp?page=competition">Competition</a></li>
                <li><a href="products.asp?page=brexit">Brexit Update</a></li>
                <li role="separator" class="divider"></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="javascript:document.getElementById('ba-cc-cban-set').click();">Cookie Settings</a></li>
                <li><a href="products.asp?page=deliveryinfo">Delivery Info</a></li>
                <li><a href="media/cast-iron-radiator-centre-returns-form.pdf">Returns Form</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>
<%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
' (SS,3/6/20) Change to show "Ex-Stock Sale" in red
Sub ShowMenuDropdownHeader(ACaption, AHRef, ALevelNo)
  ' (SS,21/5/20) added following to show "Ex-Stock Sale" in red
  Dim LStyle
  If ACaption = "Clearance" Then
    LStyle = " style=""background-color:#ffe6e6""" ' ffe6e6 ff8080
    LStyle = " style=""color:red"""
  Else
    LStyle = ""
  End If
%>
            <li><a<%=LStyle%> 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", "", ""
  AddMultiMenu "Clearance", "", "" ' Added (SS,3/6/20), removed (SS,18/8/20) not used, added back and renamed to "Clearance"
  EndMultiMenu  
Else
  Response.Write("<a href=""products.asp?cmd=cat"">Browse Products</a>")
End If
%>