File: D:/web/castironradiatorcentre/2024-07-02/new/inc-template-home.asp
<%
' (SS,14/8/14) Bootstrap version
' (SS,28/11/14) added call to sub CustomShowHolidayNotice
' (SS,2/3/15) improvement news section, to only show up to a certain a point to avoid getting too long. Added a link to More News.
' (SS,5/5/16) carousel improvements, including breaking down to separate ShowHomeCarouselItem routine
' (SS,23/3/20) removed sale banner (see inc-template-home - Copy (with sales banner).asp)
' (SS,13/05/21) Added Trustpilot reviews via ShowRecentReviews 10, "TP"
' (SS,17/05/21) Changed no of Trustpilot and in-house reviews from 10 to 5
' (SS,21/07/21) Removed TrustPilot reviews, not allowed with Free plan, increased inhose from 5 to 10
' (SS,21/07/21) Added Trustpilot widget
' (SS,24/05/22) removed top covid notice
' (SS,10/10/22) added banner at the top of the home page (see Sub ShowPage_home)
' (SS,05/01/23) added Sub ShowHomeCarouselSalesBanner and change to ShowPage_home to show this new sales banner before every other normal banner
' (SS,01/02/23) removed call to ShowHomeCarouselItem in ShowHomeCarouselSalesBanner, i.e. January Sale has passed
' (SS,13/07/23) change to ShowPage_home to replace news with call to GetSiteDetail instead of GetWebText for speed, shaved 0.6 secs off the page build time. It means tokens and special HTML characters won't be processed
' (SS,20/12/23) replaced latest news with latest blog post summaries, and moved Flockler widget into separate sub and placed below the reviews and blog posts
' (SS,21/12/23) removed PayPal banner from home page
' (SS,18/01/24) adjustment to blog section to remove grid, grid-item (also margin-bottom), applicable on blog page to correct grid usong Isotope
' (SS,5/5/16) added following class to store temporary values used by this unit/module, currently just carousel count
Class TemplateHome
Private FCarouselCount
Private Sub Class_Initialize()
FCarouselCount = 0
End Sub
Private Sub Class_Terminate()
End Sub
Public Property Get IsFirstCarousel()
IsFirstCarousel = FCarouselCount = 1
End Property
Public Sub IncCarouselCount
FCarouselCount = FCarouselCount + 1
End Sub
' (SS,17/6/24)
Public Property Get CarouselCount
CarouselCount = FCarouselCount
End Property
End Class
Dim oTemplateHome
Sub ShowPage_home
Set oTemplateHome = New TemplateHome ' (SS,5/5/16)
%>
<div class="container-fluid bg-black text-bg-dark px-0 px-md-3">
<div class="container">
<div class="row">
<%
ShowHomeJumbotron
ShowHomeCarouselNew
%>
</div>
</div> <!-- container -->
</div> <!-- container-fluid -->
<%
ShowUSPBar
'ShowMainTrustpilotWidget ' (SS,13/6/24)
%>
<div class="container-fluid">
<div class="row mt-3">
<%
' (SS,16/5/24)
' ShowHomeFindYourRadiator
' (SS,16/5/24)
'ShowHomeBestSellers
ShowHighlights
%>
</div>
</div>
<div class="container-fluid">
<div class="row">
<div class="container">
<div class="row">
<%
' (SS,16/5/24)
ShowHomeShopStyles
' (SS,16/5/24)
ShowHomeBeInspired
%>
</div>
</div>
</div>
</div>
<div class="container-fluid">
<div class="row">
<div class="container">
<div class="row">
<%
' (SS,10/5/24) modified and moved to separate routine
ShowHomeWhyBuyFromUs
' (SS,13/5/24) latest reviews move to separate ShowHomeLatestReviews
ShowHomeLatestReviews
%>
</div>
</div>
</div>
</div>
<div class="container">
<div class="row">
<%
' (SS,16/5/24)
'ShowHomeOthers
%>
</div>
</div>
<%
' (SS,13/5/24) commented out for Bootstrap 5 version
' CustomShowHolidayNotice "H", 0
%>
<div class="container" style="margin-top:20px;margin-bottom:-20px">
<%
' (SS,13/7/23) PayPalPayLater banner shown just before featured products instead of at the top
' (SS,21/12/23) commented out following to remove the PayPalPayLater banner
' CustomShowPayPalPayLaterBanner
%>
</div>
<%
' (SS,13/5/24) removed highlights
'ShowHighlights
' (SS,20/12/23) moved from here to below reviews and blog posts
'ShowFlocklerWidget
%>
<div class="container">
<div class="row">
<%
' (SS,13/5/24) moved latest blog posts summary to separate ShowHomeLatestBlogPosts, commented out in Bootstrap 5 version
'ShowHomeLatestBlogPosts
' (SS,13/5/24) moved latest news to separate routine, commented out in Bootstrap 5 version
'ShowHomeLatestNews
%>
</div>
</div>
<%
' (SS,20/12/23) moved here from above
' (SS,10/5/24) removed from Bootstrap 5
' ShowFlocklerWidget
%>
<%=GetWebText("HomeFooter")%>
</div> <!-- row -->
<%
' (SS,5/5/16) destroy the object created at the start
Set oTemplateHome = Nothing
End Sub
Sub ShowHomeJumbotron
' <div class="h-100 py-4 bg-black text-bg-dark">
' <h1 class="fs-2">Beautiful, Handmade Cast Iron Radiators</h1>
%>
<div class="col-lg-6 col-md-6 col-sm-12 col-12 my-auto">
<div class="h-100 bg-black text-bg-dark my-3">
<h1 class="fs-2" style="text-wrap:balance">Beautiful, Handmade Cast Iron Radiators</h1>
<h2 class="fs-5 py-2">Up to 40% cheaper than our competitors</h5>
<p>
Our Cast Iron Radiators are built, painted and prepared to order under one roof in our factory in the Midlands.
We've cut out the middle man so that you can save up to 40%.
We simply won't be beaten on price, and won't ever compromise on quality or customer service.
</p>
<a href="products.asp?cat=Cast+Iron+Radiators" class="btn btn-primary btn-lg" role="button">View all cast iron radiators</a>
</div>
</div>
<%
End Sub
' (SS,22/3/24) moved from above to this sub
Sub ShowHomeCarouselNew_prev
ShowHomeCarouselHeader
ShowHomeCarouselItemNew "circ-home-page-designer.jpg", "", "", ""
ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-3.jpg", "", "", ""
ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-6.jpg", "", "", ""
' ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-13.jpg", "", "", ""
'ShowHomeCarouselItemNew "Karen Massey Photography_Cast Iron Radiator Centre-88.jpg", "", "", ""
'ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-1.jpg", "", "", ""
'ShowHomeCarouselItemNew "Karen Massey Photography_Cast Iron Radiator Centre-121.jpg", "", "", ""
'ShowHomeCarouselItemNew "Karen Massey Photography_Cast Iron Radiator Centre-125.jpg", "", "", ""
'ShowHomeCarouselItemNew "Karen Massey Photography_Cast Iron Radiator Centre-159.jpg", "", "", ""
ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-44.jpg", "", "", ""
'ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-46.jpg", "", "", ""
'ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-118.jpg", "", "", ""
' ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-182.jpg", "", "", ""
ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-169.jpg", "", "", ""
' ShowHomeCarouselItemNew "Karen Massey Photography_Cast Iron Radiator Centre-59.jpg", "", "", ""
'ShowHomeCarouselItemNew "Karen Massey Photography_Cast Iron Radiator Centre-109.jpg", "", "", ""
' ShowHomeCarouselItemNew "Karen Massey Photography_Cast Iron Radiator Centre-127.jpg", "", "", ""
'ShowHomeCarouselItemNew "Karen Massey Photography_Cast Iron Radiator Centre-142.jpg", "", "", ""
'ShowHomeCarouselItemNew "Karen Massey Photography_Cast Iron Radiator Centre-143.jpg", "", "", ""
ShowHomeCarouselFooter
End Sub
' (SS,22/3/24) moved from above to this sub
Sub ShowHomeCarouselNew
ShowHomeCarouselHeader
' ShowHomeCarouselItemNew "circ-home-page-designer.jpg", "", "", ""
'ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-3.jpg", "", "", ""
'ShowHomeCarouselItemNew "traditional-victorian-cast-iron-radiator_CIRC-3.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Traditional+Column", "", ""
' ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-6.jpg", "", "", ""
'ShowHomeCarouselItemNew "traditional-3-column-cast-iron-radiator_CIRC-6.jpg", "products.asp?code=CDC-3C745&name=traditional-victorian-3-column-745mm-cast-iron-radiator", "", ""
'ShowHomeCarouselItemNew "traditional-victorian-4-column-cast-iron-radiator_CIRC-66_v2.jpg", "products.asp?code=CDC-760&name=traditional-victorian-4-column-760mm-cast-iron-radiator", "", ""
'ShowHomeCarouselItemNew "traditional-victorian-4-column-cast-iron-radiator_CIRC-66_v3.jpg", "products.asp?code=CDC-760&name=traditional-victorian-4-column-760mm-cast-iron-radiator", "", ""
' ShowHomeCarouselItemNew "tall-princess-cast-iron-radiator_CIRC-217_v2.jpg", "products.asp?code=CDC-TALLPRINCESS&name=tall-princess-2-column-760mm-cast-iron-radiator", "", ""
' ShowHomeCarouselItemNew "balmoral-cast-iron-radiator_CIRC-179.jpg", "products.asp?code=CDC-BALMORAL&name=balmoral-3-column-768mm-cast-iron-radiator", "", ""
'ShowHomeCarouselItemNew "traditional-column-760mm-cast-iron-radiator-bundle_CIC-105.jpg", "products.asp?code=CDC-760-10-MBAB-BUND&name=traditional-victorian-4-column-760mm-cast-iron-radiator-10-sections-mb-w-antique-brass-accessories", "", ""
'ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-13.jpg", "", "", ""
'ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-141.jpg", "", "", ""
' ShowHomeCarouselItemNew "short-ascot-cast-iron-radiator_CIRC-141.jpg", "products.asp?code=CDC-SHT-ASCOT&name=short-ascot-2-column-510mm-cast-iron-radiator", "", ""
' ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-44.jpg", "", "", ""
' ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-169.jpg", "", "", ""
' ShowHomeCarouselItemNew "balmoral-ascot.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Ornate", "", ""
' ShowHomeCarouselItemNew "Karen Massey Photography_CIRC-180_cr2.jpg", "", "", ""
ShowHomeCarouselItemNew "traditional-victorian-4-column-cast-iron-radiator_CIRC-66_v4.jpg", "products.asp?code=CDC-760&name=traditional-victorian-4-column-760mm-cast-iron-radiator", "Traditional Victorian 4 column cast iron radiator", ""
ShowHomeCarouselItemNew "traditional-victorian-3-column-cast-iron-radiator_CIRC-100.jpg", "products.asp?code=CDC-3C745&name=traditional-victorian-3-column-745mm-cast-iron-radiator", "Traditional Victorian 3 column cast iron radiator", ""
ShowHomeCarouselItemNew "tall-princess-cast-iron-radiator_CIRC-217_v3.jpg", "products.asp?code=CDC-TALLPRINCESS&name=tall-princess-2-column-760mm-cast-iron-radiator", "Tall Princess cast iron radiator", ""
ShowHomeCarouselItemNew "art-nouveau-cast-iron-radiator_CIRC-166.jpg", "products.asp?code=CDC-ARTNOU&name=art-nouveau-2-column-750mm-cast-iron-radiator", "Art Nouveau cast iron radiator", ""
ShowHomeCarouselItemNew "tall-ascot-cast-iron-radiator_CIRC-112.jpg", "products.asp?code=CDC-ASCOT&name=tall-ascot-2-column-768mm-cast-iron-radiator", "Tall Ascot cast iron radiator", ""
ShowHomeCarouselItemNew "balmoral-cast-iron-radiator_CIRC-180.jpg", "products.asp?code=CDC-BALMORAL&name=balmoral-3-column-768mm-cast-iron-radiator", "Balmoral cast iron radiator", ""
ShowHomeCarouselItemNew "traditional-column-760mm-18-section-cast-iron-radiator-bundle_CIC-188.jpg", "products.asp?code=CDC-760-18-MBAB-BUND&name=traditional-victorian-4-column-760mm-cast-iron-radiator-18-sections-mb-w-antique-brass-accessories", "Traditional Victorian 4 column 760mm 18 section cast iron radiator", ""
ShowHomeCarouselItemNew "short-princess-cast-iron-radiator_CIRC-13.jpg", "products.asp?code=CDC-SHORTPRINCESS&name=short-princess-2-column-560mm-cast-iron-radiator", "Short Princess cast iron radiator", ""
ShowHomeCarouselItemNew "short-ascot-cast-iron-radiator_CIRC-141_v2.jpg", "products.asp?code=CDC-SHT-ASCOT&name=short-ascot-2-column-510mm-cast-iron-radiator", "Short Ascot cast iron radiator", ""
If False Then
ShowHomeCarouselItemNew "traditional-victorian-9-column-cast-iron-radiator_CIRC-53.jpg", "products.asp?code=CDC-330&name=traditional-victorian-9-column-330mm-cast-iron-radiator", "", ""
ShowHomeCarouselItemNew "traditional-victorian-9-column-cast-iron-radiator_CIRC-53_v2.jpg", "products.asp?code=CDC-330&name=traditional-victorian-9-column-330mm-cast-iron-radiator", "", ""
ShowHomeCarouselItemNew "traditional-victorian-9-column-cast-iron-radiator_CIRC-53_v3.jpg", "products.asp?code=CDC-330&name=traditional-victorian-9-column-330mm-cast-iron-radiator", "", ""
End If
ShowHomeCarouselItemNew "traditional-victorian-4-column-760mm_CIRC-203.jpg", "products.asp?code=CDC-760&name=traditional-victorian-4-column-760mm-cast-iron-radiator", "Traditional Victorian 4 column 760mm cast iron radiator in white", ""
ShowHomeCarouselFooter
End Sub
Sub ShowHomeCarouselHeader
' <div class="col-lg-6 col-md-6 col-sm-12 col-adjust-right m-auto mb-lg-auto mb-md-auto mb-sm-3 mb-3">
%>
<div class="col-lg-6 col-md-6 col-sm-12 p-0 my-auto">
<div id="myCarousel" class="carousel slide carousel-fade" data-bs-ride="carousel" data-interval="3000">
<div class="carousel-inner">
<%
End Sub
Sub ShowHomeCarouselFooter
%>
</div>
<button class="carousel-control-prev" type="button" data-bs-target="#myCarousel" data-bs-slide="prev">
<span class="carousel-control-prev-icon" aria-hidden="true"></span>
<span class="visually-hidden">Previous</span>
</button>
<button class="carousel-control-next" type="button" data-bs-target="#myCarousel" data-bs-slide="next">
<span class="carousel-control-next-icon" aria-hidden="true"></span>
<span class="visually-hidden">Next</span>
</button>
<div class="carousel-indicators" style="bottom: -15px">
<% ' (SS,21/2/23) added indicators for Bootstrap 5
Dim i
For i = 0 To oTemplateHome.CarouselCount - 1
Response.Write "<button type=""button"" data-bs-target=""#myCarousel"" data-bs-slide-to=""" & i & iif(i <> 0, """", """ class=""active"" aria-current=""true""") & " aria-label=""Slide " & i + 1 & """></button>" & NL
Next
%>
</div>
</div><!-- /.carousel -->
</div> <!-- col -->
<%
End Sub
' (SS,22/3/24) moved from above to this sub
Sub ShowHomeCarouselOld
' (SS,21/2/23) replaced data-ride above with data-bs-ride for Bootstrap 5
ShowHomeCarouselStart
' (SS,16/11/17) added following new banner for main cast iron radiators
' (SS,20/11/17) removed to see the effect
'ShowHomeCarouselItem "cast-iron-radiators.jpg", "products.asp?cat=Cast+Iron+Radiators", "Cast iron radiators", "View cast iron radiators"
' (SS,10/8/18) rearranged order
' (SS,5/1/23) added sales banner via ShowHomeCarouselSalesBanner before every other normal banner image
ShowHomeCarouselSalesBanner ' (SS,5/1/23)
ShowHomeCarouselItem "traditional-victorian-cast-iron-radiators.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Traditional+Column", "Traditional Victorian cast iron radiators", "View traditional Victorian cast iron radiators"
ShowHomeCarouselSalesBanner ' (SS,5/1/23)
ShowHomeCarouselItem "traditional-victorian-cast-iron-radiator.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Traditional+Column", "Traditional Victorian cast iron radiators", "View traditional Victorian cast iron radiators"
ShowHomeCarouselSalesBanner ' (SS,5/1/23)
ShowHomeCarouselItem "school-radiators.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Princess+-+School", "School radiators", "View school radiators"
ShowHomeCarouselSalesBanner ' (SS,5/1/23)
ShowHomeCarouselItem "princess-radiator.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Princess+-+School", "Princess cast iron radiators", "View Princess cast iron radiators"
ShowHomeCarouselSalesBanner ' (SS,5/1/23)
ShowHomeCarouselItem "art-nouveau-cast-iron-radiators.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Art+Nouveau", "Art Nouveau cast iron radiators", "View Art Nouveau cast iron radiators"
ShowHomeCarouselSalesBanner ' (SS,5/1/23)
ShowHomeCarouselItem "art-nouveau-cast-iron-radiator.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Art+Nouveau", "Art Nouveau cast iron radiators", "View Art Nouveau cast iron radiators"
ShowHomeCarouselSalesBanner ' (SS,5/1/23)
ShowHomeCarouselItem "ascot-cast-iron-radiators.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Ascot", "Ascot cast iron radiators", "View Ascot cast iron radiators"
ShowHomeCarouselSalesBanner ' (SS,5/1/23)
ShowHomeCarouselItem "ascot-cast-iron-radiator.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Ascot", "Ascot cast iron radiators", "View Ascot cast iron radiators"
ShowHomeCarouselSalesBanner ' (SS,5/1/23)
ShowHomeCarouselItem "balmoral-cast-iron-radiators.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Balmoral", "Balmoral cast iron radiators", "View Balmoral cast iron radiators"
ShowHomeCarouselSalesBanner ' (SS,5/1/23)
ShowHomeCarouselItem "balmoral-cast-iron-radiator.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Balmoral", "Balmoral cast iron radiators", "View Balmoral cast iron radiators"
' (SS,24/10/17) commented out following two lines
'ShowHomeCarouselItem "banner-door-hardware-2.jpg", "https://www.vintagedoorknobs.co.uk", "Vintage door knobs, keyhole covers & ironmongery", "Visit Vintage Door Knob Centre"
'ShowHomeCarouselItem "banner-yard1.jpg", "https://www.coventry-demolition.co.uk", "Reclaimed period & reproduction building materials", "Visit Coventry Demolition"
ShowHomeCarouselEnd
End Sub
' if empty then not used e.g. no caption or button show
Sub ShowHomeCarouselItemOld(AOption, AImageFile, AURL, AImageCaption, AButtonCaption)
Dim LActive
oTemplateHome.IncCarouselCount
If oTemplateHome.IsFirstCarousel Then
LActive = "active "
Else
LActive = ""
End If
%>
<div class="item <%=LActive%>itp-carousel">
<img src="banner/<%=AImageFile%>" alt="<%=AImageCaption%>">
<div class="carousel-caption">
<h3><%=AImageCaption%></h3>
<a class="btn btn-lg btn-primary btn-strong" href="<%=AURL%>" role="button"><%=AButtonCaption%></a>
</div>
</div>
<%
End Sub
' if empty then not used e.g. no caption or button show
' (SS,5/3/24) replaced with BS5 version below
Sub ShowHomeCarouselItem_old_prev(AImageFile, AURL, AImageCaption, AButtonCaption)
Dim LActive, LGlyphArrow
oTemplateHome.IncCarouselCount
If oTemplateHome.IsFirstCarousel Then
LActive = "active "
Else
LActive = ""
End If
' (SS,16/6/17) replaced <i> with <span>
If Left(AURL, 7) = "http://" Or Left(AURL, 8) = "https://" Then
LGlyphArrow = " <span class=""glyphicon glyphicon-chevron-right""></span>"
Else
LGlyphArrow = ""
End If
' (SS,6/11/17) removed h3 tag from carousel-caption, because there's no h2 or h1 before it, i.e. not the ideal way to use a h3 tag
' (SS,13/7/23) added width="1030" height="350" to img to help with CLS
%>
<div class="item <%=LActive%>itp-carousel">
<a href="<%=AURL%>">
<img src="banner/<%=AImageFile%>" alt="<%=AImageCaption%>" width="1030" height="350">
</a>
<div class="carousel-caption">
<%If AImageCaption <> "" Then%>
<a class="carousel-caption-text" href="<%=AURL%>">
<%=AImageCaption%>
</a>
<%End If%>
<%If AButtonCaption <> "" Then%>
<a class="btn btn-lg btn-primary btn-strong btn-carousel hidden-xs" href="<%=AURL%>" role="button"><%=AButtonCaption + LGlyphArrow%></a>
<%End If%>
</div>
</div>
<%
End Sub
' if empty then not used e.g. no caption or button show
' (SS,21/2/23) modified for Bootstrap 5
' (SS,5/3/24) new Bootstrap 5 version
Sub ShowHomeCarouselItem(AImageFile, AURL, AImageCaption, AButtonCaption)
Dim LActive, LGlyphArrow
oTemplateHome.IncCarouselCount
If oTemplateHome.IsFirstCarousel Then
LActive = "active "
Else
LActive = ""
End If
' (SS,16/6/17) replaced <i> with <span>
If Left(AURL, 7) = "http://" Or Left(AURL, 8) = "https://" Then
LGlyphArrow = " <span class=""glyphicon glyphicon-chevron-right""></span>"
Else
LGlyphArrow = ""
End If
' (SS,6/11/17) removed h3 tag from carousel-caption, because there's no h2 or h1 before it, i.e. not the ideal way to use a h3 tag
' (SS,13/7/23) added width="1030" height="350" to img to help with CLS
' (SS,21/2/23) Bootstrap 5 changed class item to carousel-item, added class="d-block w-100" also added "d-none d-md-block" to "carousel-caption"
%>
<div class="carousel-item <%=LActive%>itp-carousel">
<a href="<%=AURL%>">
<img src="banner/<%=AImageFile%>" class="d-block w-100" alt="<%=AImageCaption%>" width="1030" height="350">
</a>
<div class="carousel-caption d-none d-md-block">
<%If AImageCaption <> "" Then%>
<a class="carousel-caption-text" href="<%=AURL%>">
<%=AImageCaption%>
</a>
<%End If%>
<%If AButtonCaption <> "" Then%>
<a class="btn btn-lg btn-primary btn-strong btn-carousel hidden-xs" href="<%=AURL%>" role="button"><%=AButtonCaption + LGlyphArrow%></a>
<%End If%>
</div>
</div>
<%
End Sub
' if empty then not used e.g. no caption or button show
' (SS,21/2/23) modified for Bootstrap 5
' (SS,5/3/24) new Bootstrap 5 version
Sub ShowHomeCarouselItemNew(AImageFile, AURL, AImageCaption, AButtonCaption)
Dim LActive
oTemplateHome.IncCarouselCount
If oTemplateHome.IsFirstCarousel Then
LActive = "active "
Else
LActive = ""
End If
' width="515" style="height:353px" class="d-block w-100"
' <img src="banner/bs5/.%=AImageFile%." class="d-block mx-auto" alt=".%=AImageCaption%." height="353">
' (SS,2/7/24) renamed banner/bs5 to images/banner
%>
<div class="carousel-item <%=LActive%>">
<a href="<%=AURL%>">
<img src="/images/banner/<%=AImageFile%>" class="d-block w-100" alt="<%=AImageCaption%>" width="515">
</a>
</div>
<%
End Sub
' (SS,5/1/23) just the sales banner, show multiple times
Sub ShowHomeCarouselSalesBanner
' (SS,1/2/23) removed
' ShowHomeCarouselItem "january-2023-sale.jpg", "products.asp?cat=Clearance", "", ""
End Sub
' (SS,21/2/23) for Bootstrap 5, only after bootstrap.bundle.min.js library has been loaded otherwise "new bootstrap" will fail
Sub ScriptCarousel
%>
<script>
const myCarouselElement = document.querySelector('#myCarousel')
const carousel = new bootstrap.Carousel(myCarouselElement, {
interval: 3000,
touch: false
})
</script>
<%
End Sub
' (SS,20/12/23) moved Flocker into this separate sub
Sub ShowFlocklerWidget
%>
<div class="container">
<div class="row">
<div class="col-lg-12 col-md-12 col-sm-12 col-xs-12 featured-products-header">
<h2>Customer Photos</h2>
</div>
</div>
<div class="row" style="margin-left:-10px; margin-right:-10px">
<div id="flockler-embed-188dde13cda03350bf5c374a1c91ac19"></div>
<script src="https://plugins.flockler.com/embed/188ddd645f70a27502c5642acd919e5d/188dde13cda03350bf5c374a1c91ac19" async></script>
</div>
</div> <!-- container -->
<%
End Sub
' USP Bars
' (SS,31/5/24) different version depending on querystring uspb
Sub ShowUSPBar
Dim LUSPBar
LUSPBar = CleanRequestQueryString("uspb")
If LUSPBar = "1" Then
ShowUSPBarV1
ElseIf LUSPBar = "2" Then
ShowUSPBarV2
ElseIf LUSPBar = "3" Then
ShowUSPBarV3
ElseIf LUSPBar = "4" Then
ShowUSPBarV4 "text-black-50"
ElseIf LUSPBar = "5" Then
ShowUSPBarV4 "text-success"
ElseIf LUSPBar = "all" Then
ShowUSPBarV1
ShowUSPBarV2
ShowUSPBarV3
ShowUSPBarV4 "text-black-50"
ShowUSPBarV4 "text-success"
ElseIf LUSPBar = "" Then
ShowUSPBarV2
End If
End Sub
' (SS,23/3/24)
' (SS,10/5/24) renamed from ShowHomeCardsV4 to ShowUSPBar
Sub ShowUSPBarV1
ShowUSPBarHeaderV1
ShowUSPBarItemV1 "", "clock", CustomGetRadiatorDespatchDaysForUSP & " Days", "Despatch time for your radiators"
ShowUSPBarItemV1 "", "tags", "Price promise", "We will not be beaten on price"
ShowUSPBarItemV1 "solid", "circle-star", "Rated 5*", "Read our 5* reviews on Trustpilot"
ShowUSPBarItemV1 "", "file-certificate", "10 years", "Guarantee* on all our radiators"
ShowUSPBarItemV1 "", "face-smile-hearts", "326,674", "Radiators sold to happy customers"
ShowUSPBarItemV1 "", "piggy-bank", "Bulk discount", "5% discount on orders over £2,000"
ShowUSPBarFooterV1
End Sub
' (SS,10/5/24) renamed from ShowHomeCardV4 to ShowUSPBarItem
Sub ShowUSPBarItemV1(AIconStyle, AIconName, ATitle, AText)
Dim LIconStyle, LIconName, LIcon
If AIconStyle = "" Or AIconStyle = "regular" Then
LIconStyle = "fa-regular"
Else
LIconStyle = "fa-" + AIconStyle
End If
If AIconName = "" Then
LIcon = ""
Else
LIconName = "fa-" + AIconName
LIcon = "<i class=""" + LIconStyle + " " + LIconName + " fa-xl""></i> "
End If
%>
<div class="col-6 col-md-4 col-lg-2 m-0 p-0">
<div class="card rounded-0 bg-light bg-gradient border-1">
<div class="rows">
<div class="card-body text-center px-0">
<%=LIcon%>
<h5 class="card-title fst-italic pt-2"><%=ATitle%></h5>
<p class="card-text"><%=AText%></p>
</div>
</div>
</div>
</div>
<%
End Sub
Sub ShowUSPBarHeaderV1
%>
<div class="container">
<div class="row">
<%
End Sub
Sub ShowUSPBarFooterV1
%>
</div>
</div>
<%
End Sub
' (SS,23/3/24)
' (SS,10/5/24) renamed from ShowHomeCardsV4 to ShowUSPBar
Sub ShowUSPBarV4(AOptions)
ShowUSPBarHeaderV4
ShowUSPBarItemV4 "", "clock", CustomGetRadiatorDespatchDaysForUSP & " Days", "Despatch time for your radiators", AOptions
ShowUSPBarItemV4 "", "tag", "Price Promise", "We will not be beaten on price", AOptions
ShowUSPBarItemV4 "solid", "square-star", "Rated 5*", "Read our 5* reviews on Trustpilot", AOptions
ShowUSPBarItemV4 "", "file-certificate", "10 Years", "10 year guarantee on all radiators", AOptions
ShowUSPBarItemV4 "", "face-smile-hearts", "326,674", "Radiators sold to happy customers", AOptions
ShowUSPBarItemV4 "", "piggy-bank", "Bulk Discount", "5% discount on orders over £2,000", AOptions
ShowUSPBarFooterV4
End Sub
' (SS,10/5/24) renamed from ShowHomeCardV4 to ShowUSPBarItem
Sub ShowUSPBarItemV4(AIconStyle, AIconName, ATitle, AText, AOptions)
Dim LIconStyle, LIconName, LIcon
Dim LColour
' text-black-50 or text-success
If AOptions = "" Then
LColour = "text-black-50"
Else
LColour = AOptions
End If
If AIconStyle = "" Or AIconStyle = "regular" Then
LIconStyle = "fa-regular"
Else
LIconStyle = "fa-" + AIconStyle
End If
If AIconName = "" Then
LIcon = ""
Else
LIconName = "fa-" + AIconName
LIcon = "<i class=""" + LColour + " " + LIconStyle + " " + LIconName + " fa-3x""></i> "
End If
' border-bottom-0 helps with bottom border not reaching the bottom for smaller widths and looking untidy
%>
<div class="col-6 col-md-4 col-lg-2 m-0 p-0 border-bottom border-1 border-light-subtle">
<div class="card rounded-0 bg-light bg-gradient border-1 border-light-subtle border-bottom-0">
<div class="rows">
<div class="card-body text-center px-0">
<%=LIcon%>
<h5 class="card-title pt-2 mb-1"><%=ATitle%></h5>
<p class="card-text lh-sm"><%=AText%></p>
</div>
</div>
</div>
</div>
<%
End Sub
Sub ShowUSPBarHeaderV4
%>
<div class="container-fluid bg-light bg-gradient">
<div class="container">
<div class="row">
<%
End Sub
Sub ShowUSPBarFooterV4
%>
</div>
</div>
</div>
<%
End Sub
' (SS,23/3/24)
' (SS,10/5/24) renamed from ShowHomeCardsV4 to ShowUSPBar
Sub ShowUSPBarV2_prev
ShowUSPBarHeaderV2
ShowUSPBarItemV2 "", "clock", CustomGetRadiatorDespatchDaysForUSP & " Days", "Despatch time for your radiators"
ShowUSPBarItemV2 "", "tag", "Price Promise", "We will not be beaten on price"
ShowUSPBarItemV2 "solid", "circle-star", "Rated 5*", "Read our 5* reviews on Trustpilot"
ShowUSPBarItemV2 "", "file-certificate", "10 Years", "Ten year guarantee on all our radiators"
ShowUSPBarItemV2 "", "face-smile-hearts", "326,674", "Radiators sold to happy customers"
ShowUSPBarItemV2 "", "piggy-bank", "Bulk Discount", "5% discount on orders over £2,000"
ShowUSPBarFooterV2
End Sub
' (SS,23/3/24)
' (SS,10/5/24) renamed from ShowHomeCardsV4 to ShowUSPBar
Sub ShowUSPBarV2
ShowUSPBarHeaderV2
ShowUSPBarItemV2 "", "clock", CustomGetRadiatorDespatchDaysForUSP & " Days", "Current despatch time for your radiators", ""
ShowUSPBarItemV2 "", "tag", "Price Promise", "We promise not to be beaten on price", "products.asp?page=customerinfo#pre-sales"
'ShowUSPBarItemV2 "solid", "circle-star", "Rated 5*", "Read our 5* reviews on Trustpilot"
'ShowUSPBarItemV2 "solid", "circle-star", "Rated 5*", "Over 300 5* reviews on Trustpilot"
ShowUSPBarItemV2 "solid", "circle-star", "Rated 5*", "300+ five star reviews on Trustpilot", "https://uk.trustpilot.com/review/www.castironradiatorcentre.co.uk"
ShowUSPBarItemV2 "", "file-certificate", "10 Years", "Ten year guarantee on all radiators", "products.asp?page=customerinfo#ten-year-guarantee"
ShowUSPBarItemV2 "", "face-smile-hearts", CustomGetRadiatorsSold & "+", "Radiators sold to happy customers", ""
ShowUSPBarItemV2 "", "piggy-bank", "Bulk Discount", "5% discount on orders over £2,000", ""
ShowUSPBarFooterV2
End Sub
' (SS,10/5/24) renamed from ShowHomeCardV4 to ShowUSPBarItem
' (SS,20/6/24) added AURL
Sub ShowUSPBarItemV2(AIconStyle, AIconName, ATitle, AText, AURL)
Dim LIconStyle, LIconName, LIcon
If AIconStyle = "" Or AIconStyle = "regular" Then
LIconStyle = "fa-regular"
Else
LIconStyle = "fa-" + AIconStyle
End If
If AIconName = "" Then
LIcon = ""
Else
LIconName = "fa-" + AIconName
LIcon = "<i class=""text-black-50 " + LIconStyle + " " + LIconName + " fa-3x""></i> "
End If
If AURL <> "" Then
LIcon = "<a href=""" + AURL + """>" + LIcon + "</a>"
End If
%>
<div class="col-6 col-md-4 col-lg-2 m-0 p-0">
<div class="p-1 d-flex flex-row align-items-center">
<div>
<%=LIcon%>
</div>
<div class="ps-2">
<p class="p-0 m-0 fw-bold"><small><%=ATitle%></small></p>
<p class="p-0 m-0 lh-1"><small><%=AText%></small></p>
</div>
</div>
</div>
<%
End Sub
Sub ShowUSPBarHeaderV2
%>
<div class="container-fluid bg-secondary bg-opacity-10 py-3">
<div class="container">
<div class="row">
<%
End Sub
Sub ShowUSPBarFooterV2
%>
</div>
</div>
</div>
<%
End Sub
' (SS,23/3/24)
' (SS,10/5/24) renamed from ShowHomeCardsV4 to ShowUSPBar
Sub ShowUSPBarV3
ShowUSPBarHeaderV3
ShowUSPBarItemV3 "", "clock", CustomGetRadiatorDespatchDaysForUSP & " Days", "Despatch time for your radiators"
ShowUSPBarItemV3 "", "tag", "Price Promise", "We will not be beaten on price"
ShowUSPBarItemV3 "solid", "square-star", "Rated 5*", "Read our 5* reviews on Trustpilot"
ShowUSPBarItemV3 "", "award-simple", "10 Years", "Ten year guarantee on all our radiators"
ShowUSPBarItemV3 "", "face-smile-hearts", "326,674", "Radiators sold to happy customers"
ShowUSPBarItemV3 "solid", "piggy-bank", "Bulk Discount", "5% discount on orders over £2,000"
ShowUSPBarFooterV3
End Sub
' (SS,10/5/24) renamed from ShowHomeCardV4 to ShowUSPBarItem
Sub ShowUSPBarItemV3(AIconStyle, AIconName, ATitle, AText)
Dim LIconStyle, LIconName, LIcon
If AIconStyle = "" Or AIconStyle = "regular" Then
LIconStyle = "fa-regular"
Else
LIconStyle = "fa-" + AIconStyle
End If
If AIconName = "" Then
LIcon = ""
Else
LIconName = "fa-" + AIconName
LIcon = "<i class=""text-black-50 " + LIconStyle + " " + LIconName + " fa-3x""></i> "
End If
%>
<div class="">
<%=LIcon%>
</div>
<div class="ps-2 pe-1">
<p class="p-0 m-0 fw-bold"><small><%=ATitle%></small></p>
<p class="p-0 m-0 lh-1"><small><%=AText%></small></p>
</div>
<%
End Sub
' <div class="p-1 d-flex flex-row align-items-center">
Sub ShowUSPBarHeaderV3
%>
<div class="container-fluid bg-secondary bg-opacity-10 py-4">
<div class="container p-0">
<div class="row">
<div class="d-flex flex-row align-items-center">
<%
End Sub
Sub ShowUSPBarFooterV3
%>
</div>
</div>
</div>
</div>
<%
End Sub
' (SS,10/5/24) for Bootstrap 5, separated into this routine, replaced panel with card classes etc, modified content
' (SS,14/5/24) cardless version
' (SS,31/5/24) replaced <h3> with <h2 class="p-2 px-3 fs-3 rounded-4 bg-secondary text-dark bg-opacity-10"
' removed class="usp3" from ul to remove the green ticks, just standard bullet points
' (SS,13/6/24) text "Based in the Midlands and a family run business for 39 years, this is why customers buy their radiators from us:" with new text
Sub ShowHomeWhyBuyFromUs
%>
<div class="col-lg-6 col-md-6 col-sm-12">
<div class="my-4">
<%ShowSectionHeading "Why choose The Cast Iron Radiator Centre", ""%>
<p>
Based in the Midlands and now in our 40th year of trading, we are a leading supplier of cast iron radiators. Our traditional,
Victorian cast iron radiators are perfect for contemporary interiors, period homes no matter how large or small your project is.
All our cast iron radiators are of the highest quality, hand prepared and checked by us, backed by our 10-year guarantee for peace of mind.
They're also excellent value for money with a price match guarantee.
</p>
<ul>
<li>10-year guarantee on all radiators</li>
<li>Price match guarantee</li>
<li>Built in the UK and CE approved</li>
<li>Fast <%=CustomGetRadiatorDespatchDaysForUSP%> day build & despatch time</li>
<li>40th year in business - family run</li>
<li>Over <%=CustomGetRadiatorsSold%> radiators sold</li>
<li>Rated 4.9 on TrustPilot</li>
</ul>
</div>
</div>
<%
End Sub
' (SS,13/5/24) separated in this routine
Sub ShowHomeLatestBlogPosts
Dim LBlogPosts, LPos
%>
<div class="col-lg-6 col-md-6">
<div class="panel panel-default">
<div class="panel-heading"><h3>Latest Blog Posts</h3></div>
<div class="panel-body">
<%
' (SS,20/11/23) added following to get the blog posts before the <!--END OF LATEST BLOGS--> point
LBlogPosts = GetSiteDetail("Page Content", "Blog")
LPos = InStr(LBlogPosts, "<!--END OF LATEST BLOG POSTS-->")
If LPos > 0 Then
LBlogPosts = Mid(LBlogPosts, 1, LPos - 1)
LBlogPosts = LBlogPosts + "</div>" ' (SS,18/1/24) added closing div which would have been choppped off
End If
LBlogPosts = ComposeDescription(LBlogPosts, False, False) ' convert tokens because GetSiteDetail doesn't
' replace the cols to properly fill the width otherwise it results in 3 across on desktop
LBlogPosts = ReplaceStr(LBlogPosts, "class=""col-sm-6 col-md-4 grid-item""", "") ' (SS,18/1/24) added grid-item
LBlogPosts = ReplaceStr(LBlogPosts, "class=""row grid""", "class=""row""") ' (SS,18/1/24) to remove grid (used for Isotope on blog page)
LBlogPosts = ReplaceStr(LBlogPosts, " style=""margin-bottom:20px""", "") ' (SS,18/1/24) remove bottom margin, applicable on blog page only
Response.Write LBlogPosts
%>
<div id="latest-news-footer">
<a href="<%=GetPageLink("blog")%>">More Blog Posts</a>
</div>
<div class="clear"></div>
</div>
</div>
</div>
<%
End Sub
' (SS,13/5/24) separated from main routine, remove the If LShowNews Then, now call is just commented out
Sub ShowHomeLatestNews
' (SS,2/3/15) added following to get the news before the <!--END OF LATEST NEWS--> point
' also added link to more news
Dim LNews, LPos
%>
<div class="col-lg-6 col-md-6">
<div class="panel panel-default">
<div class="panel-heading"><h3>Cast Iron Radiator Centre News</h3></div>
<div class="panel-body">
<%
'LNews = GetWebText("News")
' (SS,13/7/23) replaced above with following for speed, was adding 0.6 secs to web page build time, due to ComposeDesc being used on over 100K of text, page only had one token {} which was incorrect anyway due to holiday message
LNews = GetSiteDetail("Page Content", "News")
LPos = InStr(LNews, "<!--END OF LATEST NEWS-->")
If LPos > 0 Then
LNews = Mid(LNews, 1, LPos - 1)
End If
Response.Write LNews
%>
<div id="latest-news-footer">
<a href="<%=GetPageLink("news")%>">More News</a>
</div>
<div class="clear"></div>
</div>
</div>
</div>
<%
End Sub
' (SS,13/5/24) separated from main routine, old version
Sub ShowHomeLatestReviews_old
%>
<div class="col-lg-6 col-md-6">
<div class="panel panel-default">
<div class="panel-heading"><h3>Cast Iron Radiator Centre Reviews</h3></div>
<div class="panel-body">
<!-- TrustBox widget - Micro Review Count -->
<div class="trustpilot-widget" style="margin-bottom: 10px; padding-bottom: 15px; border-bottom: 1px solid #ddd;" data-locale="en-GB" data-template-id="5419b6a8b0d04a076446a9ad" data-businessunit-id="5914ce210000ff0005a2499c" data-style-height="24px" data-style-width="100%" data-theme="light"> <a href="https://uk.trustpilot.com/review/www.castironradiatorcentre.co.uk" target="_blank" rel="noopener">Trustpilot</a></div>
<!-- End TrustBox widget -->
<%
' (SS,23/7/15) changed from 5 to 10
' (SS,13/5/21) changed ShowRecentReviewsV2 to ShowRecentReviews 10, ""
' (SS,21/7/21) changed from 5 to 10 after removing TrustPilot reviews
ShowRecentReviews 10, "" %>
</div>
</div>
</div>
<%
End Sub
' (SS,13/5/24) separated from main routine, new version for Bootstrap 5
' showing just 3, replaced panels with cards, removed Trustpilot widget
' (SS,14/5/24) removed card class
Sub ShowHomeLatestReviews
%>
<div class="col-lg-6 col-md-6 col-sm-12">
<div class="my-4">
<%ShowSectionHeading "Cast Iron Radiator reviews", ""%>
<%
' ShowRecentReviews which calls ShowRecentReviewsNormal is in apputils.asp and calls following in inc-template-reviews.asp (a custom template)
' ShowRecentReviewsEmpty, ShowRecentReviewsHeader, ShowRecentReviewsItem, ShowRecentReviewsFooter
' (SS,18/6/24) WT for with title, EA to exclude anonymous
ShowRecentReviews 6, "WT,EA" %>
</div>
</div>
<%
End Sub
' (SS,16/5/24)
Sub ShowHomeBeInspired
%>
<div class="col-lg-6 col-md-6 col-sm-12">
<div class="mt-3">
<%ShowSectionHeading "Be inspired", ""%>
<p class="mb-0">Check out our customer and product galleries and get some inpiration for your project.</p>
<div id="flockler-embed-188de9a0a4d0ca28b3959a9a01dfa384"></div>
<script src="https://plugins.flockler.com/embed/188ddd645f70a27502c5642acd919e5d/188de9a0a4d0ca28b3959a9a01dfa384" async></script>
</div>
</div>
<%
End Sub
' (SS,16/5/24)
Sub ShowHomeBeInspired_old2
%>
<div class="col-lg-6 col-md-6 col-sm-6">
<div class="mt-3">
<%ShowSectionHeading "Be inspired", ""%>
<p class="mb-0">Check out our customer and product galleries and get some inpiration for your project.</p>
<div style="height: 250px" id="flockler-embed-19017aa2bc20acf21f0169306fb85d88"></div>
<script src="https://plugins.flockler.com/embed/188ddd645f70a27502c5642acd919e5d/19017aa2bc20acf21f0169306fb85d88" async></script>
</div>
</div>
<%
End Sub
Sub ShowHomeBeInspired_old3
%>
<div class="col-lg-6 col-md-6 col-sm-6">
<div class="mt-3">
<%ShowSectionHeading "Be inspired", ""%>
<p class="mb-0">Check out our customer and product galleries and get some inpiration for your project.</p>
<iframe
src="https://plugins.flockler.com/embed/iframe/188ddd645f70a27502c5642acd919e5d/19017aa2bc20acf21f0169306fb85d88"
id="flockler-embed-iframe-19017aa2bc20acf21f0169306fb85d88"
height="400"
style="display: block; border: none; width: 100%;"
allowfullscreen>
</iframe>
</div>
</div>
<%
End Sub
' (SS,16/5/24)
Sub ShowHomeShopStyles_old
%>
<div class="col-lg-6 col-md-6 col-sm-6">
<div class="my-3">
<%ShowSectionHeading "Shop Styles", ""%>
<p>View our 6 styles and choose which one is the right match for your property.</p>
<%
ShowHomeShopStyle "4-column.jpg", "Traditional Victorian 760mm in Satin Black", "products.asp?cat=Cast+Iron+Radiators&subcat=Traditional+Column"
ShowHomeShopStyle "3-column.jpg", "Traditional Victorian 3 col in 745mm Gunmetal Gray", "products.asp?code=CDC-3C745&name=traditional-victorian-3-column-745mm-cast-iron-radiator"
ShowHomeShopStyle "princess.jpg", "Tall Princess in Cream White", "products.asp?cat=Cast+Iron+Radiators&subcat=Princess+-+School"
ShowHomeShopStyle "art-nouveau.jpg", "Art Nouveau in Matt Black", "products.asp?cat=Cast+Iron+Radiators&subcat=Art+Nouveau"
ShowHomeShopStyle "ascot.jpg", "Tall Ascot Nouveau in Gunmetal Grey", "products.asp?cat=Cast+Iron+Radiators&subcat=Ascot"
ShowHomeShopStyle "balmoral.jpg", "Balmoral in Antique Bronze", "products.asp?cat=Cast+Iron+Radiators&subcat=Balmoral"
%>
</div>
</div>
<%
End Sub
' (SS,16/5/24)
Sub ShowHomeShopStyles_old2
%>
<div class="col-lg-6 col-md-6 col-sm-6">
<div class="my-3">
<%ShowSectionHeading "Cast Iron Radiator styles", ""%>
<p>View our 6 styles and choose which one is the right match for your property.</p>
<a href="products.asp?cat=Cast+Iron+Radiators"><img class="img-fluid" src="images/styles/shop-styles.jpg" alt="Shop Styles"></a>
</div>
</div>
<%
End Sub
' (SS,14/6/24)
' (SS,17/6/24) removed the text ShowSectionHeading call to reduce the height: <p>View our 6 styles and choose which one is the right match for your property.</p>
Sub ShowHomeShopStyles
%>
<div class="col-lg-6 col-md-6 col-sm-12">
<div class="mt-3">
<%ShowSectionHeading "Cast Iron Radiator styles", ""%>
<div class="row gx-1 mb-1">
<%
ShowHomeShopStyle "4-column.jpg", "Traditional Column", "products.asp?cat=Cast+Iron+Radiators&subcat=Traditional+Column"
ShowHomeShopStyle "princess-v2.jpg", "Princess", "products.asp?cat=Cast+Iron+Radiators&subcat=Princess+-+School"
ShowHomeShopStyle "art-nouveau-v2.jpg", "Art Nouveau", "products.asp?code=CDC-ARTNOU&name=art-nouveau-2-column-750mm-cast-iron-radiator"
%>
</div>
<div class="row gx-1">
<%
ShowHomeShopStyle "ascot-v2.jpg", "Ascot", "products.asp?cat=Cast+Iron+Radiators&subcat=Ascot"
ShowHomeShopStyle "balmoral-v2.jpg", "Balmoral", "products.asp?code=CDC-BALMORAL&name=balmoral-3-column-768mm-cast-iron-radiator"
ShowHomeShopStyle "bundles-v2.jpg", "Bundles", "products.asp?cat=Cast+Iron+Radiators&subcat=Radiator+Bundles+with+Accessories"
%>
</div>
</div>
</div>
<%
' AddScript "ScriptEnableTooltips"
End Sub
' (SS,16/5/24)
Sub ShowHomeShopStyle_prev(AImageName, AAltAtttribute, AURL)
%>
<a href="<%=AURL%>"><img src="images/styles/<%=AImageName%>" alt="<%=AAltAtttribute%>" height="280"></a>
<%
End Sub
Sub ShowHomeShopStyle(AImageName, ATitle, AURL)
%>
<div class="col-4 col-sm-4 col-md-4 ">
<div class="border rounded-4">
<a href="<%=AURL%>"><img class="img-fluid p-1 rounded-top-4" src="images/styles/<%=AImageName%>" alt="<%=ATitle%>"></a>
<p class="text-center m-0 mb-1 small fw-bold"><small><%=ATitle%></small></p>
</div>
</div>
<%
End Sub
' (SS,16/5/24)
Sub ShowHomeFindYourRadiator
%>
<div class="col-lg-6 col-md-6 col-sm-6">
<div class="my-3">
<h3>Find your radiator</h3>
<p>Find your ideal radiator by heat output, width or height Your perfect radiator is waiting for you.</p>
<div class="row my-2">
<div class="col-8">
<a href="products.asp?page=btucalculator" class="btn btn-light" role="button">Choose a radiator by BTU output</a>
</div>
<div class="col">
<a href="products.asp?page=btucalculator" class="btn btn-light fw-bold" role="button">Go</a>
</div>
</div>
<div class="row my-2">
<div class="col-8">
<a href="products.asp?page=btucalculator" class="btn btn-light" role="button">Choose a radiator by width (pipe centres)</a>
</div>
<div class="col">
<a href="products.asp?page=btucalculator" class="btn btn-light fw-bold" role="button">Go</a>
</div>
</div>
<div class="row my-2">
<div class="col-8">
<a href="products.asp?page=btucalculator" class="btn btn-light" role="button">Choose a radiator by height</a>
</div>
<div class="col">
<a href="products.asp?page=btucalculator" class="btn btn-light fw-bold" role="button">Go</a>
</div>
</div>
<div class="row mt-3">
<div class="col col-auto mt-2">
<a href="products.asp?page=btucalculator" class="btn btn-light fw-bold" role="button">What BTU value do i need?</a>
</div>
<div class="col col-auto mt-3">
<i class="fa-solid fa-arrow-left"></i>
</div>
<div class="col ms-0 ps-0">
<div><small><strong>Not sure what heat output you need? Use our BTU calculator.</strong></small></div>
</div>
</div>
</div>
</div>
<%
End Sub
' (SS,16/5/24)
Sub ShowHomeBestSellers
' ShowBestSellers
' ShowHighlights
ShowBestSellersHeader
ShowBestSellersItem "CDC-760", "Traditional Victorian", "4 Column 760mm"
ShowBestSellersItem "CDC-WARKTRV-GM", "Warwick Thermostatic", "Gun Metal Matt"
ShowBestSellersItem "CDC-LUXSTAY-ANTBR", "Luxury Wall Stay", "Antique Brass"
ShowBestSellersItem "CDC-660", "", ""
ShowBestSellersItem "CDC-WARKTRV-ANTBR", "", ""
ShowBestSellersItem "CDC-LUXSTAY-BLKNI", "", ""
ShowBestSellersFooter
%>
<%
End Sub
' (SS,16/5/24)
Sub ShowHomeOthers
%>
<div class="col-lg-12 col-md-12 col-sm-12 my-5">
<div class="row">
<%
ShopHomeOther "Factory", "Take a tour of the factory and see how our radiators are assembled, painted and packaged.", "our-factory.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Traditional+Column"
ShopHomeOther "Colours", "See our range of standard colours & read our guide on how to use your own paint.", "cast-iron-radiator-colours.jpg", "products.asp?page=blog&name=cast-iron-radiator-colours"
ShopHomeOther "Our Story", "Find out why we're the best and why we've sold over 321,000 radiators to date.", "our-story.jpg", "products.asp?page=about"
ShopHomeOther "What size do i need?", "Watch our video on how to calculate the size of radiator(s) you need for your different rooms.", "what-size-do-i-need.jpg", "https://www.youtube.com/@circrads"
ShopHomeOther "All about valves", "Find out what the difference is between manual and TRV valves and which is best for you.", "all-about-valves.jpg", "products.asp?page=blog&name=energy-saving-tips-for-cast-iron-radiators"
ShopHomeOther "Installation guide", "Read our installation guide and find out what you'll need to tell your heating engineer.", "installation-guide.jpg", "products.asp?page=fittingguidelines"
%>
</div>
</div>
<%
End Sub
' (SS,16/5/24)
Sub ShopHomeOther(AName, AText, AImage, AURL)
%>
<div class="col"><h6><%=AName%></h6>
<a href="<%=AURL%>"><img src="images/other/<%=AImage%>" alt="<%=AName%>" width="100%"></a>
<p><%=AText%></p>
</div>
<%
End Sub
' (SS,31/5/24) single place for section headings style in a particular way, may change to a class in future
' (SS,13/6/24) changed font size fs-3 to fs-4
Sub ShowSectionHeading(AHeadingName, AAdditionalClass)
Dim LAdditionalClass
LAdditionalClass = AAdditionalClass
If LAdditionalClass <> "" Then LAdditionalClass = " " & LAdditionalClass
%>
<h2 class="py-2 px-3 mb-3 fs-4 rounded-4 bg-secondary text-dark bg-opacity-10 <%=LAdditionalClass%>"><%=AHeadingName%></h2>
<%
End Sub
%>