File: D:/web/castironradiatorcentre/changes prev/2024-02-29 (copies)/inc-template-home - Copy (5).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,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
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"
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"
ShowHomeCarouselItem "school-radiators.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Princess+-+School", "School radiators", "View school radiators"
ShowHomeCarouselItem "princess-radiator.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Princess+-+School", "Princess cast iron radiators", "View Princess cast iron radiators"
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"
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"
ShowHomeCarouselItem "ascot-cast-iron-radiators.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Ascot", "Ascot cast iron radiators", "View Ascot cast iron radiators"
ShowHomeCarouselItem "ascot-cast-iron-radiator.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Ascot", "Ascot cast iron radiators", "View Ascot cast iron radiators"
ShowHomeCarouselItem "balmoral-cast-iron-radiators.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Balmoral", "Balmoral cast iron radiators", "View Balmoral cast iron radiators"
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%>
<%ShowHighlights%>
<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>
<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 moew news
Dim LNews, LPos
LNews = GetWebText("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>
</div>
</div>
<%=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
%>
<div class="item <%=LActive%>itp-carousel">
<a href="<%=AURL%>">
<img src="banner/<%=AImageFile%>" alt="<%=AImageCaption%>">
</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
Sub ShowHomeCarouselEnd
End Sub
%>