File: D:/web/castironradiatorcentre/changes prev/2024-02-29 (copies)/inc-template-home - Copy (2).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,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
%>
<div class="row">
<div class="container-no" style="margin-top: -10px">
<div class="col-md-12">
<div>
<div class="alert alert-info text-center" style="margin-bottom: 10px">
Despite the latest lockdown, we are open and taking orders online as usual.
<br>Please see <a href="products.asp?page=coronavirus">Coronavirus Notice</a> for latest updates.
</div>
</div>
<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 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 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">
<%
' (SS,23/7/15) changed from 5 to 10
ShowRecentReviewsV2 10 %>
</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
%>