HEX
Server: Microsoft-IIS/10.0
System: Windows NT ITPWINWEBSVR22 10.0 build 20348 (Windows Server 2022) AMD64
User: www.conferencesearch.co.uk (0)
PHP: 8.3.30
Disabled: NONE
Upload Files
File: D:/web/expressmusic/inc-template-category-menu.asp
<%
' --- START OF MENU TEMPLATES --- '
' (SS,13/8/14) for use with Bootstrap, individual categories are listed
' (SS,04/08/21) commented out "Repairs"
' (SS,10/11/23) added "Sell Your Guitar"

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="/">Express Music</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

' (SS,17/12/21) removed job vacancies menu item
' (SS,10/11/23) added "Sell Your Guitar"
Sub ShowMenuFooter
%>
            <!--<li class="active"><a href="#">Home</a></li>-->
            <!--<li><a href="products.asp?page=repairs">Repairs</a></li>-->
            <li><a href="products.asp?page=sellyourguitar">Sell Your Guitar</a></li>
            <li class="dropdown">
              <a href="#" class="dropdown-toggle" data-toggle="dropdown">Info</a>
              <ul class="dropdown-menu" role="menu">
                <li><a href="products.asp?page=about">About</a></li>
                <li><a href="products.asp?page=visitus">Visit Us</a></li>             
                <li><a href="products.asp?page=contact">Contact</a></li>
                <!--<li><a href="products.asp?page=howtoorder">How to Order</a></li>-->
                <li class="divider"></li>
                <li><a href="products.asp?page=account">Account</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=jobs">Job Vacancies</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 "G"
  ' (SS,5/9/23) removed "Guitar Strings; Guitar Accessories;" moved "Guitar Strings;" to Accessories, "Guitar Accessories;" already there
  ' (SS,6/9/23) removed "; Starter Packs", no producs
  AddMultiMenu "Guitars", "", ""
  AddMultiMenu "Amps", "", ""
  AddMultiMenu "FX", "", ""
  
  ' (SS,17/12/21) removed following Drums and Pro Audio menus
  'AddMultiMenu "Drums", "", ""
  'AddMultiMenu "Pro Audio", "PA", "" ' PA doesn't work because single cat same as group, menu short name added to category table
  
  ' (SS,17/12/21) removed following pianos menu
  'AddMultiMenu "Pianos / Keyboards", "Pianos", "; Piano / Keyboard Accessories"
  
  ' (SS,17/12/21) removed Orchestral virtual menu, now a proper Group and added off new "Other" menu
  'AddMultiMenu "Orchestral", "", "Brass; Woodwind; Violins; ; Violin Strings / Accessories; Brass / Woodwind Accessories"
   
  'AddMultiMenu "Folk Instruments", "Folk", ""
  ' (SS,6/9/23) replaced above with following, (Folk Strings and Folk Instrument Accessories moved to Accessories)
  'AddMultiMenu "Folk Instruments | Folk Instruments", "Folk", ""
  
  'AddMultiMenu "Folk", "", "Folk Instruments | Folk Instruments"
  ' (SS,17/4/24) replaced second above with following
  AddMultiMenu "Folk Instruments", "Folk", ""  
  
  ' (SS,6/2/16) added Pro Audio | Pro Audio | Headphones for specific category, "|" acts like a group / category / subcategory separator
  ' (SS,17/12/21) added ; Pro Audio | Pro Audio | Pro Audio Cables/Leads
  ' removed Pro Audio | Pro Audio | Headphones; Violin Strings / Accessories; Brass / Woodwind Accessories;
  ' (SS,4/9/23) removed Metronomes; replaced "Pro Audio | Pro Audio | Pro Audio Cables/Leads" with just "Pro Audio | Pro Audio", after removing "Other" tab (see below)
  ' (SS,5/9/23) removed Piano / Keyboard Accessories; added Guitar Strings;
  ' (SS,6/9/23) added "Folk Instruments | Folk Instrument Accessories; Folk Instruments | Folk Strings;", Folk now only has Instruments
  ' AddMultiMenu "Accessories", "", "Stands; Guitar Accessories; Guitar Strings; Folk Instruments | Folk Instrument Accessories; Folk Instruments | Folk Strings; Pro Audio | Pro Audio"
  ' (SS,17/4/24) replaced above with following, behaving olding with Folk stuff
  AddMultiMenu "Accessories", "", "Stands; Guitar Accessories; Guitar Strings; Pro Audio | Pro Audio"
  
  ' (SS,17/12/21) New Other tab (top level)
  'AddMultiMenu "Other", "", "Orchestral; Pro Audio | Pro Audio; Drums"
  ' (SS,19/12/22) replaced above with following to remove Orchestral and Drums
  ' (SS,4/9/23) moved Pro Audio to Accessories, and removed "Other" altogether (now empty)
  ' AddMultiMenu "Other", "", "Pro Audio | Pro Audio"
  
  EndMultiMenu  
Else
  Response.Write("<a href=""products.asp?cmd=cat"">Browse Products</a>")
End If
%>