File: D:/web/expressmusic/inc-template-category-menu - Copy.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> </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,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/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
%>