<%@ Language=VBScript %> <% '************************************************************************* ' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK! ' Function : These functions and subroutines are used by the scripts ' Product : CyberMerchant eCommerce Storefront ' Version : 2.2 ' Modified : November 2002 ' Copyright: Copyright (C) 2002 CyberMerchant '************************************************************************* Option explicit Response.Buffer = true %> <% 'Database dim mySQL dim conntemp dim rstemp dim rstemp2 'Session dim idOrder dim idCust '************************************************************************* 'Open Database Connection call openDB() 'Store Configuration if loadConfig() = false then call errorDB(langErrConfig,"") end if 'Get/Set Cart/Order Session idOrder = sessionCart() 'Get/Set Customer Session idCust = sessionCust() %>
Featured Products <% 'Get Fetured Products mySQL="SELECT idProduct,description,descriptionLong," _ & " listPrice,price,smallImageUrl,stock," _ & " fileName,noShipCharge " _ & "FROM products " _ & "WHERE active = -1 " _ & "AND homePage = -1 " _ & "ORDER BY idProduct DESC " set rsTemp = openRSopen(mySQL,0,adOpenStatic,adLockReadOnly,adCmdText,pMaxItemsPerPage) 'If Featured Products = 0 then use "_INCright_.asp" if rsTemp.EOF then call noProd() else 'If Featured Products <= 2 then display single rows if rsTemp.RecordCount <= 2 then do while not rsTemp.EOF call singleProd() if not rsTemp.EOF then rsTemp.MoveNext end if loop 'If Featured Products > 2 then display double rows else do while not rsTemp.EOF call doubleProd() if not rsTemp.EOF then rsTemp.MoveNext end if loop end if end if %>

JayCo Battery

We have over 60 years of combined battery experience to assist you with all of your battery needs. If you don't see what you want here on our site, just click the contact us button and send us an e-mail. We will respond to you within 24 hours, usually sooner, to answer any question you may have about batteries, chargers, and most anything battery related!

JayCo Battery is your one stop shop for all of your battery needs. We carry only top manufacturers and we offer them at great discount prices!
We carry the complete line of Power Sonic batteries. Most will ship the following business day.
We also carry the full line of Optima Batteries at competitive prices. Optima batteries are the ultimate power source for starting power deep cycle capabilies and marine applications.
We have Odyssey Batteries for ATVs, Motorcycles, Snow Machines, and most applications where you need starting power without the acid mess.

JayCo

Battery!

<% call closeDB() '********************************************************************** 'Displayed when there are no Featured Products. '********************************************************************** sub noProd() %> <% end sub '********************************************************************** 'Displays ONE Featured Product across the width of a row. '********************************************************************** sub singleProd() %> <%call prodImage()%> <%call prodDetail()%> <% end sub '********************************************************************** 'Displays TWO Featured Products across the width of a row. '********************************************************************** sub doubleProd() %>
<%call prodImage()%>
<%call prodDetail()%>
">
<% rsTemp.MoveNext if rsTemp.EOF then Response.Write "  " exit sub end if %>
<%call prodImage()%>
<%call prodDetail()%>
">
<% rsTemp.MoveNext if rsTemp.EOF then Response.Write "  " exit sub end if %>
<%call prodImage()%>
<%call prodDetail()%>
">
<% end sub '********************************************************************** 'Writes the product detail '********************************************************************** sub prodDetail() %> <%=rsTemp("description")%>
<% 'Show pricing if required for this product if not(pHidePricingZero=-1 and rsTemp("Price")=0) then 'Assign pricing info to local variables for easier use. dim listPrice, price listPrice = rsTemp("listPrice") price = rsTemp("price") 'Show Extended layout. if listViewLayout = 1 then if listPrice > Price then Response.Write "" & langGenListPrice & ": " & pCurrencySign & moneyS((listPrice)) & "
" end if Response.Write "" & langGenOurPrice & ": " & pCurrencySign & moneyS(Price) & "" if (listPrice - Price) > 0 then Response.Write "
" & langGenYouSave & ": " & pCurrencySign & moneyS((listPrice-Price)) & " (" & formatNumber((((listPrice-Price)/listPrice)*100),0) & "%)" end if 'Show Classic layout. else Response.Write "" & langGenOurPrice & ": " & pCurrencySign & moneyS(Price) & "" end if end if 'Show Extended layout. if listViewLayout = 1 then 'Free Shipping? if UCase(rsTemp("noShipCharge")) = "Y" and len(trim(rsTemp("fileName")&"")) = 0 then Response.Write "" & langGenFreeShipping & "
" end if 'In stock, Out of stock if pShowStockView = -1 then if pHideAddStockLevel = -1 then Response.Write "" & langGenInStock & "
" else if rsTemp("stock") > pHideAddStockLevel then Response.Write "" & langGenInStock & "
" else Response.Write "" & langGenOutStock & "
" end if end if end if end if end sub '********************************************************************** 'Writes the code to display the product image and a link '********************************************************************** sub prodImage() if len(trim(rsTemp("smallImageUrl")&"")) <> 0 then %> ">" border=0 alt="<%=rsTemp("description")%>">
<% else %>
<%=langGenNoImage%>
<% end if %> <% end sub %>