HEX
Server: Microsoft-IIS/10.0
System: Windows NT ITPWINWEBSVR22 10.0 build 20348 (Windows Server 2022) AMD64
User: www.conferencesearch.co.uk (0)
PHP: 8.3.30
Disabled: NONE
Upload Files
File: D:/web/hyperflight/inc-template-highlights.asp
<%

' (SS,03/04/08) added "If ProductDiscontinued(AProductCode, AProductName)" to ShowHighlightsItem to not show "Buy" button for discontinued/special order products
' (SS,25/06/10) added IsStockAvailable to Sub ShowHighlightsItem 
' (SS,06/07/10) replaced GetProductLink with GetProductLinkWithName for SEO in Sub ShowHighlightsItem
' (SS,19/06/12) hide buy button if no stock Sub ShowHighlightsItem
' (SS,20/05/13) added price per section using CustomShowPricePerSection to Sub ShowHighlightsItem
' (SS,14/08/14) new responsive web design version using Bootstrap
' (SS,17/05/21) change to Sub ShowHighlightsItem, border from "border: 1px dashed #f4f4f4;" to "border-bottom: 1px solid #ddd" 
' (SS,15/05/26) new Bootstrap 5 version

' --- START OF HIGHLIGHT TEMPLATES --- '
' (SS,29/5/15) added grid for isotope to tidy the variable height cells
' (SS,19/8/15) added background-info class to h3 tag for the background experiment
' (SS,22/6/17) special version for lower section left side
' (SS,15/5/26) adjusted for Bootstrap 5, i.e. removed panel cards
Sub ShowHighlightsHeader_old
%>
    <div class="home-highlights">
<%
  ShowSectionHeading "Featured Products", ""
End Sub

Sub ShowHighlightsHeader
%>
  <div class="home-panel home-highlights">
    <div class="home-panel-heading">Featured Products</div>
    <div class="home-panel-body">
<%
End Sub

' (SS,25/6/10) added IsStockAvailable
' (SS,6/7/10) replaced GetProductLink with GetProductLinkWithName for SEO
' (SS,24/1/11) corrected thumbnail from large to small in getpic.asp (highlight-image)
' (SS,19/6/12) added "If InStock(ANumInStock) Or IsStockAvailable" to only show buy button if there is stock
' (SS,20/5/13) added price per section using CustomShowPricePerSection
' (SS,14/8/14) new bootstrap version
' (SS,02/8/14) added diagonal ribbon thanks to http://isdntek.com/tagbot/diagonalbanners.htm
' (SS,29/5/15) added grid-item for isotope to tidy the variable height cells
' (SS,10/8/15) remove the word only
' (SS,11/8/15) modified to simply call ShowProductListItem
' (SS,28/11/17) added ADescription and changed col-lg-3 col-md-3 to col-lg-4 col-md-4 and col-lg-9 col-md-9 to col-lg-8 col-md-8
' (SS,17/05/21) changed border from "border: 1px dashed #f4f4f4;" to "border: 1px bottom #ddd"
' (SS,15/05/26) adjusted for Bootstrap 5
Sub ShowHighlightsItem(ACount, AProductCode, AProductName, ADescription, ASalePrice, AStdPrice, ANumInStock, ACategory, ASubcategory, AShowCategoryPicture)
  ' ShowProductListItem 100, AProductCode, AProductName, ASalePrice, AStdPrice, ANumInStock, False, False, False, "", "", ""
  
  Dim LProductID
  LProductID = GetProductIDForProductCode(AProductCode) ' *** to add ProductID as parameter in future 
%>
      <div class="col-12 border-bottom">
        <div class="row align-items-center py-2">
          
          <div class="col-4 col-sm-3 col-md-3">
            <a href="<%=GetProductLinkWithName(AProductCode, AProductName)%>">
              <img class="img-fluid" src="<%=GetProductImageLink(AProductCode, "s")%>" alt="<%=AProductName & " (" & AProductCode & ")"%>">
            </a>
          </div>
          
          <div class="col-8 col-sm-9 col-md-9">
            <p class="mb-1">
              <a class="highlights-product-name" href="<%=GetProductLinkWithName(AProductCode, AProductName)%>"><%=AProductName%></a>
            </p>
            
            <p class="mb-0">
              <%=ADescription%>
            </p>
          </div>
          
        </div>
      </div>
<%  
End Sub

Sub ShowHighlightsFooter_old
%>
    </div>
<%
End Sub

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

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


'ShowHighlights

%>