File: D:/web/castironradiatorcentre/2024-12-18/prev/inc-template-menu.asp
<%
' --- START OF MENU TEMPLATES --- '
' (SS,13/08/14) for use with Bootstrap, individual categories are listed
' (SS,19/10/15) latest version
' (SS,16/05/17) added Delivery Info off Help menu
' (SS,19/05/17) added Local Mode off Help menu
' (SS,03/04/20) added Coronavirus Update off Help menu
' (SS,03/06/20) added "Ex-Stock Sale" to menu also change to show "Ex-Stock Sale" in red (Sub ShowMenuDropdownHeader)
' (SS,24/05/22) replaced Coronavirus with Brexit
' (SS,29/06/23) changes to main menu, including adding customer photos, reviews and news
' (SS,28/02/24) added "Cookie Settings" to help menu
' (SS,06/03/24) Bootstrap 5 changes
' (SS,13/06/24) removed Brexit, requested by Neil
' (SS,13/06/24) this template file renamed from inc-template-category-menu.asp to inc-template-menu.asp
' (SS,6/3/24) old version
Sub ShowMenuHeaderOld
%>
<!-- START OF MENU -->
<!--<div class="navbar navbar-default navbar-static-fixed" role="navigation">-->
<nav class="navbar navbar-expand-lg bg-body-tertiary">
<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> </p>
</div>
<div class="navbar-collapse collapse">
<!--<ul class="nav navbar-nav">-->
<ul class="navbar-nav me-auto mb-2 mb-lg-0">
<%
End Sub
' (SS,6/3/24) new version
' (SS,3/6/24) changed wording Cast Iron Radiators to Cast Iron Radiator Centre
Sub ShowMenuHeader
%>
<!-- START OF MENU -->
<!--<div class="navbar navbar-default navbar-static-fixed" role="navigation">-->
<!--<nav class="navbar navbar-expand-md navbar-dark bg-dark">-->
<nav class="navbar navbar-expand-md bg-secondary bg-opacity-10">
<div class="container">
<!--<div class="row">-->
<a class="navbar-brand d-md-none" href="/">Cast Iron Radiator Centre</a>
<button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbarTogglerMain" aria-controls="navbarTogglerMain" aria-expanded="false" aria-label="Toggle navigation">
<span class="navbar-toggler-icon"></span>
</button>
<div class="navbar-collapse collapse" id="navbarTogglerMain">
<!--<ul class="nav navbar-nav">-->
<ul class="navbar-nav">
<%
End Sub
' (SS,22/2/23) Bootstrap 5, added class="nav-link"
' from help dropdown, removed class="dropdown-toggle" data-toggle="dropdown"
' added added class="nav-link dropdown-toggle" role="button" data-bs-toggle="dropdown" aria-expanded="false"
' also added class="dropdown-item" to each item
' divider changed from: <li role="separator" class="divider"></li>
' to: <li><hr class="dropdown-divider"></li>
' (SS,31/5/24) added mx-2 for spacing and text-black for black next to class="nav-link"
' (SS,13/6/24) removed mx-2 padding, causing issues on small devices i.e. indent
' renamed Customer Photos to Gallery, then to Photos
Sub ShowMenuFooter
%>
<li class="nav-item"><a class="nav-link text-black" href="products.asp?page=customerphotos">Photos</a></li>
<li><a class="nav-link text-black" href="products.asp?page=blog">Blog</a></li>
<li class="d-md-none d-lg-block"><a class="nav-link text-black" href="products.asp?page=btucalculator">BTU Calculator</a></li>
<li class="d-none d-md-block d-lg-none"><a class="nav-link text-black" href="products.asp?page=btucalculator">BTU <i class="fa-regular fa-calculator"></i></a></li>
<li class="nav-item dropdown">
<a href="#" class="nav-link dropdown-toggle text-black" role="button" data-bs-toggle="dropdown" aria-expanded="false">Help</a>
<ul class="dropdown-menu dropdown-menu-end">
<li><a class="dropdown-item" href="products.asp?page=account" rel="nofollow">Account</a></li>
<li><a class="dropdown-item" href="products.asp?page=about">About</a></li>
<li><a class="dropdown-item" href="products.asp?page=contact">Contact</a></li>
<li><a class="dropdown-item" href="products.asp?page=contact">Opening Times</a></li>
<li><hr class="dropdown-divider"></li>
<li><a class="dropdown-item" href="products.asp?page=reviews">Reviews</a></li>
<li><a class="dropdown-item" href="products.asp?page=news">News</a></li>
<li><a class="dropdown-item" href="products.asp?page=competition">Competition</a></li>
<!--<li><a class="dropdown-item" href="products.asp?page=brexit">Brexit Update</a></li>-->
<li><hr class="dropdown-divider"></li>
<li><a class="dropdown-item" href="products.asp?page=howtoorder">How to Order</a></li>
<li><a class="dropdown-item" href="products.asp?page=customerinfo">Customer Info</a></li>
<li><a class="dropdown-item" href="products.asp?page=privacy">Privacy Policy</a></li>
<li><a class="dropdown-item" href="javascript:document.getElementById('ba-cc-cban-set').click();">Cookie Settings</a></li>
<li><a class="dropdown-item" href="products.asp?page=deliveryinfo">Delivery Info</a></li>
<li><a class="dropdown-item" 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><hr class="dropdown-divider"></li>
<li><a class="dropdown-item" href="products.asp?page=faq">FAQ</a></li>
<li><a class="dropdown-item" href="products.asp?page=fittingguidelines">Fitting Guidelines</a></li>
<li><a class="dropdown-item" href="products.asp?page=calculatingpipecentres">Calculating Pipe Centres</a></li>
<li><a class="dropdown-item" href="products.asp?page=handlingcastironradiators">Handling Cast Iron Radiators</a></li>
<%If IsLocalMode Then%>
<li><hr class="dropdown-divider"></li>
<li><a class="dropdown-item" href="products.asp?cat=Local+Mode">Local Mode Products</a></li>
<%End If%>
</ul>
</li>
</ul>
</div><!--/.nav-collapse -->
</div><!--row-->
</div><!--container-->
</nav>
<!-- END OF MENU -->
<%
'AddScript "ScriptMenuDropdownHover"
End Sub
Sub ScriptMenuDropdownHover
%>
<script>
alert('1');
$(document).ready(function() {
$('.dropdown').hover(function() {
$(this).addClass('show');
$(this).find('.dropdown-menu').addClass('show');
}, function() {
$(this).removeClass('show');
$(this).find('.dropdown-menu').removeClass('show');
});
});
</script>
<%
End Sub
' (SS,18/5/15) ALevelNo can be used to provide tidy indenting depending on no
Sub ShowMenuSingle(ACaption, AHRef, ALevelNo)
%>
<li><a class="dropdown-item" href="<%=AHRef%>"><%=ACaption%></a></li>
<%
End Sub
' (SS,18/5/15)
' (SS,6/3/24) replaced <li class="divider"></li> with this new Bootstrap 5 version
Sub ShowMenuDivider
%>
<li><hr class="dropdown-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
' (SS,22/2/23) Bootstrap 5, added class="nav-link dropdown-toggle" role="button" data-bs-toggle="dropdown" aria-expanded="false"
' (SS,31/5/24) added mx-2
Sub ShowMenuDropdownHeader(ACaption, AHRef, ALevelNo)
' (SS,21/5/20) added following to show "Ex-Stock Sale" in red
Dim LStyle, LCaption
LCaption = ACaption
If LCaption = "Clearance" Then
'LStyle = " style=""background-color:#ffe6e6""" ' ffe6e6 ff8080
'LStyle = " style=""color:red"""
' (SS,31/5/24)
'LStyle = " style=""background-color:#ffe6e6""" ' ffe6e6 ff8080
' LStyle = " style=""color:black; font-weight:bold"""
' (SS,1/7/24) removed bold
LStyle = " style=""color:black;"""
Else
LStyle = "style=""color:black"""
End If
' (SS,31/5/24)
' (SS,13/6/24) removed due to indent issue
'Dim LSpacing
'If ACaption = "Cast Iron Radiators" Then
' LSpacing = "me-2"
'ElseIf ACaption = "Help" Then
' LSpacing = "ms-2"
'Else
' LSpacing = "mx-2"
'End If
' (SS,1/7/24) if caption is "Accessories & Spares" then shorten to "Accessories"
If LCaption = "Accessories & Spares" Then
LCaption = "Accessories"
End If
%>
<li class="nav-item dropdown">
<a class="nav-link dropdown-toggle" role="button" data-bs-toggle="dropdown" aria-expanded="false" <%=LStyle%> href="<%=AHRef%>"><%=LCaption%></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
%>