File: D:/web/coventrydemolition/inc-template-home - Copy (4).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,24/05/22) removed top covid notice
' (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" style="margin-bottom: 0px">
<div id="myCarousel" class="carousel slide" data-ride="carousel" data-interval="4000">
<div class="carousel-inner">
<%
ShowHomeCarouselStart
' ShowHomeCarouselItem AOption, AImageFile, AURL, AImageCaption, AButtonCaption ' if empty then not used e.g. no caption or button show
' ShowHomeCarouselItem "", "banner-mqw_trad_4c_760_01_montage_v2.jpg", "products.asp?cat=Cast+Iron+Radiators&subcat=Traditional+Column", "Traditional column cast iron radiators", "View traditional column radiators"
'ShowHomeCarouselItem "banner-new-website.jpg", "", "Welcome to Coventry Demolition Company", "About us"
'ShowHomeCarouselItem "banner-new-website.jpg", "", "", ""
ShowHomeCarouselItem "banner-yard1.jpg", "products.asp?search=&cmd=search", "Reclaimed period & reproduction building materials", "View products"
ShowHomeCarouselItem "banner-radiators-4.jpg", "https://www.castironradiatorcentre.co.uk", "Cast iron radiators, valves & accessories", "Visit Cast Iron Radiator Centre"
ShowHomeCarouselItem "banner-door-hardware-2.jpg", "https://www.vintagedoorknobs.co.uk", "Vintage door knobs, keyhole covers & ironmongery", "Visit Vintage Door Knob Centre"
ShowHomeCarouselItem "banner-bricks-v2.jpg", "products.asp?cat=Reclaimed+Products&subcat=Bricks", "Reclaimed bricks", "View reclaimed bricks"
ShowHomeCarouselItem "banner-roofing-v2.jpg", "products.asp?cat=Reclaimed+Products&subcat=Roofing", "Reclaimed roofing materials", "View reclaimed roofing products"
ShowHomeCarouselItem "banner-flooring.jpg", "products.asp?cat=Solid+Wood+Flooring", "Flooring", "View flooring"
ShowHomeCarouselItem "banner-doors.jpg", "products.asp?cat=Cottage+Doors", "Cottage doors", "View cottage doors"
ShowHomeCarouselItem "banner-assorted-1.jpg", "products.asp?cat=+Home+%26+Garden+Products", "Assorted reclaimed home & garden products", "View home & garden products"
ShowHomeCarouselItem "banner-assorted-2.jpg", "products.asp?cat=+Home+%26+Garden+Products", "Assorted reclaimed home & garden products", "View home & garden products"
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"><big><b>Why Choose Coventry Demolition?</b></big></div>
<div class="panel-body" style="padding-top: 5px; padding-bottom: 5px">
<ul class="usp2">
<li>Established 1985</li>
<li>High quality products at trade prices</li>
<li>High levels of customer service</li>
<li>30 day return policy<sup>*</sup></li>
<li>Overnight courier shipping available</li>
<li>Great customer reviews</li>
</ul>
<hr style="margin-bottom: 5px" />
<div style="margin-left: 20px">
<small>
<sup>*</sup> Only applies to door knobs & hardware.
</small>
</div>
</div>
</div>
</div>
</div>
</div>
<div class="container">
<div class="row">
<div class="col-lg-6 col-md-6 col-sm-6 col-adjust-right">
<div class="visit-other-site-section-1">
<h3>Cast iron radiators, valves & accessories</h3>
<a class="btn btn-lg btn-primary btn-strong btn-section" target="_blank" href="https://www.castironradiatorcentre.co.uk" role="button">Visit Cast Iron Radiator Centre <i class="glyphicon glyphicon-chevron-right"></i></a>
</div>
</div>
<div class="col-lg-6 col-md-6 col-sm-6 col-adjust-right">
<div class="visit-other-site-section-2">
<h3>Door knobs, keyhole covers & ironmongery</h3>
<a class="btn btn-lg btn-primary btn-strong btn-section" target="_blank" href="https://www.vintagedoorknobs.co.uk" role="button">Visit Vintage Door Knob Centre <i class="glyphicon glyphicon-chevron-right"></i></a>
</div>
</div>
</div>
<hr style="margin-bottom: 0px" />
</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">Latest News</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">Latest Reviews</div>
<div class="panel-body">
<% ShowRecentReviewsV2 5 %>
</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
If Left(AURL, 7) = "http://" Or Left(AURL, 8) = "https://" Then
LGlyphArrow = " <i class=""glyphicon glyphicon-chevron-right""></i>"
Else
LGlyphArrow = ""
End If
%>
<div class="item <%=LActive%>itp-carousel">
<a href="<%=AURL%>">
<img src="banner/<%=AImageFile%>" alt="<%=AImageCaption%>">
</a>
<div class="carousel-caption">
<%If AImageCaption <> "" Then%>
<a href="<%=AURL%>">
<h3><%=AImageCaption%></h3>
</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
%>