<%
' (SS,15/02/12) New for recent reviews and reviews page, product reviews are held in inc-template-other.asp
' (SS,23/05/12) Minor change to ShowReviewsPageItem
' (SS,28/08/14) Bootstrap version, version 2 of ShowRecentReviewsItem has more parameters, Recent Reviews link more to fotter and named More Reviews
' (SS,17/02/16) Changes to Sub ShowRecentReviewsItem to add Rich Snippets /  Microdata
' (SS,15/09/17) Added Sub ShowProductReviewsInDescHeader, ShowProductReviewsInDescItem, ShowProductReviewsInDescFooter
' (SS,05/10/20) Added two new parameters to call to ShowPageTitle in Sub ShowReviewsPageHeader
' (SS,13/05/21) Renamed routines for Trustpilot: ShowRecentReviewsEmptyTP, ShowRecentReviewsHeaderTP, ShowRecentReviewsItemTP, ShowRecentReviewsFooterTP, added extra parameters to ShowRecentReviewsHeaderTP
' (SS,14/06/24) Changes to Sub ShowRecentReviewsItemTP, ShowProductReviewsInDescItem and ShowReviewsPageItem to add "" to ShowReviewRatingStars for new options parameter

' --- START OF RECENT REVIEWS TEMPLATES --- '
Sub ShowRecentReviewsEmptyTP
' html to show if no recent reviews to go here '
%>
<%
End Sub

' (SS,13/5/21) added parameters AAverageRating, ARatingTitle, AReviewCount
Sub ShowRecentReviewsHeaderTP(AAverageRating, ARatingTitle, AReviewCount)
%>
<div id="recent-reviews">
  <div id="recent-reviews-header">

  </div>
<%
End Sub

' (SS,26/8/14) new parameters AReviewTitle, AProductRating, AReviewerName, AReviewText 
' (SS,15/2/16) added rich snippets for reviews
' (SS,16/4/17) replaced <i> tag with <span> for review stars due to <i> being deprecated
' (SS,19/11/20) used for Trustpilot reviews, added Trustpilot's own stars
' also removed the rich snippets, imnproved layout
Sub ShowRecentReviewsItemTP(ANumber, AReviewID, AProductCode, AProductName, ADateInfo, AReviewTitle, AProductRating, AReviewerName, AReviewText)
  Dim i
%>
<!-- START OF RECENT REVIEWS ITEM -->
  <div class="recent-reviews-item">

    
    
    <% 
    ' <img src="images/trustpilot/stars-< %=AProductRating% >.svg" height="20" alt="< %=AProductRating% > stars">
    ' (SS,15/8/23) replaced above with following due to Trustpilot complaint, Phil asked me to replaced the TP stars with standard yellow ones
    ' (SS,14/6/24) added "" options parameter
    ShowReviewRatingStars AProductRating, ""
    %>

    <div class="recent-reviews-date">
      <%=AReviewerName%>,&nbsp; <%=ADateInfo%>
    </div>       

    <div class="recent-reviews-title">
      <strong><%=AReviewTitle%></strong>
    </div>

    <div class="recent-reviews-text">
      <span><%=AReviewText%></span>
    </div>

<!-- END OF RECENT REVIEWS ITEM -->
  </div>
<%
End Sub

' (SS,17/3/22) renamed from ShowRecentReviewsFooterTPto ShowRecentReviewsFooterTPOld, to keep old version in case we revert back
Sub ShowRecentReviewsFooterTPOld
%>
  <div id="recent-reviews-footer">
    <a href="https://uk.trustpilot.com/review/expressmusic.co.uk" target="_blank">More Reviews</a>
  </div>
  <div class="clear"></div>
</div>
<%
End Sub

' (SS,17/3/22) removed More Reviews link for Trustpilot (old version above ShowRecentReviewsFooterTPOld)
Sub ShowRecentReviewsFooterTP
%>
  <div class="clear"></div>
</div>
<%
End Sub

' --- END OF RECENT REVIEWS TEMPLATES --- '

' --- START OF REVIEWS PAGE TEMPLATES --- '

Sub ShowReviewsPageHeader
  ShowPageTitle "Reviews", "", "" ' (SS,5/10/20) added 2 extra parameters
%>
<div id="other-pages2" style="padding: 0">
<%
End Sub

Sub ShowReviewsPageEmpty
%>
  No reviews yet.
<%
End Sub

' (SS,23/5/12) removed bold tags from product name which was resulting in extra bold via different font in IE and FireFox
' (SS,12/9/14) replaced ShowReviewRatingImage with ShowReviewRatingStars for Bootstrap, also further <i> with <em>
' (SS,14/6/24) added "" options parameter to ShowReviewRatingStars
Sub ShowReviewsPageItem(ANumber, AReviewID, AProductCode, AProductName, AProductDisabled, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LProductLinkStart, LProductLinkEnd, i
  If AProductDisabled Then
    LProductLinkStart = ""
    LProductLinkEnd = ""
  Else
    LProductLinkStart = "<a href=""" + GetProductLink(AProductCode) + """>"
    LProductLinkEnd = "</a>"
  End If
%>
<!-- START OF REVIEWS PAGE ITEM -->
  <div class="reviews-page-item">
      <div class="reviews-page-item-header">        
        <div class="reviews-page-item-name"><a name="reviewid<%=AReviewID%>"></a>
          <h4><%=LProductLinkStart%><%=AProductName%><%=Iif(AProductDisabled, " (discontinued)", "")%><%=LProductLinkEnd%><h4>
        </div>
      </div>
    <div class="row">
      <div class="col-lg-3 col-md-3 col-sm-4 col-xs-12">    
        <div class="reviews-page-item-left">
          <%=LProductLinkStart%><img class="reviews-page-image" src="<%=GetProductImageLink(AProductCode, "s")%>" alt="<%=AProductName%>" /><%=LProductLinkEnd%>      
        </div>
      </div>
      <div class="col-lg-9 col-md-9 col-sm-8 col-xs-12">
        <div class="reviews-page-item-right">
          <div class="reviews-page-item-right-header">
            <div class="reviews-page-item-rating">
            <%ShowReviewRatingStars ARating, ""%>
              <!--<div class="reviews-page-item-title"-->&nbsp;<big><b><%=ATitle%></b></big><!--</div>-->
            </div>            
            <!--<div class="reviews-page-item-date"><%=ADate%></div>-->
            <div class="reviews-page-item-review-by">Review by&nbsp;<%=AReviewedBy%> on <%=ADate%></div>        
          </div>
          <div class="reviews-page-item-body">        
            <p><em><%=AText%></em></p>
          </div>
        </div>
      </div>
    </div><!--row-->
  </div>
  <hr>
<!-- END OF REVIEWS PAGE ITEM -->  
<%
End Sub

Sub ShowReviewsPageFooter
%>
</div> <!-- end #other-pages2 -->
<%
End Sub

' (SS,15/9/17) added following for recent reviews to show in description, called from ShowProductReviewsInDesc in AppUtils.asp
Sub ShowProductReviewsInDescHeader
%>
  <hr>
  <div><h4>Most recent customer reviews</h4></div>
<%
End Sub

' (SS,15/9/17)
' (SS,14/6/24) added "" options parameter to ShowReviewRatingStars
Sub ShowProductReviewsInDescItem(ADate, ATitle, ARating, AText, AReviewedBy)
  ShowReviewRatingStars ARating, ""
  Response.Write "<span class=""small""> by " & AReviewedBy & " on " & ADate & "</span>"
  Response.Write AText
End Sub

' (SS,15/9/17)
Sub ShowProductReviewsInDescFooter
End Sub

' --- END OF REVIEWS PAGE TEMPLATE --- '


%>