<%
' --- START OF MENU TEMPLATES --- '
' (SS,13/8/14) for use with Bootstrap, individual categories are listed

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="/">HyperFlight</a>
          <p class="navbar-text visible-xs pull-right"><b>Menu</b>&nbsp;&nbsp;</p>
        </div>
        <div class="navbar-collapse collapse">
          <ul class="nav navbar-nav">  
<%
End Sub

Sub ShowMenuFooter
%>
            <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">Account</a></li>
                <li><a href="products.asp?page=contact">Contact Us</a></li>              
                <li><a href="products.asp?page=customerinfo">Customer Info</a></li>
                <li><a href="products.asp?page=privacy">Privacy Policy</a></li>
              </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"
  'ShowMenuForGroups ""
  StartMultiMenu "CA"
  'AddMultiMenu "RC Gliders", "", ""  
  'AddMultiMenu "Electric RC Gliders", "", ""
 ' 'AddMultiMenu "Racers & Birds", "", ""
  'AddMultiMenu "Servos & Accessories", "Servos", ""
  'AddMultiMenu "Electronics", "", ""
  'AddMultiMenu "Batteries", "", ""
  'AddMultiMenu "Electric Motors & Acces's", "Electric Motors", ""
  'AddMultiMenu "Spinners & Props", "Spinners", ""
  'AddMultiMenu "Carbon Materials", "", ""
  
  AddMultiMenu "RC Models", "", ""  
  AddMultiMenu "Servos", "", ""
  AddMultiMenu "Electronics", "", ""
  AddMultiMenu "Powertrains", "", ""
  AddMultiMenu "Bags", "", ""
  AddMultiMenu "Materials", "", ""   
  AddMultiMenu "Other", "", "" 
  AddMultiMenu "Parts", "", ""
  
  'AddMultiMenu "Electric RC Gliders", "", ""
  'AddMultiMenu "Servos & Accessories", "Servos", ""
  
 ' AddMultiMenu "Batteries", "", ""
  'AddMultiMenu "Electric Motors & Acces's", "Electric Motors", ""
  'AddMultiMenu "Electric Motors & Acces's", "Powertrains", ""
  ' AddMultiMenu "Transport & Protection", "Bags", ""
  'AddMultiMenu "Carbon Materials", "Materials", ""  
  'AddMultiMenu "Other RC Products", "Other", "" 
  'AddMultiMenu "Replacement Parts", "Parts", ""  
  EndMultiMenu
  
Else
  Response.Write("<a href=""products.asp?cmd=cat"">Browse Products</a>")
End If
%>