<%
' (SS,17/05/24) inc-template-best-seller.asp, new version, previously it wasn't being used in CIRC
' This version not called from apputils.asp, special manual version for now

' --- START OF BEST SELLERS TEMPLATES --- '
Sub ShowBestSellersEmpty
' html to show if no best sellers to go here '
%>
<%
End Sub


Sub ShowBestSellersHeader
'  <h2 class="p-2 px-3 fs-3 rounded-4 bg-secondary text-dark bg-opacity-10">Best Sellers</h2>
%>
<div class="container">
  <div class="row">  
<%
  ShowSectionHeading "Best selling Cast Iron Radiators &amp; Accessories", ""
End Sub

' (SS,18/2/05) added AMainGroup
Sub ShowBestSellersItemOld(ANumber, AProductCode, AProductDashAsUnderscore, AProductCodeURLEncoded, AProductName, APrice, AMainGroup, AMainCategory, AMainSubcategory)
%>
<!-- START OF BEST SELLERS ITEM -->
<div id="topsell">
<span class="topsell_no"><%=ANumber%>. </span><span class="topsell_prodname"><a href="<%=GetProductLink(AProductCode)%>"><%=AProductName%></a></span><br>
<!-- Display brand <span class="topsell_brand"><%=AMainGroup%></span><br> -->
<!-- Display price <span class="topsell_price"><%=APrice%></span> -->
<br>
</div>
<!-- END OF BEST SELLERS ITEM -->
<%
End Sub

Sub ShowBestSellersItem_old(AProductCode, AMainName, ASubName)
  Dim LProductName, LMainName, LSubName
  LProductName = GetProductName(AProductCode)
  LMainName = AMainName
  LSubName = ASubName
  ' If LShortName = "" Then LShortName = LProductName
  
  Dim LReviewRating, LReviewCount
  LReviewRating = GetReviewRatingAndCount(AProductCode, LReviewCount)
  
  Dim LProductID
  LProductID = GetProductIDForProductCode(AProductCode)
%>
<!-- START OF BEST SELLERS ITEM -->
    <div class="col card m-1 p-2 rounded-0">
      <div class="m-1">
        <a href="<%=GetProductLinkWithName(AProductCode, LProductName)%>" title="<%=LProductName%>"><img class="img-thumbnail rounded-0 border-light-subtle" src="<%=GetProductImageLink(AProductCode, "s")%>" width="100%" height="100%" alt="<%=AProductCode%>"></a>
      </div>
      <div class="card-body p-1">
      <p class="card-title m-0 p-0"><small><small><strong><%=LMainName%></strong></small></small>
      <br><small><%=ASubName%></small>
      </p>
      <%ShowReviewRatingStars LReviewRating, ""
      Response.Write " <small>(" & LReviewCount & ")</small>"
      %>
      <p class="mb-0"><small>
      <strong>
      <%=GetProductPriceForProductID(LProductID, False, True)%>
      </strong>
      <%CustomShowPerSectionText(LProductID)%>
      </small></p>
      </div>
    </div>
<!-- END OF BEST SELLERS ITEM -->
<%
End Sub

Sub ShowBestSellersItem(AProductCode, AMainName, ASubName)
  Dim LProductName, LMainName, LSubName
  LProductName = GetProductName(AProductCode)
  LMainName = AMainName
  LSubName = ASubName
  ' If LShortName = "" Then LShortName = LProductName
  
  Dim LReviewRating, LReviewCount
  LReviewRating = GetReviewRatingAndCount(AProductCode, LReviewCount)
  
  Dim LProductID
  LProductID = GetProductIDForProductCode(AProductCode)
%>
<!-- START OF BEST SELLERS ITEM -->
    <div class="col-6 col-lg-2 col-md-4 col-sm-6 m-0 p-0">
      <div class="card m-1 p-1 m-lg-1 p-lg-1 m-md-3 p-md-3 m-sm-3 p-sm-3 rounded-4">
        <div class="m-1">
          <a href="<%=GetProductLinkWithName(AProductCode, LProductName)%>" title="<%=LProductName%>"><img class="img-thumbnail border-0" src="<%=GetProductImageLink(AProductCode, "s")%>" width="100%" height="100%" alt="<%=AProductCode%>"></a>
        </div>
        <div class="card-body p-1 text-center">
        
        
          <div class="d-flex flex-column align-items-start">
            <div class="mx-auto" style="height: 4.5em;" >
              <p class="card-title m-0 p-0"><%=LProductName%>
              </p>
            </div>
            <div class="mx-auto">
              <p class="my-2 lh-1">
              <strong><span class="text-danger">
              <%=GetProductPriceForProductID(LProductID, False, True)%>
              </span>
              </strong>             
              <br>
              <strong>
              <%CustomShowPerSectionText(LProductID)%>&nbsp;
              </strong>
              </p>
            </div>
            
            <div class="mx-auto">
              <a href="<%=GetProductLinkWithName(AProductCode, LProductName)%>" class="btn btn-primary btn-sm mb-1" role="button">More details</a>
              <a href="<%=GetBuyLink(AProductCode)%>" class="btn btn-success btn-sm mb-1" role="button">Buy</a>
            </div>
            
            <div class="mx-auto">
            <%ShowReviewRatingStars LReviewRating, ""
            Response.Write "<small>(" & LReviewCount & ")</small>"
            %>
            </div>
            
          </div>
          
          
        

       </div>
      </div>
    </div>
<!-- END OF BEST SELLERS ITEM -->
<%
End Sub

Sub ShowBestSellersItemTest(AProductCode, AMainName, ASubName)
  Dim LProductName, LMainName, LSubName
  LProductName = GetProductName(AProductCode)
  LMainName = AMainName
  LSubName = ASubName
  ' If LShortName = "" Then LShortName = LProductName
  
  Dim LReviewRating, LReviewCount
  LReviewRating = GetReviewRatingAndCount(AProductCode, LReviewCount)
  
  Dim LProductID
  LProductID = GetProductIDForProductCode(AProductCode)
%>
<!-- START OF BEST SELLERS ITEM -->
    <div class="col-lg-2">
        <div class="m-1 p-1 border">
<p>Test</p>
<p>Test</p>
<p>Test</p>
        </div>
    </div>
<!-- END OF BEST SELLERS ITEM -->
<%
End Sub


Sub ShowBestSellersFooter
%>
  </div>
</div>
<%
End Sub

' --- END OF BEST SELLERS TEMPLATES --- '


' If Not ForProductList Then ShowBestSellers
%>