File: D:/web/expressmusic/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,26/8/15) removed CustomShowHolidayNotice
' (SS,13/05/21) call to ShowRecentReviewsV2 10 changed to ShowRecentReviews 10, "TP"
' (SS,14/02/24) removed from USPs <li>�1m worth of stock</li>
Sub ShowPage_home
' show the home banner
Dim LBannerList, LBannerLines, i, LCols, LImageName, LAltTag, LURL
LBannerList = TrimAll(GetWebText("HomeBanner"))
LBannerLines = Split(LBannerList, NL, -1, 0)
If UBound(LBannerLines) <> -1 Then
%>
<div class="row">
<div class="container-no" style="margin-top: 15px">
<div class="col-md-12">
<div id="myCarousel" class="carousel slide" data-ride="carousel" data-interval="3000">
<ol class="carousel-indicators" style="bottom:-10px"><%
' do the data list, first one with class="active"
For i = LBound(LBannerLines) to UBound(LBannerLines)
%>
<li data-target="#myCarousel" data-slide-to="<%=i%>"<%=IIf(i=0," class=""active""","")%>></li><%
Next
%>
</ol>
<div class="carousel-inner"><%
For i = LBound(LBannerLines) to UBound(LBannerLines)
LCols = Split(LBannerLines(i), ",", -1, 0)
If UBound(LCols) = 2 Then ' ignore lines which don't have 3 columns, first is image name, second is alt tag, third is relative URL
LImageName = Trim(LCols(0))
LAltTag = Trim(LCols(1))
LURL = Trim(LCols(2))
%>
<div class="item <%=IIf(i=0,"active ","")%>itp-carousel">
<a href="<%=LURL%>"><img src="images/banner/<%=LImageName%>" alt="<%=HTMLEncode(LAltTag)%>"></a>
</div><%
End If
Next
%>
</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><!-- rows -->
<%
End If
%>
<div class="row">
<%
Dim LUSPColour, LUSP_Array
LUSPColour = "#854E15"
' Const USP_COLOURS = "#854E15 #613824 #000000 #CC6600 text-muted text-primary text-success text-info text-warning text-danger"
Const USP_COLOURS = "#854E15 #613824 #000000 #CC6600 red green blue"
LUSP_Array = Split(USP_COLOURS, " ")
If Session("USPColourCount") = "" Then
Session("USPColourCount") = 0
Else
Session("USPColourCount") = Session("USPColourCount") + 1
End If
' LUSPColour = LUSP_Array(Session("USPColourCount") Mod (UBound(LUSP_Array) + 1))
LUSPColour = "#854E15"
LUSPColour = "style=""color: " & LUSPColour & """"
%>
<div class="container">
<div class="row">
<div class="col-lg-6 col-md-6 col-sm-6 col-adjust-left">
<div class="panel panel-default" style="margin-top: 10px; margin-bottom: 0px">
<div class="panel-heading"><big><b>Why Choose Express Music?</b></big></div>
<div class="panel-body">
<ul class="usp2">
<li>Established 1983</li>
<li>Real time stock levels</li>
<li>Free next day UK shipping</li>
<li>14 day returns policy</li>
<li>Orders received before 12 shipped same day</li>
<!--<li>monday - saturday 9.30-5.30</li>-->
<li>Finance available</li>
<li>100% secure online shopping</li>
</ul>
</div>
</div>
</div>
<div class="col-lg-6 col-md-6 col-sm-6 col-adjust-right">
<%=GetWebText("HOME")%>
</div>
</div>
<hr style="margin-bottom: 0px" />
</div>
<%ShowHighlights%>
<div id="fb-root"></div>
<script>(function(d, s, id) {
var js, fjs = d.getElementsByTagName(s)[0];
if (d.getElementById(id)) return;
js = d.createElement(s); js.id = id;
js.src = "//connect.facebook.net/en_GB/sdk.js#xfbml=1&version=v2.3";
fjs.parentNode.insertBefore(js, fjs);
}(document, 'script', 'facebook-jssdk'));</script>
<div class="container">
<div class="row">
<div class="col-lg-6 col-md-6 col-sm-6 col-adjust-left">
<div class="panel panel-default">
<div class="panel-heading">Latest Reviews</div>
<div class="panel-body">
<% ShowRecentReviews 10, "TP" %>
<!-- TrustBox widget - Micro Review Count -->
<!--
<div class="trustpilot-widget" data-locale="en-GB" data-template-id="5419b6a8b0d04a076446a9ad" data-businessunit-id="4beb787200006400050b0d22" data-style-height="24px" data-style-width="100%" data-theme="light">
<a href="https://uk.trustpilot.com/review/expressmusic.co.uk" target="_blank" rel="noopener">Trustpilot</a>
</div>
-->
<!-- End TrustBox widget -->
</div>
</div>
</div>
<div class="col-lg-6 col-md-6 col-sm-6 col-adjust-right">
<div class="panel panel-default">
<div class="panel-heading">Latest News</div>
<div class="panel-body">
<div class="fb-page" data-href="https://www.facebook.com/pages/Express-Music/294749420962?ref=hl" data-width="500" data-height="1190" data-hide-cover="true" data-show-facepile="false" data-show-posts="true"><div class="fb-xfbml-parse-ignore"><blockquote cite="https://www.facebook.com/pages/Express-Music/294749420962?ref=hl"><a href="https://www.facebook.com/pages/Express-Music/294749420962?ref=hl">Express Music</a></blockquote></div></div>
<%
' (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 class="clear"></div>
</div>
</div>
</div>
</div>
</div>
<%=GetWebText("HomeFooter")%>
</div> <!-- row -->
<%
End Sub
%>