File: D:/web/hyperflight/! bs5/inc-template-best-sellers.asp
<%
' (SS,06/06/2017) new version for Bootstrap, RWD
' --- START OF BEST SELLERS TEMPLATES --- '
Sub ShowBestSellersEmpty
' html to show if no best sellers to go here '
%>
<%
End Sub
' (SS,20/9/11) new table free versions
Sub ShowBestSellersHeader
%>
<div class="panel panel-default">
<div class="panel-heading">Best Sellers</div>
<div class="panel-body">
<%
End Sub
' (SS,18/2/05) added AMainGroup '
' (SS,17/1/13) corrected <br> to <br />
' (SS,6/6/17) Bootstrap version
Sub ShowBestSellersItem(ANumber, AProductCode, AProductDashAsUnderscore, AProductCodeURLEncoded, AProductName, APrice, AMainGroup, AMainCategory, AMainSubcategory)
Dim LProductID
LProductID = GetProductIDForProductCode(AProductCode) ' *** to add ProductID as parameter in future
%>
<div class="col-lg-12 col-md-12 col-sm-12 col-xs-12" style="border: 1px dashed #f4f4f4;">
<div class="row">
<div class="col-lg-3 col-md-3 col-sm-3 col-xs-3">
<a href="<%=GetProductLinkWithName(AProductCode, AProductName)%>"><img class="img-responsive" src="<%=GetProductImageLink(AProductCode, "s")%>"></a>
</div>
<div class="col-lg-9 col-md-9 col-sm-9 col-xs-9" style="padding-top:25px">
<a href="<%=GetProductLinkWithName(AProductCode, AProductName)%>"><%=AProductName%></a>
</div>
</div>
</div>
<%
End Sub
Sub ShowBestSellersFooter
%>
</div>
</div>
<%
End Sub
' --- END OF BEST SELLERS TEMPLATES --- '
' (SS,18/1/13) following removed, template now should be included in inc-main.asp and called using ShowBestSellers
' If Not ForProductList Then ShowBestSellers
%>