File: D:/web/coventrydemolition/inc-template-highlights.asp
<%
' (SS,03/04/08) added "If ProductDiscontinued(AProductCode, AProductName)" to ShowHighlightsItem to not show "Buy" button for discontinued/special order products
' (SS,25/06/10) added IsStockAvailable to Sub ShowHighlightsItem
' (SS,06/07/10) replaced GetProductLink with GetProductLinkWithName for SEO in Sub ShowHighlightsItem
' (SS,19/06/12) hide buy button if no stock Sub ShowHighlightsItem
' (SS,20/05/13) added price per section using CustomShowPricePerSection to Sub ShowHighlightsItem
' (SS,14/08/14) new responsive web design version using Bootstrap
' (SS,28/01/26) added special version routines for radiator products and links to new site
' --- START OF HIGHLIGHT TEMPLATES --- '
' (SS,29/5/15) added grid for isotope to tidy the variable height cells
' (SS,19/8/15) added background-info class to h3 tag for the background experiment
Sub ShowHighlightsHeader
%>
<div class="container">
<div class="row">
<div class="col-lg-12 col-md-12 col-sm-12 col-xs-12">
<h3 class="logo-info">Featured Products</h3>
</div>
</div>
<div class="row grid">
<%
End Sub
' (SS,25/6/10) added IsStockAvailable
' (SS,6/7/10) replaced GetProductLink with GetProductLinkWithName for SEO
' (SS,24/1/11) corrected thumbnail from large to small in getpic.asp (highlight-image)
' (SS,19/6/12) added "If InStock(ANumInStock) Or IsStockAvailable" to only show buy button if there is stock
' (SS,20/5/13) added price per section using CustomShowPricePerSection
' (SS,14/8/14) new bootstrap version
' (SS,02/8/14) added diagonal ribbon thanks to http://isdntek.com/tagbot/diagonalbanners.htm
' (SS,29/5/15) added grid-item for isotope to tidy the variable height cells
' (SS,10/8/15) remove the word only
' (SS,11/8/15) modified to simply call ShowProductListItem
Sub ShowHighlightsItem(ACount, AProductCode, AProductName, ADescription, ASalePrice, AStdPrice, ANumInStock, ACategory, ASubcategory, AShowCategoryPicture)
ShowProductListItem 100, AProductCode, AProductName, ASalePrice, AStdPrice, ANumInStock, False, False, False, "", "", ""
End Sub
Sub ShowHighlightsFooter
%>
</div>
</div>
<%
End Sub
' --- END OF HIGHLIGHT TEMPLATES --- '
' (SS,28/1/26) special version
Sub ShowHighlightsSpecial
ShowHighlightsHeaderSpecial
ShowProductListItemSpecial "Traditional Column Radiators", "Traditional-Column-Menu-image.jpg.webp", "traditional-column-radiators"
ShowProductListItemSpecial "School Radiators", "Princess-Menu-image.jpg.webp", "school-radiators"
ShowProductListItemSpecial "Art Nouveau Radiators", "Art-Nouveau-Menu-image.jpg.webp", "art-nouveau"
ShowProductListItemSpecial "Ascot Radiators", "Ascot-Menu-image.jpg.webp", "ascot"
ShowProductListItemSpecial "Balmoral Radiators", "Balmoral-Menu-image.jpg.webp", "balmoral"
ShowProductListItemSpecial "Radiator Valves", "warwick-antique-brass-thermostatic-radiator-valve-set.jpg.webp", "radiator-valves"
ShowHighlightsFooterSpecial
End Sub
' (SS,28/1/26)
Sub ShowHighlightsHeaderSpecial
%>
<div class="container">
<div class="row">
<div class="col-lg-12 col-md-12 col-sm-12 col-xs-12">
<h3 class="logo-info">Cast Iron Radiators</h3>
</div>
</div>
<div class="row grid">
<%
End Sub
' (SS,28/1/26) taken from inc-template-product-list.asp and modified
Sub ShowProductListItemSpecial(AProductName, AImageName, ACategory)
Dim LProductLink, LImageURL
LProductLink = "https://www.castironradiatorcentre.co.uk/product-category/" & ACategory & "/"
LImageURL = "/banner/" & AImageName
%>
<!-- START OF PRODUCT LIST ITEM -->
<div class="col-lg-4 col-md-4 col-sm-6 col-xs-12 grid-item">
<div class="product-list-item">
<a href="<%=LProductLink%>">
<img class="product-list-item-image img-responsive" src="<%=LImageURL%>" alt="<%=AProductName%>"><br>
</a>
<a class="product-list-item-name" href="<%=LProductLink%>">
<big><%=AProductName%></big>
</a>
<div class="product-list-item-price">
</div>
<a href="<%=LProductLink%>" class="btn btn-default btn-primary btn-sm" role="button">More Details</a>
</div>
</div>
<!-- END OF PRODUCT LIST ITEM -->
<%
End Sub
' (SS,28/1/26)
Sub ShowHighlightsFooterSpecial
%>
</div>
</div>
<%
End Sub
'ShowHighlights
%>