File: D:/web/castironradiatorcentre/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,30/09/24) added footnote after £2,000 (<sup>*</sup>) (
' (SS,02/10/24) changed footnote from * to 2 and added 1 to 10 year guarantee (Sub ShowUSPBarV2)
' (SS,18/11/24) added Sub ShowHomeBlackFridayBanner and call from ShowPage_home for testing
' (SS,20/11/24) changes to ShowHomeBlackFridayBanner, added three new version and terms text
' (SS,22/11/24) change to Sub ShowHomeBlackFridayBanner
' (SS,25/11/24) new images added to Sub ShowHomeBlackFridayBanner
' (SS,28/11/24) change to Sub ShowHomeBlackFridayBanner to show banner on main home page during sale period
' (SS,18/12/24) removed erroneous end div ' </div> <!-- row -->
' (SS,20/12/24) added Sub ShowHomeSaleBanner for January 2025 sale
' (SS,15/01/25) SEO Faber text update to Sub ShowHomeJumbotron
' (SS,15/04/25) Faber SEO text change to Sub ShowHomeWhyBuyFromUs and also added new bottom section via Sub ShowHomeBottomText
' (SS,15/04/25) Amended Sub ShowHomeSaleBanner for Easter sale
' (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)
' (SS,18/11/24)
'ShowHomeBlackFridayBanner
' (SS,20/12/24)
ShowHomeSaleBanner
' (SS,13/5/24) commented out for Bootstrap 5 version
' (SS,5/12/24)
CustomShowHolidayNotice "H", 0
%>
<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-fluid">
<div class="row">
<div class="container">
<div class="row">
<%
' (SS,16/5/24)
'ShowHomeOthers
' (SS,15/4/25) added following Faber SEO text
ShowHomeBottomText
%>
</div>
</div>
</div>
</div>
<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")%>
<%
' (SS,18/12/24) removed following erroneous end div
' </div> <!-- row -->
' (SS,5/5/16) destroy the object created at the start
Set oTemplateHome = Nothing
End Sub
' (SS,15/1/25) For SEO Faber, updated "Beautiful, Handmade Cast Iron Radiators" to "Handmade Traditional Cast Iron Radiators"
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">Handmade Traditional Cast Iron Radiators</h1>
<h2 class="fs-5 py-2">Up to 40% cheaper than our competitors</h2>
<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
' (SS,30/9/24) added footnote after £2,000 (<sup>*</sup>)
' (SS,2/10/24) changed footnote from * to 1 and added 2 to 10 year guarantee
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<small><sup>2</sup></small>", "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<small><sup>1</sup></small>", ""
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,15/4/25) old version kept here, to be removed
Sub ShowHomeWhyBuyFromUs_old
%>
<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 and 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,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
' (SS,12/8/24) text correction
' (SS,15/4/25) modified with new content from Faber SEO
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>
The Cast Iron Radiator Centre has been supplying high quality cast iron radiators to residential and
commercial customers for over 20 years. We combine high quality cast iron radiator craftsmanship with
exceptional customer service - that's why we're the UK's most trusted cast iron radiator company.
</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,15/4/25)
Sub ShowHomeBottomText
'ShowSectionHeading "Cast Iron Radiators", ""
%>
<h2>Cast Iron Radiators</h2>
<p>
Browse our range of exclusive designs in stunning colours. We stock a extensive selection of traditional radiators in
old style radiator colours, including matte, satin and metallic finishes. Our radiators take pride of place in both
period and contemporary properties. Meticulously hand assembled and tested in our purpose-built facility in the Midlands,
our cast iron radiators are made to the highest UK standards (CE Certified) and can be easily integrated into
any modern heating system and pipework.
</p>
<p>
Whether you're restoring a period property or revamping a modern home, you'll find everything you need to complete
your renovation. Our collection of cast iron column radiators includes a range of styles, from the stylish
two column old school radiators to the enduringly popular four column traditional radiators.
With column and <a href="products.asp?cat=Cast+Iron+Radiators&subcat=Ornate">ornate styles</a> available in a range of stylish colours, you'll be spoiled for choice.
</p>
<h2>Victorian Radiators</h2>
<p>
Eye catching looks and superior performance have given Victorian radiators a timeless appeal. While their excellent
heat retention has made traditional Victorian radiators an energy efficient investment, it's their unique and
traditional style that has made them a mainstay in UK homes.
</p>
<p>
Made to traditional Victorian designs with modern materials and manufacturing techniques,
our vintage (designs) radiators bring a touch of charm and style to any space. The modern updates allow you to
pair your old style radiators with modern-day pipework and energy-saving features like TRV valves.
</p>
<p>
Here at the Cast Iron Radiator Centre, all of our Victorian cast iron radiators are of the highest quality,
hand prepared and checked by us, and backed by our 10-year guarantee for peace of mind. They're also
excellent value for money with our price match guarantee.
</p>
<h3>What are the Benefits of Cast Iron Radiators?</h3>
<p>
Cast iron radiators offer timeless style, effortless charm and visual appeal. Beyond the beautiful aesthetics
of a well-designed cast iron column radiator, they also offer numerous benefits over standard panel radiators.
Our old style radiators are stylish, efficient and represent incredible value for money.
</p>
<h3>Are Victorian Radiators Good Quality?</h3>
<p>
Like most Victorian innovations, cast iron radiators are built to last. Our traditional cast iron radiators
are robust and resilient, providing reliable heating performance year after year without compromise.
The high quality materials we use combined with exceptional craftsmanship allow us to provide a 10 year guarantee on all radiators.
</p>
<h3>Are Old Style Radiators Efficient?</h3>
<p>
Cast iron radiators are well known for distributing heat evenly throughout the rooms they inhabit, providing a
higher degree of comfort, especially during colder months. Thanks to their excellent
heat retention - unlike some traditional radiators - cast iron radiators continue radiating warmth even after
your heating system is switched off. This can result in reduced energy usage and lower bills.
They can also be paired with efficient TRV valves to reduce energy consumption.
</p>
<h3>Will An Old Style Radiator Suit My Home?</h3>
<p>
Old fashioned radiators are perfect for period restorations, or for adding vintage flair to contemporary spaces.
Our cast iron radiators effortlessly bring sophistication and classic style to any home décor. We stock a wide range
of different cast iron radiators to suit your interior. Choose from a variety of different finishes, heights and column numbers.
</p>
<h3>Do You Stock Vintage Radiator Accessories?</h3>
<p>
Our extensive collection of <a href="products.asp?cat=Valves">cast iron radiator valves</a>,
<a href="products.asp?cat=Accessories+%26+Spares&subcat=Wall+Stays">wall stays</a>
and <a href="products.asp?cat=Accessories+%26+Spares&subcat=Pipe+Shrouds+-+Sleeves">pipe shrouds</a> means you can
find the perfect accessories to compliment your radiator. You can also make the process easier by choosing
from our selection of vintage radiator bundles.
</p>
<h4>Why Choose the Cast Iron Radiator Centre?</h4>
<p>
With a rich history as the UK's leading cast iron radiator company, the Cast Iron Radiator Centre has been at the
forefront of traditional radiators for over two decades. Throughout this time, our principles of providing customers
with value for money, high quality products and great service has remained the same.
</p>
<p>
A family ran business with a hands on approach, we pride ourselves on handling every aspect of your order in-house.
We make every radiator bespoke to your specification, pressure test every radiator, prime, top coat, cure and finally
dispatch your order from factory to your door.
</p>
<h4>Are Cast Iron Radiators Easy to Install?</h4>
<p>
Our cast iron radiators are very easy to install. Fully compatible with modern pipe work, and plumbing systems,
they can be installed by any qualified plumbing or heating expert, and they don't require an expensive specialist fitter.
For more information regarding installation, please visit our <a href="products.asp?page=fittingguidelines">fitting guidelines</a> page.
</p>
<%
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 inspiration 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 inspiration 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 inspiration 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
' (SS,18/11/24)
Sub ShowHomeBlackFridayBanner_prev
' only on test page for now
If Not IsTestPage Then Exit Sub
Dim LPageName
LPageName = GetPageName
If LPageName <> "test-home-2" Then Exit Sub
' for test-home-2 only
' width="1030" height="350"
' <img src="images/banner/black-friday-2024-3.png" class="d-block w-100" alt="Black Friday Sale">
%>
<div class="container-fluid p-0">
<picture>
<!-- show this up to sm -->
<source media="(max-width: 596px)" srcset="images/banner/black-friday-2024-sm.jpg">
<!-- else show this up to md -->
<source media="(max-width: 768px)" srcset="images/banner/black-friday-2024-md.jpg">
<!-- else show this -->
<img class="img-fluid w-100" alt="Black Friday Sale" src="images/banner/black-friday-2024-desktop.jpg">
</picture>
</div>
<%
End Sub
' (SS,18/11/24)
' (SS,19/11/24) added container to prevent full width pn desktop
Sub ShowHomeBlackFridayBanner
' only on test page for now
' (SS,28/11/24) added And Not CustomIsBlackFridaySale to make banner appear during Black Friday sale dates
If Not IsTestPage And Not CustomIsBlackFridaySale Then Exit Sub
Dim LPageName
LPageName = GetPageName
Dim LStyle, LAddClass
LStyle = ""
LAddClass = ""
' (SS,22/11/24) changed to just the one test page to the one that was "test-home-5"
' (SS,28/11/24) added Or LPageName = "" Or Or LPageName = "home"
If LPageName = "test-home-1" Or LPageName = "" Or LPageName = "home" Then
'Exit Sub
LStyle = " style=""background-color:black"""
LAddClass = " bg-secondary bg-opacity-10 pb-1"
' ElseIf LPageName = "test-home-2" Then
' ShowHomeBlackFridayBanner_prev
' Exit Sub
' ElseIf LPageName = "test-home-3" Then
'LStyle = " style=""background-color:#2e2e2e"""
' LStyle = " style=""background-color:#333333"""
' ElseIf LPageName = "test-home-4" Then
' LStyle = ""
' ElseIf LPageName = "test-home-5" Then
' LStyle = " style=""background-color:black"""
' LAddClass = " bg-secondary bg-opacity-10 pb-1"
Else
Exit Sub
End If
' for test-home-2 only
' width="1030" height="350"
' <img src="images/banner/black-friday-2024-3.png" class="d-block w-100" alt="Black Friday Sale">
' (SS,25/11/24) added new v2 images and removed black-friday-2024-sm.jpg which is for social media without voucher code on it
%>
<div class="container-fluid p-0 m-0"<%=LStyle%>>
<div class="container p-0">
<picture>
<!-- show this up to sm -->
<source media="(max-width: 596px)" srcset="images/banner/black-friday-2024-md-v2.jpg">
<!-- else show this up to md -->
<source media="(max-width: 768px)" srcset="images/banner/black-friday-2024-md-v2.jpg">
<!-- else show this -->
<img class="img-fluid w-100" alt="Black Friday Sale" src="images/banner/black-friday-2024-desktop-v2.jpg">
</picture>
</div>
</div>
<div class="container-fluid p-0 m-0<%=LAddClass%>">
<div class="container px-2">
<%ShowHomeBlackFridayTerms%>
</div>
</div>
<%
End Sub
Sub ShowHomeBlackFridayTerms
%>
<p class="fw-lighter small lh-sm m-0 mt-1" style="font-size:0.75rem">
<i><strong>*Terms and conditions:</strong> Offer to run from Friday 29<sup>th</sup> November until Wednesday 4<sup>th</sup> of December.
Offer entitles you to 10% off the entire range except clearance and sale items.
Only one voucher can be used per customer. Offer cannot be used in conjunction with any other offer.
The offer is only available while stocks last.
We reserve the right to end the offer at any time.
You'll need to sign up to our newsletter to receive the discount code, but can unsubscribe at any time.
Please contact our team if you have any further questions.</i>
</p>
<%
End Sub
' (SS,20/12/24) for January 2025 sale
Sub ShowHomeSaleBanner_old
' only on test page or home page if in date range
Dim LContinue
LContinue = False
If IsTestPage Then
LContinue = True
ElseIf Date() >= CDate("26/12/2024") And Date() <= CDate("31/01/2025") Then
LContinue = True
End If
If Not LContinue Then Exit Sub
Dim LPageName
LPageName = GetPageName
Dim LStyle
LStyle = " style=""background-color:black"""
%>
<div class="container-fluid p-0 m-0"<%=LStyle%>>
<div class="container p-0">
<picture>
<!-- show this up to sm -->
<source media="(max-width: 596px)" srcset="images/banner/jan-sale-2025-tall.jpg">
<!-- else show this up to md -->
<source media="(max-width: 768px)" srcset="images/banner/jan-sale-2025-tall.jpg">
<!-- else show this -->
<img class="img-fluid w-100" alt="January Sale 2025" src="images/banner/jan-sale-2025-wide.jpg">
</picture>
</div>
</div>
<%
End Sub
' (SS,20/12/24) for January 2025 sale
' (SS,15/4/25) amended for Easter sale
Sub ShowHomeSaleBanner
' only on test page or home page if in date range
Dim LContinue
LContinue = False
If IsTestPage Then
LContinue = True
' ElseIf Date() >= CDate("26/12/2024") And Date() <= CDate("31/01/2025") Then
ElseIf Date() >= CDate("18/04/2025") And Date() <= CDate("29/04/2025") Then
LContinue = True
End If
If Not LContinue Then Exit Sub
Dim LPageName
LPageName = GetPageName
' (SS,15/4/25)
Dim LMainImageVersion
If LPageName = "test-home-2" Then
LMainImageVersion = "2"
Else
LMainImageVersion = "3"
End If
Dim LStyle
LStyle = " style=""background-color:black"""
%>
<div class="container-fluid p-0 m-0"<%=LStyle%>>
<div class="container p-0">
<a href="products.asp?cat=Cast+Iron+Radiators&subcat=Ornate">
<picture>
<!-- show this up to sm -->
<source media="(max-width: 596px)" srcset="images/banner/easter-sale/easter-sale-square-v2.jpg">
<!-- else show this up to md -->
<source media="(max-width: 768px)" srcset="images/banner/easter-sale/easter-sale-main-v2.jpg">
<!-- else show this -->
<img class="img-fluid w-100" alt="Cast iron radiators Easter Sale 2025" src="images/banner/easter-sale/easter-sale-horizontal-v<%=LMainImageVersion%>.jpg">
</picture>
</a>
</div>
</div>
<%
End Sub
%>