File: D:/web/castironradiatorcentre/2025-06-06/new b/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,04/02/25) added Bundles (AddMultiMenu) after accessories
' (SS,05/06/25) change to Sub ShowMenuDropdownHeader and ShowMenuSingle to show first level menu in dropdown (except cast iron radiators)
' (SS,06/06/25) change to Sub ShowMenuDropdownHeader to add link to "Cast Iron Radiators" to home page
' (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
' (SS,18/12/24) removed trailing </div><!--row--> which hadn't been commented out
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">
<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><!--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)
' (SS,5/6/25) added following to make top level bold, this is called separated from ShowMenuDropdownHeader to add "All.." because top isn't clickable and if it was then it wouldn't work with mobile
Dim LBold
If ALevelNo = 2 Then
LBold = " fw-bold"
Else
LBold = ""
End If
%>
<li><a class="dropdown-item<%=LBold%>" 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"
' (SS,5/2/25) if caption is "Radiator Bundles with Accessories" then shorten to "Bundles"
ElseIf LCaption = "Radiator Bundles with Accessories" Then
LCaption = "Bundles"
End If
' (SS,5/6/25) replaced AHRef in following with #
%>
<li class="nav-item dropdown">
<a class="nav-link dropdown-toggle" role="button" data-bs-toggle="dropdown" aria-expanded="false" <%=LStyle%> href="#"><%=LCaption%></a>
<ul class="dropdown-menu">
<%
' (SS,5/6/25) add the top level category as first entry in dropdown except for "Cast Iron Radiators"
' shown in bold, and added because this level isn't clickable, if it was then it wouldn't work well with mobile
' (SS,6/6/25) link for cast iron radiators added linking to home page
If LCaption = "Cast Iron Radiators" Then
ShowMenuSingle LCaption, "/", ALevelNo
Else
ShowMenuSingle "All " + LCaption, AHRef, ALevelNo
' ShowMenuDivider
End If
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 "Radiator Bundles with Accessories", "", "" ' (SS,5/2/25)
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
%>