<% strPageTitle = Application("STORE_NAME") & " New Products" %> <% strPageKeywords = Application("STORE_NAME")%>
<% Dim objProductsNewRS sRetrieveProductsNew objProductsNewRS, Request.Cookies("stock") Dim strProductsNew_Image Dim intProductsNew_First Dim intProductsNew_Last Dim intProductsNew_Total Dim strProductsNew_PageLinks With objProductsNewRS strBackURL = Server.URLEncode(fGenerateLink("products_new.asp?page=" & request("page"))) if .eof = false then sCalculateRecordCounts objProductsNewRS, intProductsNew_First, intProductsNew_Last, intProductsNew_Total strProductsNew_PageLinks = fCalculatePageTotals(fGenerateLink("products_new.asp"), .PageCount) %> <% while .AbsolutePage = intCurrent_Page and not .eof if .fields("products_image").value <> "" then strProductsNew_Image = .fields("products_image").value else strProductsNew_Image = Application("PRODUCT_BLANK_IMAGE") end if %> <% .movenext Wend %>
<% if Application("TABLE_BACKGROUND_PRODUCTS_NEW") <> "" then %> <% else %> <% end if %>
New Products" border="0" alt="New Products" title=" New Products ">




Displaying <%= intProductsNew_First %> to <%= intProductsNew_Last %> (of <%= intProductsNew_Total %> new products)

 Result Pages » <%= strProductsNew_PageLinks %>
<% if Request.Cookies("display") = "links" then %>
<%= .fields("products_name").value %>
Date Added » <%= fDisplayNiceDate(.fields("products_date_added")) %>
<%= .fields("manufacturers_name").value %>
<% sOutputProductLinks .fields("pk").value %>
<% else %> 		<%= .fields(" title=" <%= .fields("products_name").value %> " height="120">   <%= .fields("products_name").value %>
Date Added » <%= fDisplayNiceDate(.fields("products_date_added")) %>
<% sOutputProductLinks .fields("pk").value %>
<% end if %> <% mnyProductsNew_ProductPrice = fRetrieveProductPrice(.fields("pk").value) mnyProductsNew_OriginalPrice = fRetrieveProductOriginalPrice(.fields("pk").value) if mnyProductsNew_ProductPrice <> mnyProductsNew_OriginalPrice then %> <%= strCurrencySymbol %><%= mnyProductsNew_OriginalPrice %> <%= strCurrencySymbol %><%= mnyProductsNew_ProductPrice %> <% else %> <%= strCurrencySymbol %><%= mnyProductsNew_ProductPrice %> <% end if %> 		Add To Cart




<% Else 'No New Products Yet %>
There are no new products to view at this present time.
<% End If End With Set objProductsNewRS = Nothing %>