File: D:/web/castironradiatorcentre/changes prev/2024-02-29 (copies)/inc-template-home - Copy (9).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,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
End Class
Dim oTemplateHome
Sub ShowPage_home
Set oTemplateHome = New TemplateHome ' (SS,5/5/16)
' (SS,6/1/21) added lockdown / coronavirus / open message just before main banner
%>
<% ' (SS,10/10/22) PayPal Pay Later above home page banner
If Not GetPayPalPayLaterMessagesEnabled Then%>
<div class="container" style="margin-top: -10px; margin-bottom: 20px; margin-left: -10px">
<div class="row" style="">
<div class="col-lg-12 col-md-12">
<div data-pp-message data-pp-style-layout="flex" data-pp-style-ratio="20x1" data-pp-style-color="blue" data-pp-amount="0"></div>
</div>
</div>
</div>
<%End If%>
<div class="row">
<div class="container-no" style="margin-top: -10px">
<div class="col-md-12">
<div id="myCarousel" class="carousel slide" data-ride="carousel" data-interval="3000">
<div class="carousel-inner">
<%
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
%>
</div>
<a class="left carousel-control" href="#myCarousel" role="button" data-slide="prev"><span class="glyphicon glyphicon-chevron-left"></span></a>
<a class="right carousel-control" href="#myCarousel" role="button" data-slide="next"><span class="glyphicon glyphicon-chevron-right"></span></a>
</div><!-- /.carousel -->
</div> <!-- col -->
</div> <!-- container -->
<div class="container">
<div class="row">
<div class="col-lg-6 col-md-6 col-sm-6 col-adjust-left">
<%=GetWebText("HOME")%>
</div>
<div class="col-lg-6 col-md-6 col-sm-6 col-adjust-right">
<div class="panel panel-default" style="margin-top: 10px; margin-bottom: 0px">
<div class="panel-heading"><h2>Why Choose Cast Iron Radiator Centre?</h2></div>
<div class="panel-body" style="padding-top: 5px; padding-bottom: 5px">
<ul class="usp2">
<li>10 year guarantee on cast iron radiators</li>
<li>5% discount on orders above £2000<small><sup><sup>2</sup></sup></small></li>
<li>Price match guarantee<small><sup><sup>3</sup></sup></small></li>
<li>Radiator despatch normally <%=CustomGetRadiatorDespatchDaysForUSP%> working days<small><sup><sup>1</sup></sup></small></li>
<li>High quality products</li>
<li>High level of customer service</li>
</ul>
<hr style="margin-bottom: 5px" />
<div style="margin-left: 10px">
<small>
<sup>1</sup> See order confirmation email for anticipated despatch.
<sup>2</sup> ex VAT & delivery.
<sup>3</sup> For radiators only.<br />
</small>
</div>
</div>
</div>
</div>
</div>
</div>
<%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>
<%ShowHighlights
' (SS,20/12/23) moved from here to below reviews and blog posts
'ShowFlocklerWidget
%>
<div class="container">
<div class="row">
<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>
<%
Dim 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
Dim LBlogPosts
LBlogPosts = GetSiteDetail("Page Content", "Blog")
LPos = InStr(LBlogPosts, "<!--END OF LATEST BLOG POSTS-->")
If LPos > 0 Then
LBlogPosts = Mid(LBlogPosts, 1, LPos - 1)
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""", "")
Response.Write LBlogPosts
%>
<div id="latest-news-footer">
<a href="<%=GetPageLink("blog")%>">More Blog Posts</a>
</div>
<div class="clear"></div>
</div>
</div>
</div>
<%
' (SS,20/12/23) to hide the news keeping content below
Dim LShowNews
LShowNews = False
If LShowNews Then
%>
<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">
<%
' (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
'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 If ' If LShowNews
%>
</div>
</div>
<%
' (SS,20/12/23) moved here from above
ShowFlocklerWidget
%>
<%=GetWebText("HomeFooter")%>
</div> <!-- row -->
<%
' (SS,5/5/16) destroy the object created at the start
Set oTemplateHome = Nothing
End Sub
' (SS,5/5/16)
Sub ShowHomeCarouselStart
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
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
%>
<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
' (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
Sub ShowHomeCarouselEnd
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
%>