<%
' === COMMON TEMPLATE (SAME FOR ALL SHOPPING SITES) ===

' (SS,01/05/09)
' (SS,15/05/09) improvements
' (SS,18/05/09) renamed from inc-template-reviews.asp to inc-template-other.asp
' because it now holds back in stock notifications and other things
' (SS,17/06/09) remove "the" from several places e.g. "Thank you for reviewing the" etc.
' (SS,19/06/09) added AShowReviewCount to ShowReviewRating
' (SS,22/06/09) reduced cols for ReviewText from 60 to 57 to allow fitting for narrowing sites e.g. CovDem
' (SS,21/03/11) added banner template, i.e. ShowBannerHeader, ShowBannerFooter, ShowBannerItem
' (SS,17/06/11) change to GetReviewRatingImgSrc to centre vertically next to next
' replaced all underscores in review classes with dashes, also replaced some id's with class's
' (SS,20/06/11) removed all class="form" from form controls
' (SS,22/06/11) improvements to review stars, now using "jquery raty"
'               new routines ShowReviewRatingV2, ShowReviewRatingImage
' (SS,30/06/11) added product option templates
' (SS,23/03/12) security improvements for reviews, check now done to make sure email address has placed an order,
'               email address now required, AddSecurityToExistingForm now removed, changes made in ShowReviewEntryForm
' (SS,12/09/12) added Sub ShowBannerContainer
' (SS,13/09/12) removed dummy header and footer,
'               added favourites templates
' (SS,08/03/12) changed "not yet reviewed" to "add a review" in Sub ShowReviewRatingV2
' (SS,13/03/13) change to Sub ShowReviewRatingImage to show the hint as x stars instead of good, excellent etc.
'               change was also made to jquery.raty.js for the new hint to work.
' (SS,11/06/14) change to Sub ShowReviewEntryForm and Sub ShowReviewThankYou to show different text if reviews shown immediately
'               als a link to go back to showing reviews.
' (SS,27/08/14) change to Sub ShowProductOptionsHeader to get custom options title and only show if not blank
' (SS,01/09/14) Added Sub ShowAlertMesssage
' (SS,01/02/16) Change to Sub ShowStockNotificationLink to add rel="nofollow"
' (SS,17/02/16) Change to Sub ShowReviewItem to add Microdata / Rich Snippets
' (SS,25/05/17) Modified for Hyperflight, for banners added Class TemplateOther, changes to Sub ShowBannerHeader, Sub ShowBannerFooter and Sub ShowBannerItem
' (SS,19/07/17) Modified ShowReviewRatingV2 to shows stars in Bootstrap
' (SS,20/07/17) Change to Sub ShowReviewRatingStars to show grey empty stars, also removed <b> and <u> from ShowStockNotificationLink
' (SS,25/07/17) Added added rel="nofollow" to ShowStockNotificationLink, changes to Sub ShowStockNotificationForm
' (SS,25/08/17) Added Referrer to ShowStockNotificationForm
' (SS,22/09/17) Added "rows=6" (Sub ShowReviewEntryForm) to double row height for review textSub ShowReviewEntryForm
' (SS,18/09/18) Change to Sub ShowReviewRatingStars to correct rounding issue.
' (SS,24/03/20) Change to Sub ShowStockNotificationLink to call OrderingSuspended
' (SS,30/03/20) Change to Sub ShowStockNotificationLink, added link back in by removing And Not OrderingSuspended 
' (SS,30/03/20) Later changed to show "Notify me when I can order again" when OrderingSuspended
' (SS,30/09/20) Modified to work for both Bootstrap 3 and 4
' (SS,30/09/20) Change to Sub ShowStockNotificationLink to get custom message from GetMessage in inc-template-other.asp
' (SS,14/05/21) Change to Sub ShowReviewEntryForm to remove ReviewType, comment is no longer used, now just a review
' (SS,29/02/24) Changes to Sub ShowReviewRatingV2, Sub ShowReviewRatingStars, Sub ShowReviewItem
' (SS,23/05/24) Added Sub ShowBootstrapBreakpoints to help with Bootstrap 5
' (SS,19/12/24) replaced all /> with > for <meta itemprop=".. to keep W3C happy (Info messages)
' (SS,08/11/25) for PCI compliance, replaced http://schema.org with https://schema.org in Sub ShowReviewItem
' (SS,14/05/26) Consolidated for HyperFlight BS5, need to clean up the various different experimental review layouts

' (SS,25/5/17) added following class to store temporary values used by this unit/module, currently just carousel count
Class TemplateOther
  Private FBannerCount
  Private MAX_REVIEW_VERSION
  
  Private FReviewVersion ' (SS,11/6/24)
  
  Private Sub Class_Initialize()
    FBannerCount = 0
    FReviewVersion = 0
    MAX_REVIEW_VERSION = 28
  End Sub
  
  Private Sub Class_Terminate()
  End Sub  
  
  Public Property Get IsFirstBanner()
    IsFirstBanner = FBannerCount = 1
  End Property
  
  Public Sub IncBannerCount
    FBannerCount = FBannerCount + 1
  End Sub
  
  ' (SS,14/5/25)
  Public Property Get BannerCount
    BannerCount = FBannerCount
  End Property  
  
  ' (SS,11/6/24)
  Public Property Get NextReviewVersion
    FReviewVersion = FReviewVersion + 1
    If FReviewVersion > MAX_REVIEW_VERSION Then
      FReviewVersion = 1
    End If
    NextReviewVersion = FReviewVersion
  End Property
  
  ' (SS,11/6/24)
  Public Property Get CurrentReviewVersion
    CurrentReviewVersion = FReviewVersion
  End Property
  
End Class

' (SS,25/5/17)
Dim oTemplateOther
Set oTemplateOther = New TemplateOther

' --- START OF REVIEW TEMPLATES --- '
' (SS,19/6/09) added AShowReviewCount
Sub ShowReviewRating(AProductCode, AShowReviewCount, AWriteAReview)
	If ReviewsEnabled Then
		Dim LRating, LCount
		LRating = GetReviewRatingAndCount(AProductCode, LCount)
		If LRating > 0 Then
			%><a href="<%=GetShowReviewsLink(AProductCode)%>"><%=GetReviewRatingImgSrc(LRating)%></a><%
		End If
		If AShowReviewCount And LCount > 0 Then
			%>&nbsp;<a href="<%=GetShowReviewsLink(AProductCode)%>"><u><%=PluralString(LCount, "review", "reviews")%></u></a><%
		End If
		If AWriteAReview Then
			If LCount > 0 Then Response.Write(" / ")
			%><a href="<%=GetWriteReviewLink(AProductCode)%>"><u>write a review</u></a><%
		End If
	End If
End Sub

' (SS,22/6/11)
' AOptions, "num" for number only for count, "big" for bigger stars, "nobrackets" for no bracket, "nolink" for no href link
' "noreviews" to not show "not yet reviewed" when no reviews, but show "no reviews"
' (SS,8/3/13) changed "not yet reviewed" to "add a review"
' (SS,19/7/17) modified for Bootstrap to show the stars using glyphicons via call to ShowReviewRatingStars (instead of ShowReviewRatingImage) 
' (SS,20/7/17) removed link for "no reviews" text
' (SS,21/2/24) added "accordian" option for link to collapse the reviews section
' (SS,28/2/24) changed to go to #reviews anchor on same page if accordian specified (no need for new page fetch with cmd=showreviews
' (SS,19/5/26) added a class to the link
Sub ShowReviewRatingV2(AProductCode, AShowImage, AShowCount, AOptions)
  Dim LRating, LCount, LReviewText, LHRef, LReviewTextClass
  Dim LNumberOnly, LBigStars, LNoBrackets, LNoLink, LNoReviews, LAccordian
  LNumberOnly = InStr(AOptions, "num") > 0 
  LBigStars = InStr(AOptions, "big") > 0 
  LNoBrackets = InStr(AOptions, "nobrackets") > 0 
  LNoLink = InStr(AOptions, "nolink") > 0
  LNoReviews = InStr(AOptions, "noreviews") > 0
  LAccordian = InStr(AOptions, "accordian") > 0 ' (SS,21/2/24)
  
  LRating = GetReviewRatingAndCount(AProductCode, LCount)
  
  'If AShowImage Then ShowReviewRatingImage LRating, LBigStars
  ' (SS,19/7/17) replaced above with following for Bootstrap, LBigStars not currently implemented, also doesn't yet do half stars 
  If AShowImage Then
    ShowReviewRatingStars LRating, AOptions ' (SS,21/2/24) added options
  End If
  
  If AShowCount Then
    If LCount > 0 Then
      LReviewText = IIf(LNumberOnly, LCount, PluralString(LCount, "review", "reviews"))
      ' (SS,21/2/24) special option to go to reviews section on same page
      If LAccordian Then
        LHRef = "#reviews"
      Else ' as before
        LHRef = GetShowReviewsLink(AProductCode)
      End If
    Else
      LReviewText = IIf(LNumberOnly, 0, IIf(LNoReviews, "no reviews", "add a review")) ' (SS,8/3/13) changed "not yet reviewed" to "add a review"
      LHRef = GetWriteReviewLink(AProductCode)
    End If
    
    ' (SS,20/7/17) don't show link for "no reviews"
    If LReviewText = "no reviews" Then LNoLink = True 
    
    If Not LNoBrackets Then LReviewText = "(" & LReviewText & ")"
    Response.Write "&nbsp;"    
    
    If Not LNoLink Then 
      ' Response.Write("<a href=""" & LHRef & """>") 
      ' (SS,19/5/26) replaced above with following to add review-rating-link class to make it cleaner to remove the underline in links etc.
      Response.Write("<a class=""review-rating-link"" href=""" & LHRef & """>")  
    End If    
    
    
    If LBigStars Then
      LReviewTextClass = "review-rating-text-big"
    Else
      LReviewTextClass = "review-rating-text"
    End If
    Response.Write "<span class=""" + LReviewTextClass + """>" & LReviewText & "</span>"
    If Not LNoLink Then Response.Write "</a>" ' (SS,20/7/17) move here from end of above line and add If
  End If
End Sub

' (SS,22/6/11) "display: inline" ensures newline is not added to the end
' ABig parameter should be true for bigger stars
' *** needs to muli-language
Sub ShowReviewRatingImage(ARating, ABig)
  Dim LUniqueCount, LStyle
  LUniqueCount = GetUniqueCount
  ' (SS,13/3/13) change made to hintlist, in jquery.raty.js, it now just shows the hint as 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5 or 5 stars instead of bad, poor, average, good, excellent
  ' hintList: ['bad', 'poor', 'average', 'good', 'excellent'],
  %>
  <div id="star<%=LUniqueCount%>" style="display: inline; cursor: pointer"></div>
  <script type="text/javascript">
  $('#star<%=LUniqueCount%>').raty({
    path: '/common/javascript/jquery.raty/img', 
    half: true,
    readOnly: true, start: <%=ARating%>,
    hintList: ['star', 'stars'],
    noRatedMsg: 'not yet reviewed'
<%If ABig Then%>,
    half:     true,
    size:     24,
    starHalf: 'star-half-big.png',
    starOff:  'star-off-big.png',
    starOn:   'star-on-big.png'
<%End If%>    
  });
  </script>
<%
End Sub

' (SS,12/9/14) New for Bootstrap, just shows the stars
' (SS,20/7/17) changed STAR_COLOUR to STAR_COLOUR_YELLOW and added STAR_COLOUR_GREY for the empty stars
' (SS,18/9/18) corrected rounding issue by replacing Round with FormatNumber
' (SS,11/10/19) modified for Bootstrap 4 (glyphicon replaced with fa, and glyphicon-star-empty with fa-star)
' (SS,30/9/20) modified to work for both Bootstrap 3 and 4
' (SS,21/2/24) added AOptions to allow big stars
' (SS,8/6/26) renamed from ShowReviewRatingStars to GetReviewRatingStarsHTML, and sub to function, added separate ShowReviewRatingStars
Function GetReviewRatingStarsHTML(ARating, AOptions)
  Const STAR_COLOUR_YELLOW = "#FFB500" 
  Const STAR_COLOUR_GREY = "#C0C0C0" 
  Dim LRating, i
  
  ' (SS,25/4/24) modified to also work with Bootstrap 5, defined these two class variables to keep code more readable
  Dim LFullClass, LEmptyClass, LUseStyleColour
  LFullClass = ""
  LEmptyClass = ""
  LUseStyleColour = True
  If IsBootstrap5 Then
    ' (SS,31/5/24) replaced fa-circle-star with fa-star
    LFullClass = "fa-solid fa-star"    
    LEmptyClass = LFullClass
    LFullClass = LFullClass + " review-stars-full"
    LEmptyClass = LEmptyClass + " review-stars-empty"
    
    LUseStyleColour = False
  ElseIf IsBootstrap4 Then
    LFullClass = "fa fa-star"
    LEmptyClass = LFullClass
  ElseIf IsBootstrap3 Then
    LFullClass = "glyphicon glyphicon-star"
    LEmptyClass = "glyphicon glyphicon-star-empty"
  End If
  
  ' (SS,21/2/24)
  ' (SS,25/4/24) removed LGlyphiconClass, justed added to the end of new variables LFullClass and LEmptyClass
  Dim LBigStars
  LBigStars = InStr(AOptions, "big") > 0
  If LBigStars Then
    LFullClass = LFullClass + " review-stars-big" ' 1.5
    LEmptyClass = LEmptyClass + " review-stars-big" ' 1.5
  End If
  
  ' (SS,25/4/24)
  Dim LFullStarHTML, LEmptyStarHTML
  LFullStarHTML = "<span class=""" + LFullClass + """"
  If LUseStyleColour Then LFullStarHTML = LFullStarHTML + " style=""color: " + STAR_COLOUR_YELLOW + """"
  LFullStarHTML = LFullStarHTML + "></span>"
  LEmptyStarHTML = "<span class=""" + LEmptyClass + """"
  If LUseStyleColour Then LEmptyStarHTML = LEmptyStarHTML + " style=""color: " + STAR_COLOUR_GREY + """"
  LEmptyStarHTML = LEmptyStarHTML + "></span>"  
  
  ' LRating = Round(ARating) ' round because only whole stars shown
  ' (SS,18/9/18) replaced above with following because above rounds 4.5 to 4 instead of 5.
  LRating = CDbl(FormatNumber(ARating, 0, vbTrue)) 
  
  ' only show if more than 0 stars
  ' (SS,19/7/17) modified to also show when 0 stars i.e. replaced > with >=
  ' (SS,8/6/26) added LResult to replace Response.Write
  Dim LResult
  LResult = ""
  If LRating >= 0 Then
    ' full stars, span used instead of i to avoid clash with i used on accordian header with jquery doing toggle of chevron
    ' (SS,25/4/24) replaced Bootstrap3Only and Bootstrap4Only with LFullClass and LEmptyClass, later replaced with LFullStarHTML and LEmptyStarHTML
    For i = 1 To LRating
      LResult = LResult & LFullStarHTML
    Next
    ' empty stars
    For i = 1 To 5 - LRating
      LResult = LResult & LEmptyStarHTML
    Next
  End If
  
  GetReviewRatingStarsHTML = LResult
End Function

' (SS,8/6/26) moved code to separate GetReviewRatingStarsHTML above, this calls GetReviewRatingStarsHTML to get the HTML to show using Response.Write as before
Sub ShowReviewRatingStars(ARating, AOptions)
  Response.Write GetReviewRatingStarsHTML(ARating, AOptions)
End Sub


' (SS,17/6/11) added style=""vertical-align: middle"" to centre vertically next to text
Function GetReviewRatingImgSrc(ARating)
  GetReviewRatingImgSrc = "<img src=""images/star-" & ARating & ".gif"" border=""0"" style=""vertical-align: middle"" alt=""" & PluralString(ARating, "star", "stars") &""">"
End Function

Sub ShowReviewHeaderOld(AProductCode, AProductName, AProductURL)
%>
<br>
<%
 ShowReturnToProductLink AProductName, AProductURL, "Reviews for "
%><br><br><% 
 ShowReviewRating AProductCode, True, True
 Response.Write(GetWebText("ReviewPromotion"))
End Sub

' (SS,12/9/14) changed for Bootstrap
' (SS,23/10/14) write a review button back for Bootstrap it shows the write a review form
' (SS,11/10/19) removed btn-sm from button to make it larger
' (SS,30/9/20) added btn-sm back in for Bootstrap 3
Sub ShowReviewHeader(AProductCode, AProductName, AProductURL)
%>
<div class="review-top-header">
<p>
<!--
 <a href="<%=GetWriteReviewLink(AProductCode)%>" class="button"><%=tr("Write a review")%></a>
-->
<%If Not InWriteReview Then ' because it'll already will be showing the form %>
<button id="write-review-btn" class="btn btn-default btn-success<%=Bootstrap3Only(" btn-sm")%>" onclick="$('#write-review').toggle();$('#write-review-btn').toggle();">Write a review</button>
<%End If%>
<%
  Response.Write(GetWebText("ReviewPromotion"))
%>
</p>
<hr>
</div>
<% 
End Sub

' (SS,5/6/24) call the appropriate version, temp test
' (SS,8/7/26) added AReviewerCountry
Sub ShowReviewItem(AType, ADate, ATitle, ARating, AText, AReviewedBy, AReviewerCountry)
  Dim LVersion
  LVersion = CleanRequest("ver")
  If LVersion = "" Then LVersion = "28"
  
  If LVersion = "All" Then
    LVersion = CStr(oTemplateOther.NextReviewVersion)
  End If
  
  If LVersion = "14" Then
    LVersion = "latest"
  Else    
    LVersion = "v" + LVersion
  End If  
  
  Dim LSubRef
  Set LSubRef = GetRef("ShowReviewItem_" + LVersion) ' get ref to the sub    
  LSubRef AType, ADate, ATitle, ARating, AText, AReviewedBy, AReviewerCountry  ' call the sub
  Set LSubRef = Nothing
  
End Sub

' (SS,11/6/24) temp function for different review versions 
Function GetReviewItemTopURL
  If CleanRequest("ver") = "All" Then
    GetReviewItemTopURL = ReplaceStr(GetShowReviewsLink(oProductDetail.ProductCode), "#reviews", "") & "&ver=" & oTemplateOther.CurrentReviewVersion 
  Else
    GetReviewItemTopURL = "#top"
  End If
End Function

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
' (SS,8/11/25) for PCI compliance, replaced http://schema.org with https://schema.org
Sub ShowReviewItem_latest(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    ' (SS,21/7/26) replaced fa-duotone with fa-regular
    LUserIcon = "fa-regular fa-user"
  End If

' bg-gradient

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-3 my-4 rounded-5 shadow bg-light"
 style="background-image: url('/images/logo-transparent-90.png'); background-repeat: no-repeat; background-position: top 15px right 15px; background-size: 20%; background-opacity: 0.5; max-width: 640px">
  <div class="">
  
    <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
    <span itemprop="author" itemscope itemtype="https://schema.org/Person">
      <span itemprop="name"><%=AReviewedBy%></span>
    </span>
  </div> 
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>  

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-duotone fa-up-to-line fa-lg"></i></a>
    </div>
  </div>  

</div>
<%
End Sub


' (SS,17/6/11) added <p>, and If Not ProductPageTabs to not show in tabs
Sub ShowReviewFooter(AProductCode, AProductName, AProductURL)
  If Not ProductPageTabs Then
%>
<p>
<%
	ShowReturnToProductLink AProductName, AProductURL, ""
%>
</p>
<%
  End If
End Sub

' (SS,17/6/11) added class "review-form" to table, removed outside table, tidied
' (SS,23/3/12) spam reviews were being sent, reviews are now only allowed if email address has been entered and has placed a completed order
' removed ~% AddSecurityToExistingForm %~, made email address bold to indicate it's required
' replaced "optional," with "for security,"
' (SS,11/6/14) change the text (2 to 3 days / immediately) depending on new ProductsShowReviewsImmediately setting
' (SS,23/10/14) modified for Bootstrap
' (SS,22/9/17) added "rows=6" to double row height for review text
' (SS,18/6/24) added IIf(IsBootstrap5... to not include #collapseReviews for Bootstrap 5 because it's NA
Sub ShowReviewEntryForm(AErrorMessage, AActionURL, AProductCode, AProductName, AProductURL)
' (SS,11/6/09) added table outside form to allow complete white background otherwise you get a blank line at the top in black background sites
  Dim LStyle
  If InWriteReview Then
    LStyle = ""
  Else ' to hide until write a review button clicked
    LStyle = "style=""display:none"""
  End If
  ' collapseReviews anchor takes you to the correct position
%>
<div id="write-review" <%=LStyle%>>
<form name="frmReview" method="post" action="<%=AActionURL%><%=IIf(IsBootstrap5, "", "#collapseReviews")%>">
<p>We're pleased you would like to review <b><%=AProductName%></b>.</p>
<p>Please fill in the details below and press the submit button.</p>
<%If ProductsShowReviewsImmediately Then%>
<p>Your review will appear here immediately.</p>
<%Else%>
<p>Your review will appear within 2 to 3 days.</p>
<%End If%>

<%
  If AErrorMessage <> "" Then
    ShowAlertMesssage "danger", AErrorMessage
  End If

  SetFormControlsLabelWidth 0 ' default to 0 for following controls, i.e. separate line for label
  ' (SS,14/5/21) removed following, ReviewType combo, no longer a choice for review or comment, now always a review, added hidden input to set ReviewType to "Review" to prevent ReviewType missing error
  'ShowFormControl "select", "ReviewType", "This is a", Session("ReviewType"), "", "", True, "", "list=" & "Please select..." & NL & "Review" & NL & "Comment"
  ShowFormControl "text", "ReviewTitle", "Review Title", Session("ReviewTitle"), "Enter review title (optional)", "50", True, "", ""
  ' (SS,14/5/21) removed "Not applicable for comment", also removed "Please select..." option, this doesn't work anyway needs to be a number to prevent error
  ShowFormControl "select", "ProductRating", "Product Rating", Session("ProductRating"), "", "", True, "", "list=" & "5 stars" & NL & "4 stars" & NL & "3 stars" & NL & "2 stars" & NL & "1 star"
  ShowFormControl "text", "ReviewerName", "Your Name", Session("ReviewerName"), "Enter name (optional)", "25", True, "Leave blank to remain anonymous", ""
  ' (SS,22/9/17) added rows=6 to following to double the row height (requested by Neil)
  ' (SS,14/5/21) replaced "Enter review or comment" with "Enter review", comment type no longer used
  ShowFormControl "textarea", "ReviewText", "Review", Session("ReviewText"), "Enter review", "10000", True, "", "rows=9" ' restricted to 10,000 largest received by Hyperflight to date is 5650
  ShowFormControl "email", "ReviewerEmail", "Email Address", Session("ReviewerEmail"), "Enter email address", "100", True, "For security this will not be shown", ""
  Response.Write GetButton("javascript:document.frmReview.submit()", "", tr("Submit review"), "")
%>
  <input type="hidden" name="ReviewType" value="Review">
  <input type="hidden" name="Submit" value="yes">

</form>
<hr>
</div>
<%
End Sub

' (SS,17/6/11) removed from table, added If Not ProductPageTabs
' (SS,11/6/14) added "If Not ProductsShowReviewsImmediately" to not show the review will appear here link
' also added link to go back to showing the reviews
Sub ShowReviewThankYou(AProductCode, AProductName, AProductURL)
%>
<div class="review">
<p>
Thank you for reviewing <b><%=AProductName%></b>.
</p>
<%If Not ProductsShowReviewsImmediately Then%>
<p>The review will appear here within 2 or 3 days.</p>
<%End If%>
<p>Click <a href="<%=GetShowReviewsLink(AProductCode)%>">here</a> to see the reviews.</p>
<%If Not ProductPageTabs Then%>
<p>
<%ShowReturnToProductLink AProductName, AProductURL, ""%>
</p>
<%End If%>
</div>
<%
End Sub

' (SS,29/6/26) removed the bold i.e. <b></b>
Sub ShowReturnToProductLink(AProductName, AProductURL, AReturnToPrefix)
	Dim LText
	If AReturnToPrefix = "" Then
		LText = "Return to " + AProductName
	Else
		LText = Trim(AReturnToPrefix + AProductName)
	End If
%><a href="<%=AProductURL%>"><%=LText%></a><%
End Sub

' --- END OF REVIEW TEMPLATES ---'

' --- START OF STOCK NOTIFICATION TEMPLATES --- '
' (SS,20/7/17) removed the <b> and <u>
' (SS,25/7/17) added rel=""nofollow""
' (SS,24/3/20) added Not OrderingSuspended
' (SS,30/3/20) added link back in by removing And Not OrderingSuspended
' (SS,30/3/20) later changed to show "Notify me when I can order again" when OrderingSuspended
' (SS,30/9/20) modified to get message from GetMessage when OrderingSuspended to allow a custom message
Sub ShowStockNotificationLink(AProductCode)
  Dim LMessage
	If BackInStockNotificationsEnabled Then
    If OrderingSuspended Then
      LMessage = GetMessage("OrderingSuspended")
      If LMessage = "" Then
        LMessage = "Notify me when I can order again"
      End If
    Else ' (30/3/20) as before
      LMessage = "Notify me when back in stock"
    End If
    
		%><a href="<%=GetStockNotificationLink(AProductCode)%>" rel="nofollow"><%=LMessage%></a><%
	End If
End Sub

' (SS,20/6/11)
Sub ShowOtherHeader
%><div id="product-detail-other"><%  
End Sub

' (SS,20/6/11)
Sub ShowOtherFooter
%></div> <!-- end #product-detail-other -->	<%  
End Sub

' (SS,20/6/11) tidied, replaced table attributes with class="stock-notify-form", removed <br>'s, added class "button-form"
' added ShowOtherHeader, ShowOtherFooter
' (SS,25/7/17) new Bootstrap version
' also replaced text "We'll be happy to email you when <strong>[AProductName]</strong> is back in stock. Just fill in your name and email address below. Then enter the security code shown and press the submit button."
' with "To receive an email when we receive more stock of this item please enter your email address below."
' (SS,25/8/17) added Referrer
Sub ShowStockNotificationForm_old(AErrorMessage, AActionURL, AProductCode, AProductName, AProductURL)
  ShowOtherHeader  
%>
<h3><%=AProductName%></h3>

<form action="<%=AActionURL%>" method="post" name="Stock Notification Form">
  <div>
    <p>To receive an email when we receive more stock of this item please enter your email address below.</p>
  </div>

  <div class="col-lg-4 col-md-6 col-sm-8 col-xs-12">
  
<%
If AErrorMessage <> "" Then
%>
  <div class="row alert alert-danger" role="alert">
    <%=AErrorMessage%>
  </div>  
<%
End If
%>  
  
  <div class="form-group row">
    <label for="StockNotifyName">Name</label>
    <input type="text" class="form-control" name="StockNotifyName" id="StockNotifyName" placeholder="Enter name" value="<%=HTMLEncode(Session("StockNotifyName"))%>"> 
  </div>
  
  <div class="form-group row">
    <label for="StockNotifyEmail">Email Address</label>
    <input type="email" class="form-control" name="StockNotifyEmail" id="StockNotifyEmail" placeholder="Enter email address" value="<%=HTMLEncode(Session("StockNotifyEmail"))%>" maxlength="100">
  </div>  
  
  <input type="hidden" name="Referrer" value="<%=Server.HTMLEncode(Request.ServerVariables("HTTP_REFERER"))%>">
  
  <%If EmailSecurityCodeEnabled Then
    Response.Write "<div class=""form-group row"">"
    AddSecurityControl "bootstrap", ""
    Response.Write "</div>"
  End If%>

  <div class="form-group row">
    <input type="submit" class="btn btn-success" name="submit" value="Submit">
  </div> 

  </div>

</form>
<%
  ShowOtherFooter
End Sub
  
' (SS,20/6/11) tidied, replaced table attributes with class="stock-notify-form", removed <br>'s, added class "button-form"
' added ShowOtherHeader, ShowOtherFooter
' (SS,25/7/17) new Bootstrap version
' also replaced text "We'll be happy to email you when <strong>[AProductName]</strong> is back in stock. Just fill in your name and email address below. Then enter the security code shown and press the submit button."
' with "To receive an email when we receive more stock of this item please enter your email address below."
' (SS,25/8/17) added Referrer
' (SS,29/6/26 modified for Bootstrap 5
Sub ShowStockNotificationForm(AErrorMessage, AActionURL, AProductCode, AProductName, AProductURL)
  ShowOtherHeader  
%>

<h1 class="h2 mb-3"><%=HTMLEncode(AProductName)%></h1>

<p class="mb-4">
  To receive an email when we receive more stock of this item please enter your email address below.
</p>

<form action="<%=Server.HTMLEncode(AActionURL)%>"
      method="post"
      name="Stock Notification Form"
      class="stock-notify-form mt-4">

  <div class="row">
    <div class="col-12 col-md-8 col-lg-6 col-xl-5">

<%
If AErrorMessage <> "" Then
%>
      <div class="alert alert-danger" role="alert">
        <%=AErrorMessage%>
      </div>
<%
End If
%>

      <div class="mb-3">
        <label for="StockNotifyName" class="form-label">Name</label>
        <input type="text"
               class="form-control"
               name="StockNotifyName"
               id="StockNotifyName"
               placeholder="Enter name"
               value="<%=HTMLEncode(Session("StockNotifyName"))%>">
      </div>

      <div class="mb-3">
        <label for="StockNotifyEmail" class="form-label">Email Address</label>
        <input type="email"
               class="form-control"
               name="StockNotifyEmail"
               id="StockNotifyEmail"
               placeholder="Enter email address"
               value="<%=HTMLEncode(Session("StockNotifyEmail"))%>"
               maxlength="100">
      </div>

      <input type="hidden"
             name="Referrer"
             value="<%=Server.HTMLEncode(Request.ServerVariables("HTTP_REFERER"))%>">

<%
If EmailSecurityCodeEnabled Then
%>
      <div class="mb-3 stock-notify-security">
<%
        AddSecurityControl "bootstrap", ""
%>
      </div>
<%
End If
%>

      <div class="mt-3">
        <input type="submit"
               class="btn btn-success w-100"
               name="submit"
               value="Submit">
      </div>

    </div>
  </div>

</form>

<%
  ShowOtherFooter
End Sub
  
  
Sub ShowStockNotificationThankYou(AProductCode, AProductName, AProductURL)
  ShowOtherHeader
%>
<p>Thank you for your interest in <%=AProductName%>.</p>
<p>We will email you as soon as it's back in stock.</p>
<p>
<%ShowReturnToProductLink AProductName, AProductURL, ""%>
</p>
<%
  ShowOtherFooter
End Sub

' --- END OF STOCK NOTIFICATION TEMPLATES --- '

' --- START OF BANNER TEMPLATES --- '
' (SS,12/9/12) moved here from main template
' (SS,25/5/17) modified for Bootstrap, i.e. to use the built-in carousel
' removed Sub ShowBannerContainer (doesn't appear to be used)
' (SS,22/5/26) Bootstrap 5 version for HF

' (SS,21/3/11)
' (SS,25/5/17) modified for Bootstrap
' (SS,29/12/20) changed interval from 4000 to 7000 (requested by Neil)
' (SS,15/5/26) Bootstrap 5 version for HF, changed ID form myCarousel to homeBannerCarousel, added class home-banner-carousel
Sub ShowBannerHeader
%>         
        <div id="homeBannerCarousel" class="carousel slide home-banner-carousel" data-bs-ride="carousel" data-bs-interval="7000">
          <div class="carousel-inner">
<%	
End Sub

' if empty then not used e.g. no caption or button show
' (SS,25/5/17) new ShowBannerItem (was ShowHomeCarouselItem
' ShowBannerItem had 3 parameters, we now have 4, new AButtonCaption
' oTemplateOther renamed from oTemplateHome
' (SS,15/5/26) Bootstrap 5 version for HF
Sub ShowBannerItem(AImageFile, AImageCaption, AURL, AButtonCaption) 
  Dim LActive, LGlyphArrow
  oTemplateOther.IncBannerCount
  If oTemplateOther.IsFirstBanner Then
    LActive = " active"
  Else
    LActive = ""
  End If
  
  If Left(AURL, 7) = "http://" Or Left(AURL, 8) = "https://" Then
    LGlyphArrow = " <i class=""glyphicon glyphicon-chevron-right""></i>"
  Else
    LGlyphArrow = ""
  End If

%>
          <div class="carousel-item<%=LActive%>">
            <a href="<%=AURL%>">
              <img src="<%=AImageFile%>" class="d-block w-100" alt="<%=AImageCaption%>">
            </a>            
          </div>
<%  
End Sub

Sub ShowBannerFooter
%>
          </div>

          <button class="carousel-control-prev" type="button" data-bs-target="#homeBannerCarousel" data-bs-slide="prev">
            <span class="carousel-control-prev-icon" aria-hidden="true"></span>
            <span class="visually-hidden">Previous</span>
          </button>
          <button class="carousel-control-next" type="button" data-bs-target="#homeBannerCarousel" data-bs-slide="next">
            <span class="carousel-control-next-icon" aria-hidden="true"></span>
            <span class="visually-hidden">Next</span>
          </button>  

          <div class="carousel-indicators" style="bottom: -15px">
          <% ' (SS,21/2/23) added indicators for Bootstrap 5
            Dim i
            For i = 0 To oTemplateOther.BannerCount - 1
              Response.Write "<button type=""button"" data-bs-target=""#homeBannerCarousel"" data-bs-slide-to=""" & i & iif(i <> 0, """", """ class=""active"" aria-current=""true""") & " aria-label=""Slide " & i + 1 & """></button>" & NL
            Next
          %>
          </div>
          
        
        </div>
<%	
End Sub
' --- END OF BANNER TEMPLATES --- '

' --- START OF PRODUCT OPTION TEMPLATES --- '
' (SS,30/6/11)
' (SS,9/6/26) modified for Bootstrap 5, replaced h3 with product-options-heading, also id for "product-options" with class
Sub ShowProductOptionsHeader(AProductID)
  Dim LOptionsTitle
  LOptionsTitle = GetProductAttributeByName(AProductID, "Options Title")
  If LOptionsTitle = "" Then
    LOptionsTitle = "Available Options"
    ' (SS,27/8/14) added following to get custom options title default
    If FunctionExists("CustomGetProductOptionsTitleDefault") Then
      LOptionsTitle = CustomGetProductOptionsTitleDefault
    End If
  End If
%>
  <div class="product-options">
<%
  ' (SS,27/8/14) added If to only show with h3 tag this if not blank
  If LOptionsTitle <> "" Then
    Response.Write "    <div class=""product-options-heading"">" & LOptionsTitle & "</div>" & NL
  End If
End Sub

' (SS,9/6/26) for Bootstrap 5, replaced span with div
Sub ShowProductOptionsFooter(AProductID)
  Dim LOptionsHint
  LOptionsHint = GetProductAttributeByName(AProductID, "Options Hint")
  If LOptionsHint <> "" Then
    Response.Write "    <div class=""product-options-hint"">" & LOptionsHint & "</div>" & NL
  End If
%>  
  </div>
<%
End Sub

' --- END OF PRODUCT OPTION TEMPLATES --- '

' --- START OF FAVOURITES TEMPLATES --- '
' (SS,13/09/12)
Sub ShowFavouritesHeader
%>
  <div id="favourites">
    <div id="favourites-header"><%=tr("Your Favourites")%></div>
<%
End Sub

Sub ShowFavouritesItem(ANo, AProductCode, AProductName, AQty)
%>
  <div class="favourites-item">
    <div class="favourites-img">
      <a href="<%=GetBuyQLink(AProductCode, AQty)%>"><img src="images/add-basket.gif" title="<%=tr("add to basket")%>"></a>
    </div>
    <div class="favourites-name">
      <a href="<%=GetProductLink(AProductCode)%>" title="<%=tr("view product details")%>"><%=AProductName%> <span class="favourites-qty">(<%=AQty%>)</span></a>
    </div>
  </div>
<%  
End Sub

Sub ShowFavouritesFooter
%>  
  </div>
<%
End Sub

' --- END OF FAVOURITES TEMPLATES --- '

' (SS,1/9/14) Show an alert message (not popup) AType can be success, info, warning or danger (using Bootstrap's styles)
Sub ShowAlertMesssage(AType, AMessage)  
%>
<div class="alert alert-<%=AType%>" role="alert"><%=AMessage%></div>
<%
End Sub

' (SS,23/5/24)
Sub ShowBootstrapBreakpoints
  ' from https://stackoverflow.com/questions/65319012/display-bootstrap-breakpoint-name-when-resizing-the-screen
%>
<div style="
    position: fixed;
    top: 10%;
    left: 50%;
    z-index: 10000;
    transform: translate(-50%, -50%);
    background: rgba(247, 201, 241, 0.4);
    padding: .5rem 1rem;
    border-radius: 30px;
">
    <div class="d-block d-sm-none">Extra Small (xs)</div>
    <div class="d-none d-sm-block d-md-none">Small (sm)</div>
    <div class="d-none d-md-block d-lg-none">Medium (md)</div>
    <div class="d-none d-lg-block d-xl-none">Large (lg)</div>
    <div class="d-none d-xl-block d-xxl-none" >X-Large (xl)</div>
    <div class="d-none d-xxl-block" >XX-Large (xxl)</div>
</div>
<%
End Sub


' ### TO REMOVE FOLLOWING - JUST FOR TESTING ###

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
Sub ShowReviewItem_v1(AType, ADate, ATitle, ARating, AText, AReviewedBy)
%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review">
  <div class="review-header">
    <span class="review-date pull-right">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>    
      <p><%ShowReviewRatingStars ARating, ""%>&nbsp;<b>Review by:</b>
    <%Else%>
      <p><b>Comment by:</b>
    <%End If%>
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=AReviewedBy%></span>
      </span>
      </p>

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="review-title"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="review-body">
    <%=AText%> 
  </div>
  <div>
    <div class="review-footer pull-right">
      <a href="<%=GetReviewItemTopURL%>"><i class="glyphicon glyphicon-chevron-up"></i></a>
    </div>
  </div>  
  <hr>
</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end
Sub ShowReviewItem_v2(AType, ADate, ATitle, ARating, AText, AReviewedBy)
%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review">
  <div class="review-header">
    <span class="review-date pull-right">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>    
      <p><%ShowReviewRatingStars ARating, ""%>&nbsp;<b>Review by:</b>
    <%Else%>
      <p><b>Comment by:</b>
    <%End If%>
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=AReviewedBy%></span>
      </span>
      </p>

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="review-title"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="review-body">
    <%=AText%> 
  </div>
  <div>
    <div class="review-footer float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-solid fa-chevron-up"></i></a>
    </div>
  </div>  
  <hr class="mt-4">
</div>
<%
End Sub


' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-title and review-body which removes italics, added fw-bold
Sub ShowReviewItem_v3(AType, ADate, ATitle, ARating, AText, AReviewedBy)
%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review">
  <div class="review-header">
    <span class="review-date float-end">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>    
      <p><%ShowReviewRatingStars ARating, ""%>&nbsp;<b>Review by:</b>
    <%Else%>
      <p><b>Comment by:</b>
    <%End If%>
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=AReviewedBy%></span>
      </span>
      </p>

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold mb-"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  <div>
    <div class="review-footer float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-solid fa-chevron-up"></i></a>
    </div>
  </div>  
  <hr class="mt-4">
</div>
<%
End Sub

' (SS,17/6/11) added <p>, and If Not ProductPageTabs to not show in tabs
Sub ShowReviewFooter(AProductCode, AProductName, AProductURL)
  If Not ProductPageTabs Then
%>
<p>
<%
	ShowReturnToProductLink AProductName, AProductURL, ""
%>
</p>
<%
  End If
End Sub


' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v4(AType, ADate, ATitle, ARating, AText, AReviewedBy)
%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review">
  <div class="">
  
    <i class="fa-duotone fa-user fa-lg"></i>&nbsp;
    <span itemprop="author" itemscope itemtype="https://schema.org/Person">
      <span itemprop="name"><%=AReviewedBy%></span>
    </span>
 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>    
      <p><%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>  

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="mt-1">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="float-startss">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-solid fa-chevron-up"></i></a>
    </div>
  </div>  
  <hr class="mt-4">
</div>
<%
End Sub


' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v5(AType, ADate, ATitle, ARating, AText, AReviewedBy)
%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review">
  <div class="">
  
    <i class="fa-<%=IIf(AReviewedBy = "Anonymous", "regular", "duotone")%> fa-user fa-lg"></i>&nbsp;
    <span itemprop="author" itemscope itemtype="https://schema.org/Person">
      <span itemprop="name"><%=AReviewedBy%></span>
    </span>
  </div> 
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>  

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-solid fa-chevron-up"></i></a>
    </div>
  </div>  
  <hr>
</div>
<%
End Sub


' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v6(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review">
  <div class="">
  
    <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
    <span itemprop="author" itemscope itemtype="https://schema.org/Person">
      <span itemprop="name"><%=AReviewedBy%></span>
    </span>
  </div> 
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>  

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-solid fa-chevron-up"></i></a>
    </div>
  </div>  
  <hr>
</div>
<%
End Sub



' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v7(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review col-lg-8 col-md-10 mx-auto border p-3 my-4 rounded-5">
  <div class="">
  
    <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
    <span itemprop="author" itemscope itemtype="https://schema.org/Person">
      <span itemprop="name"><%=AReviewedBy%></span>
    </span>
  </div> 
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>  

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-solid fa-chevron-up"></i></a>
    </div>
  </div>  

</div>
<%
End Sub



' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v8(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review col-lg-8 col-md-10 mx-auto border p-3 my-4 rounded-5 shadow">
  <div class="">
  
    <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
    <span itemprop="author" itemscope itemtype="https://schema.org/Person">
      <span itemprop="name"><%=AReviewedBy%></span>
    </span>
  </div> 
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>  

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-solid fa-chevron-up"></i></a>
    </div>
  </div>  

</div>
<%
End Sub


Sub ShowReviewItem_v9(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review col-lg-8 col-md-10 mx-auto border p-3 my-4 rounded-5 shadow bg-light">
  <div class="">
  
    <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
    <span itemprop="author" itemscope itemtype="https://schema.org/Person">
      <span itemprop="name"><%=AReviewedBy%></span>
    </span>
  </div> 
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>  

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-duotone fa-up-to-line fa-lg"></i></a>
    </div>
  </div>  

</div>
<%
End Sub


' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v10(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review col-lg-8 col-md-10 mx-auto border p-3 my-4 rounded-5 shadow bg-light bg-gradient">
  <div class="">
  
    <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
    <span itemprop="author" itemscope itemtype="https://schema.org/Person">
      <span itemprop="name"><%=AReviewedBy%></span>
    </span>
  </div> 
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>  

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-duotone fa-up-to-line fa-lg"></i></a>
    </div>
  </div>  

</div>
<%
End Sub

Sub ShowReviewItem_v11(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' 

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review col-lg-8 col-md-10 mx-auto border p-3 my-4 rounded-5 shadow bg-light"
 style="background-image: url('/images/logo-transparent.png'); background-repeat: no-repeat; background-position: top 15px right 15px; background-size: 20%; background-opacity: 0.5;">
  <div class="">
  
    <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
    <span itemprop="author" itemscope itemtype="https://schema.org/Person">
      <span itemprop="name"><%=AReviewedBy%></span>
    </span>
  </div> 
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>  

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-duotone fa-up-to-line fa-lg"></i></a>
    </div>
  </div>  

</div>
<%
End Sub

Sub ShowReviewItem_v12(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' 

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review col-lg-8 col-md-10 mx-auto border p-3 my-4 rounded-5 shadow bg-light"
 style="background-image: url('/images/logo-transparent-50.png'); background-repeat: no-repeat; background-position: top 15px right 15px; background-size: 20%; background-opacity: 0.5;">
  <div class="">
  
    <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
    <span itemprop="author" itemscope itemtype="https://schema.org/Person">
      <span itemprop="name"><%=AReviewedBy%></span>
    </span>
  </div> 
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>  

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-duotone fa-up-to-line fa-lg"></i></a>
    </div>
  </div>  

</div>
<%
End Sub

Sub ShowReviewItem_v13(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' 

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review col-lg-8 col-md-10 mx-auto border p-3 my-4 rounded-5 shadow bg-light"
 style="background-image: url('/images/logo-transparent-75.png'); background-repeat: no-repeat; background-position: top 15px right 15px; background-size: 20%; background-opacity: 0.5;">
  <div class="">
  
    <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
    <span itemprop="author" itemscope itemtype="https://schema.org/Person">
      <span itemprop="name"><%=AReviewedBy%></span>
    </span>
  </div> 
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>  

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-duotone fa-up-to-line fa-lg"></i></a>
    </div>
  </div>  

</div>
<%
End Sub

Sub ShowReviewItem_v14(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' 

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review col-lg-8 col-md-10 mx-auto border p-3 my-4 rounded-5 shadow bg-light"
 style="background-image: url('/images/logo-transparent-90.png'); background-repeat: no-repeat; background-position: top 15px right 15px; background-size: 20%; background-opacity: 0.5;">
  <div class="">
  
    <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
    <span itemprop="author" itemscope itemtype="https://schema.org/Person">
      <span itemprop="name"><%=AReviewedBy%></span>
    </span>
  </div> 
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>  

    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-duotone fa-up-to-line fa-lg"></i></a>
    </div>
  </div>  

</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v15(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    LReviewedBy = "Trusted Customer"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-3 my-4 rounded-4 shadow bg-light"
 style="background-image: url('/images/logo-transparent.png'); background-repeat: no-repeat; background-position: top 45px right 15px; background-size: 20%; background-opacity: 0.5; max-width: 640px">
  <div>
    
    <div class="d-flex justify-content-between">
      <div class="">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>
      </div>
      <div class="flex-fills">
        <i class="fa-solid fa-badge-check"></i>&nbsp;Verified Customer    
      </div>
    </div>
 
  </div>
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>
  </div>
  <div class="my-2">   
    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>  
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-duotone fa-up-to-line fa-lg text-primary text-opacity-50"></i></a>
    </div>
  </div>  

</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v16(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    LReviewedBy = "Trusted Customer"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-3 my-4 rounded-4 shadow bg-light"
 style="background-image: url('/images/logo-transparent.png'); background-repeat: no-repeat; background-position: top 15px right 15px; background-size: 20%; background-opacity: 0.5; max-width: 640px">
  <div>
    
    <div>
      <div class="">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>
      </div>

    </div>
 
  </div>
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>
  </div>
  <div class="my-2">   
    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>  
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>     
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-duotone fa-up-to-line fa-lg text-primary text-opacity-50"></i></a>
    </div>
    <div class="float-end pe-3">
      <i class="fa-solid fa-badge-check"></i>&nbsp;Verified Customer    
    </div>    
  </div>  

</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v17(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    LReviewedBy = "Trusted Customer"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-3 my-4 rounded-4 shadow bg-light"
 style="background-image: url('/images/logo-transparent-95.png'); background-repeat: no-repeat; background-position: top 10px right 10px; background-size: 50%; background-opacity: 0.5; max-width: 640px">
  <div>
    
    <div>
      <div class="">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>
      </div>

    </div>
 
  </div>
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>
  </div>
  <div class="my-2">   
    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>  
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>     
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-regular fa-chevron-up"></i></a>
    </div>
    <div class="float-end pe-3">
      <i class="fa-solid fa-badge-check"></i>&nbsp;Verified Customer    
    </div>    
  </div>  

</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v18(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    LReviewedBy = "Trusted Customer"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-3 my-4 rounded-4 shadow bg-light"
 style="background-image: url('/images/logo-transparent-98.png'); background-repeat: no-repeat; background-position: top 15px right 15px; background-size: 100%; background-opacity: 0.5; max-width: 640px">
  <div>
    
    <div>
      <div class="">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>
      </div>

    </div>
 
  </div>
  <div class="my-2"> 
    <%If AType = "R" Then%>
      <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
        <meta itemprop="ratingValue" content="<%=ARating%>">
      </span>
      <%ShowReviewRatingStars ARating, ""%>&nbsp;
    <%End If%>
  </div>
  <div class="my-2">   
    <%If ATitle <> "" Then%>    
    <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
    <%End If%>
  </div>  
  <div itemprop="reviewBody" class="">
    <%=AText%> 
  </div>
  

  
  <div>
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>     
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-regular fa-chevron-up"></i></a>
    </div>
    <div class="float-end pe-3">
      <i class="fa-solid fa-badge-check"></i>&nbsp;Verified Customer    
    </div>    
  </div>  

</div>
<%
End Sub


' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v19(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    LReviewedBy = "Trusted Customer"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-3 my-4 rounded-4 shadow bg-light"
 style="max-width: 640px; background-image: url('/images/logo-transparent-50.png'); background-repeat: no-repeat; background-position: top 15px right 15px; background-size: 12.5%">
  <div class="border-bottom pb-2">
    
    <div>
      <div class="">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>  
      </div>

    </div>
 
  </div>
  
  <div style="">
    <div class="mt-2 mb-1"> 
      <%If AType = "R" Then%>
        <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
          <meta itemprop="ratingValue" content="<%=ARating%>">
        </span>
        <%ShowReviewRatingStars ARating, ""%>&nbsp;
      <%End If%>
      <%If ATitle <> "" Then%>    
      <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
      <%End If%>    
    
    </div>
    <div itemprop="reviewBody" class="">
      <%=AText%> 
    </div>
  </div>
  
  <div class="border-top pt-2">
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>     
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-regular fa-chevron-up"></i></a>
    </div>
    <div class="float-end pe-3">
      <i class="fa-solid fa-badge-check"></i>&nbsp;Verified Customer    
    </div>    
  </div>  

</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v20(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    LReviewedBy = "Trusted Customer"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-3 my-4 rounded-4 shadow"
 style="max-width: 640px; background-image: url('/images/logo-transparent-50.png'); background-repeat: no-repeat; background-position: top 15px right 15px; background-size: 12.5%">
  <div class="border-bottom pb-2">
    
    <div>
      <div class="">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>  
      </div>

    </div>
 
  </div>
  
  <div style="">
    <div class="mt-2 mb-1"> 
      <%If AType = "R" Then%>
        <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
          <meta itemprop="ratingValue" content="<%=ARating%>">
        </span>
        <%ShowReviewRatingStars ARating, ""%>&nbsp;
      <%End If%>
      <%If ATitle <> "" Then%>    
      <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
      <%End If%>    
    
    </div>
    <div itemprop="reviewBody" class="">
      <%=AText%> 
    </div>
  </div>
  
  <div class="border-top pt-2">
    <span class="">
      <span itemprop="datePublished"><%=ADate%></span>      
    </span>     
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-regular fa-chevron-up"></i></a>
    </div>
    <div class="float-end pe-3">
      <i class="fa-solid fa-badge-check text-success"></i>&nbsp;Verified Customer    
    </div>    
  </div>  

</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v21(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    LReviewedBy = "Trusted Customer"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-3 my-4 rounded-4 shadow"
 style="max-width: 640px; background-image: url('/images/logo-transparent.png'); background-repeat: no-repeat; background-position: top 15px right 15px; background-size: 12.5%">
  <div class="border-bottom pb-2">
    
    <div>
      <div class="">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>  
      </div>

    </div>
 
  </div>
  
  <div style="">
    <div class="mt-2 mb-1"> 
      <%If AType = "R" Then%>
        <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
          <meta itemprop="ratingValue" content="<%=ARating%>">
        </span>
        <%ShowReviewRatingStars ARating, ""%>&nbsp;
      <%End If%>
      <%If ATitle <> "" Then%>    
      <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
      <%End If%>    
    
    </div>
    <div itemprop="reviewBody" class="">
      <%=AText%> 
    </div>
  </div>
  
  <div class="border-top pt-2">
    <span>
      <i class="fa-solid fa-badge-check text-success"></i>&nbsp;Verified Customer    
    </span>        
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-regular fa-chevron-up"></i></a>
    </div>
    <div class="float-end pe-3">
      <span>
        <span itemprop="datePublished"><%=ADate%></span>      
      </span>
    </div>
  </div>  

</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v22(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    LReviewedBy = "Trusted Customer"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-3 my-4 rounded-4 shadow"
 style="max-width: 640px; background-image: url('/images/logo-transparent.png'); background-repeat: no-repeat; background-position: top 15px right 15px; background-size: 12.5%">
  <div class="border-bottom pb-2">
    
    <div>
      <div class="">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>
      <i class="ms-2 fa-light fa-location-dot fa-lg"></i><img src="/common/flags/iso/48/gb.png" class="ms-2" style="height: 24px">
      </div>

    </div>
 
  </div>
  
  <div style="">
    <div class="mt-2 mb-1"> 
      <%If AType = "R" Then%>
        <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
          <meta itemprop="ratingValue" content="<%=ARating%>">
        </span>
        <%ShowReviewRatingStars ARating, ""%>&nbsp;
      <%End If%>
      <%If ATitle <> "" Then%>    
      <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
      <%End If%>    
    
    </div>
    <div itemprop="reviewBody" class="">
      <%=AText%> 
    </div>
  </div>
  
  <div class="border-top pt-2">
    <span>
      <i class="fa-solid fa-badge-check text-success"></i>&nbsp;Verified    
    </span>        
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-regular fa-chevron-up"></i></a>
    </div>
    <div class="float-end pe-3">
      <span>
        <span itemprop="datePublished"><%=ADate%></span>      
      </span>
    </div>
  </div>  

</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v23(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    LReviewedBy = "Trusted Customer"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-3 my-4 rounded-4 shadow"
 style="max-width: 640px; background-image: url('/images/logo-transparent.png'); background-repeat: no-repeat; background-position: top 15px right 15px; background-size: 12.5%">
  <div class="border-bottom pb-2">
    
    <div>
      <div class="">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>
      <i class="ms-2 fa-light fa-location-dot fa-lg"></i> UK
      </div>

    </div>
 
  </div>
  
  <div style="">
    <div class="mt-2 mb-1"> 
      <%If AType = "R" Then%>
        <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
          <meta itemprop="ratingValue" content="<%=ARating%>">
        </span>
        <%ShowReviewRatingStars ARating, ""%>&nbsp;
      <%End If%>
      <%If ATitle <> "" Then%>    
      <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
      <%End If%>    
    
    </div>
    <div itemprop="reviewBody" class="">
      <%=AText%> 
    </div>
  </div>
  
  <div class="border-top pt-2">
    <span>
      <i class="fa-solid fa-badge-check text-success"></i>&nbsp;Verified    
    </span>        
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-regular fa-chevron-up"></i></a>
    </div>
    <div class="float-end pe-3 text-body-tertiary">
      <span>
        <span itemprop="datePublished"><%=ADate%></span>      
      </span>
    </div>
  </div>  

</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v24(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    LReviewedBy = "Trusted Customer"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient

%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-0 my-4 rounded-4 shadow" style="max-width: 640px;">
  <div class="border-bottom py-2 bg-body-tertiary rounded-top-4" style="background-image: url('/images/circ-logo-section-nc.png'); background-repeat: no-repeat; background-position: top 0px right 3px; background-size: contain">
    
    <div>
      <div class="ps-3">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>
      <i class="ms-2 fa-light fa-location-dot fa-lg"></i> UK
      </div>

    </div>
 
  </div>
  
  <div class="px-3">
    <div class="mt-2 mb-1"> 
      <%If AType = "R" Then%>
        <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
          <meta itemprop="ratingValue" content="<%=ARating%>">
        </span>
        <%ShowReviewRatingStars ARating, ""%>&nbsp;
      <%End If%>
      <%If ATitle <> "" Then%>    
      <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
      <%End If%>    
    
    </div>
    <div itemprop="reviewBody" class="">
      <%=AText%> 
    </div>
  </div>
  
  <div class="border-top p-3 py-2 bg-body-tertiary rounded-bottom-4">
    <span>
      <i class="fa-solid fa-badge-check text-success"></i>&nbsp;Verified    
    </span>        
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-regular fa-chevron-up"></i></a>
    </div>
    <div class="float-end pe-3 text-body-tertiary">
      <span>
        <span itemprop="datePublished"><%=ADate%></span>      
      </span>
    </div>
  </div>  

</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v25(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    LReviewedBy = "Trusted Customer"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient
%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-0 my-4 rounded-4 shadow" style="max-width: 640px;">
  <div class="border-bottom py-2 bg-body-tertiary rounded-top-4" style="background-image: url('/images/logo-transparent-50.png'); background-repeat: no-repeat; background-position: top 0px right 3px; background-size: contain;">
    
    <div>
      <div class="ps-3">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>
      <i class="ms-2 fa-light fa-location-dot fa-lg"></i> UK
      </div>

    </div>
 
  </div>
  
  <div class="px-3">
    <div class="mt-2 mb-1"> 
      <%If AType = "R" Then%>
        <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
          <meta itemprop="ratingValue" content="<%=ARating%>">
        </span>
        <%ShowReviewRatingStars ARating, ""%>&nbsp;
      <%End If%>
      <%If ATitle <> "" Then%>    
      <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
      <%End If%>    
    
    </div>
    <div itemprop="reviewBody" class="">
      <%=AText%> 
    </div>
  </div>
  
  <div class="border-top p-3 py-2 bg-body-tertiary rounded-bottom-4">
    <span>
      <i class="fa-solid fa-badge-check text-success"></i>&nbsp;Verified    
    </span>        
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-regular fa-chevron-up"></i></a>
    </div>
    <div class="float-end pe-3 text-body-tertiary">
      <span>
        <span itemprop="datePublished"><%=ADate%></span>      
      </span>
    </div>
  </div>  

</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v26(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    LReviewedBy = "Trusted Customer"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient
%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-0 my-4 rounded-4 shadow" style="max-width: 640px;">
  <div class="border-bottom py-2 bg-body-tertiary rounded-top-4">
    
    <div>
      <div class="ps-3">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>
      <i class="ms-2 fa-light fa-location-dot fa-lg"></i> UK
      </div>

    </div>
 
  </div>
  
  <div class="px-3">
    <div class="mt-2 mb-1"> 
      <%If AType = "R" Then%>
        <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
          <meta itemprop="ratingValue" content="<%=ARating%>">
        </span>
        <%ShowReviewRatingStars ARating, ""%>&nbsp;
      <%End If%>
      <%If ATitle <> "" Then%>    
      <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
      <%End If%>    
    
    </div>
    <div itemprop="reviewBody" class="">
      <%=AText%> 
    </div>
  </div>
  
  <div class="border-top p-3 py-2 bg-body-tertiary rounded-bottom-4">
    <span>
      <i class="fa-solid fa-badge-check text-success"></i>&nbsp;Verified    
    </span>        
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-regular fa-chevron-up"></i></a>
    </div>
    <div class="float-end pe-3 text-body-tertiary">
      <span>
        <span itemprop="datePublished"><%=ADate%></span>      
      </span>
    </div>
  </div>  

</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
Sub ShowReviewItem_v27(AType, ADate, ATitle, ARating, AText, AReviewedBy)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    LReviewedBy = "Trusted Customer"
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    LUserIcon = "fa-duotone fa-user"
  End If

' bg-gradient
%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-0 my-4 rounded-4 shadow" style="max-width: 640px;">
  <div class="border-bottom py-2 bg-body-tertiary rounded-top-4">
    
    <div>
      <div class="ps-3">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>
      <i class="ms-2 fa-light fa-location-dot fa-lg"></i> UK
      </div>

    </div>
 
  </div>
  
  <div class="px-4">
    <div class="mt-3 mb-1"> 
      <%If AType = "R" Then%>
        <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
          <meta itemprop="ratingValue" content="<%=ARating%>">
        </span>
        <%ShowReviewRatingStars ARating, ""%>&nbsp;
      <%End If%>
      <%If ATitle <> "" Then%>    
      <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
      <%End If%>    
    
    </div>
    <div itemprop="reviewBody" class="">
      <%=AText%> 
    </div>
  </div>
  
  <div class="border-top p-3 py-2 bg-body-tertiary rounded-bottom-4">
    <span>
      <i class="fa-solid fa-badge-check text-success"></i>&nbsp;Verified    
    </span>        
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-regular fa-chevron-up"></i></a>
    </div>
    <div class="float-end pe-3 text-body-tertiary">
      <span>
        <span itemprop="datePublished"><%=ADate%></span>      
      </span>
    </div>
  </div>  

</div>
<%
End Sub

' (SS,17/6/11) added <div class="review">
' (SS,22/6/11) replaced GetReviewRatingImgSrc ShowReviewRatingImage
' (SS,12/9/14) changed for Bootstrap, replaced ShowReviewRatingImage ARating, False with ShowReviewRatingStars ARating, replaced "Reviewed By" with "Review By"
' (SS,17/2/16) added Microdata / Rich Snippets
' (SS,21/2/24) added "" (options) to ShowReviewRatingStars
' (SS,28/2/24) added arrow (glyphicon-chevron-up) to go back to top
' (SS,4/6/24) Bootstrap 5, replaced glyphicon glyphicon-chevron-up with "fa-solid fa-chevron-up"
' also pull-right with float-end, removed classes review-header, review-title, review-date, review-body, review-footer  which removes italics, added fw-bold
' (SS,8/7/26) added AReviewerCountry, replaced UK fixed text with AReviewerCountry, also icon not shown if blank country
Sub ShowReviewItem_v28(AType, ADate, ATitle, ARating, AText, AReviewedBy, AReviewerCountry)
  Dim LUserIcon, LFirstName
  
  LUserIcon = "fa-solid fa-user-hair-long"
  
  LFirstName = "," + LCase(NthSeparatedValue(Trim(AReviewedBy), " ", 1)) + ","
  
  Dim LReviewedBy
  LReviewedBy = AReviewedBy
  
  If AReviewedBy = "Anonymous" Then
    LUserIcon = "fa-regular fa-user"
    ' (SS,8/7/26) added if following for "Customer" i.e not happy if rating 3 or less
    If ARating >= 4 Then 
      LReviewedBy = "Happy Customer"
    Else
      LReviewedBy = "Customer"
    End If
  ElseIf InStr(1, ",Alan,Paul,John,Steve,Jonathan,David,Rob,Robert,Richard,Neil,Liam,Lee,Matt,Matthew,Mark,George,Chris,Kevin,Keith,Bill,William,Peter,Michael,Brian,Bryan,Ian,Jason,Christine,Simon,Mr,Andy,Andrew,Malcolm,james,Jamie,Nick,Mike,Ben,Sam,Marc,Max,Stuart,Karl,Carl,Toby,Colin,Leonard,Gary,Martin,Tim,Daron,Darren,Olivier,Mick,Will,Christopher,Ross,Philip,Phil,Jade,Patrick,Russell,Iain,Barry,Edward,Tony,Stephen,Steven,Ken,Hugh,Joe,Dan,Daniel,Tom,Thomas,Tommy,Judson,Angus,Eric,Ronan,Damian,Damien,Alexander,Harry,Ryan,Adam,Julian,Guy,Miles,Sean,Joseph,Anthony,Dave,Roy,Francis,Laurence,Duncan,Lewis,Brad,Bradley,Kenny,Ken,Kenneth,Brett,Adrian,Bobby,Gerald,Rich,Richie,Niall,Jorden,Lauren,Len,Jim,Jimmy,Cliff,Jeff,Geoff,Jonny,Pete,Rick,Gerard,Graham,Graeme,Gavin,Mat,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair"
  ElseIf InStr(1, ",Mary,Susan,Nicola,Ann,Anne,Emma,Sarah,Tina,Carole,Carol,Jacqueline,Camilla,Kirsty,Nicola,Shelly,Mrs,Miss,Donna,Sharon,Dawn,Pippa,Julie,Grace,Jane,Liz,Rhian,Martha,Robina,Deb,Debbie,Debby,Deborah,Kate,Wendy,Helen,Colette,Amanda,Kay,Louise,Kim,Jenny,Fiona,Hannah,Jenny,Jennifer,Jessica,Michelle,Janet,Harriet,Charlotte,Heather,Linda,Andrea,Jackie,Maria,Sonia,Gillian,Rosie,Joanne,Sally,Rachel,Zoe,Katy,Rebecca,Amy,Claire,Clair,Lesley,Carmel,Danielle,Lisa,Tracy,Bev,Beverley,Alexandra,Laura,Joan,Lindsay,Diane,Audrey,Caroline,Ruth,Sophie,Olivia,Juliette,Louisa,Rosalind,Karen,Leanne,Abbie,Frances,Lynne,Shirley,Alison,Marilyn,Elaine,Coleen,Angela,Charmaine,Fern,Sinead,Belle,Maggie,Margaret,Alessia,Mandy,Victoria,Vicky,Vickie,Vicki,Gaynor,Marie,Lizzy,Kath,Cathy,Hayley,Lilian,Janette,Selina,Melanie,Jacqui,Tanya,Nadia,Annette,Miriam,Sue,Susan,Tracey,", LFirstName, vbTextCompare) > 0 Then
    LUserIcon = "fa-solid fa-user-hair-long"
  Else
    ' (SS,21/7/26) changed fa-duotone to fa-regular
    LUserIcon = "fa-regular fa-user"
  End If

' bg-gradient
%>
<div itemprop="review" itemscope itemtype="https://schema.org/Review" class="review mx-auto border p-0 my-4 rounded-4 shadow" style="max-width: 640px;">
  <div class="border-bottom py-2 bg-body-tertiary rounded-top-4">
    
    <div>
      <div class="ps-4">
      <i class="<%=LUserIcon%> fa-lg"></i>&nbsp;
      <span itemprop="author" itemscope itemtype="https://schema.org/Person">
        <span itemprop="name"><%=LReviewedBy%></span>
      </span>
<%If AReviewerCountry <> "" Then%>      
      <i class="ms-2 fa-regular fa-location-dot fa-lg"></i> <%=AReviewerCountry%>
<%End If%>
      </div>

    </div>
 
  </div>
  
  <div class="px-4">
    <div class="mt-3 mb-1"> 
      <%If AType = "R" Then%>
        <span itemprop="reviewRating" itemscope itemtype="https://schema.org/Rating">
          <meta itemprop="ratingValue" content="<%=ARating%>">
        </span>
        <%ShowReviewRatingStars ARating, ""%>&nbsp;
      <%End If%>
      <%If ATitle <> "" Then%>    
      <span itemprop="headline" class="fw-bold"><%=ATitle%></span>
      <%End If%>    
    
    </div>
    <div itemprop="reviewBody" class="">
      <%=AText%> 
    </div>
  </div>
  
  <div class="border-top p-4 py-2 bg-body-tertiary rounded-bottom-4">
    <span>
      <i class="fa-solid fa-badge-check text-success"></i>&nbsp;Verified Purchase   
    </span>        
    <div class="float-end">
      <a href="<%=GetReviewItemTopURL%>"><i class="fa-regular fa-chevron-up"></i></a>
    </div>
    <div class="float-end pe-3">
      <span>
        <span itemprop="datePublished"><%=ADate%></span>      
      </span>
    </div>
  </div>  

</div>
<%
End Sub

' ### TO REMOVE ABOVE - JUST FOR TESTING ###

' (SS,14/6/24) call to enable i.e. initialise Bootstrap 5 tooltips
Sub ScriptEnableTooltips
%>
<script>
const tooltipTriggerList = document.querySelectorAll('[data-bs-toggle="tooltip"]')
const tooltipList = [...tooltipTriggerList].map(tooltipTriggerEl => new bootstrap.Tooltip(tooltipTriggerEl))
</script>
<%
End Sub

' (SS,31/5/24) single place for section headings style in a particular way, may change to a class in future
' (SS,13/6/24) changed font size fs-3 to fs-4
' (SS,5/6/26) for HF, replaced <h2 class="py-2 px-3 mb-3 fs-4 rounded-4 bg-secondary text-dark bg-opacity-10 with: <h2 class="section-heading (i.e. moved to a class)
Sub ShowSectionHeading(AHeadingName, AAdditionalClass)
  Dim LAdditionalClass
  LAdditionalClass = AAdditionalClass
  If LAdditionalClass <> "" Then LAdditionalClass = " " & LAdditionalClass
%>
<h2 class="section-heading<%=LAdditionalClass%>"><%=AHeadingName%></h2>
<%
End Sub

%>