<%

' (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,01/06/17) change to ShowHighlightsItem to use product list instead and added a horizontal sale banner to ShowProductListItem (see inc-template-product-list.asp) 
' (SS,30/05/18) in ShowHighlightsHeader, added "grid" to last div class to make isotope work

' --- START OF HIGHLIGHT TEMPLATES --- '

' (SS,3/12/15) For SEO changed "Featured Products" to "Featured Cast Iron Radiators"
' (SS,13/11/17) For SEO changed "Featured Cast Iron Radiators" to "Cast Iron Radiators"
' (SS,30/5/18) added grid to last div class to make isotope work
Sub ShowHighlightsHeader
%>
    <div class="container">    
      <div class="row">
        <div class="col-lg-12 col-md-12 col-sm-12 col-xs-12 featured-products-header">
          <h2>Cast Iron Radiators</h2>
        </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,01/6/17) ribbon version can be removed
Sub ShowHighlightsItemOld(ACount, AProductCode, AProductName, ADescription, ASalePrice, AStdPrice, ANumInStock, ACategory, ASubcategory, AShowCategoryPicture)
  Dim LProductLink
  LProductLink = GetProductLinkWithName(AProductCode, AProductName)
  ' (SS,17/1/13) replaced & with &amp; to reduce HTML errors in http://validator.w3.org
%>
        <div class="col-lg-4 col-md-4 col-sm-6 col-xs-12">
          <a href="<%=LProductLink%>">
           
            <div class="photo_holder" style="position:relative">
              <img class="img-responsive img-itp-container" src="getpic.asp?size=l&amp;code=<%=AProductCode%>" alt="<%=AProductName%>" />  
              <div class="ribbon_holder" style="position:absolute; left:-6px; top:-6px;">
                <div class="ribbon_wraps" >
                  <div class="ribbon_wrapLt"></div>
                  <div class="ribbon_wrapRt"></div>
                  <div class="ribbon_banner">
                      <%=IIf(ASalePrice <> "", "SALE &nbsp;", "")%>Only <%ShowProductPriceSimple False%><%CustomShowPerSectionText(GetProductID)%>
                  </div>
                </div>
              </div>
            </div>
        
            <p class="itp-caption"><%=CustomProductNameWithBreak(AProductName)%></p>
          </a>        
        
        </div>
<%
End Sub

' (SS,1/6/17) replaced above with following to highlight summer sale, also remove the ribbon and show the prices as in product list, change also made to product list to show a "Summer Saler" banner
Sub ShowHighlightsItem(ACount, AProductCode, AProductName, ADescription, ASalePrice, AStdPrice, ANumInStock, ACategory, ASubcategory, AShowCategoryPicture)
 ' ShowProductListItem 100, AProductCode, AProductName, ASalePrice, AStdPrice, ANumInStock, False, False, False, "", "", ""
  ShowProductListItem 100, AProductCode, CustomProductNameWithBreak(AProductName), ASalePrice, AStdPrice, ANumInStock, False, False, False, "", "", ""
End Sub


Sub ShowHighlightsFooter
%>
      </div>        
    </div>			
<%
End Sub

' --- END OF HIGHLIGHT TEMPLATES --- '


'ShowHighlights

%>