<%@ Language=VBScript %> <% '************************************************************************* ' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK! ' Function : "Home" Page for Store Front ' Product : CandyPress Store Frontend ' Version : 4.1 ' Modified : May 2007 ' Copyright: Copyright (C) 2004 Webs Unlimited, Inc. ' See "license.txt" for this product for details regarding ' licensing, usage, disclaimers, distribution and general ' copyright requirements. If you don't have a copy of this ' file, you may request one at http://www.candypress.com '************************************************************************* 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("Unable to load store configuration table values") end if 'Get/Set Cart/Order SessionidOrder = sessionCart() 'Get/Set Customer Session idCust = sessionCust() 'Get/Set Affilate ID call getIdAffiliate(validHTML(Request.QueryString("idAff"))) %> <% 'Close Database Connection call closeDB() '********************************************************************** 'Main Shopping Cart Display Area. '********************************************************************** sub cartMain() %> EzAcDc, Simple Systems for Boat Wiring and Marine Electrical

Snap Together Boat Wiring Parts

EzAcDc Boat Wiring Parts Snap Together for Easy Installation 

Return to Shipping Information Page

Please use the map below to determine the approximate shipping times for your new boat wiring parts from our facility to your location.

If you would like to receive your boat wiring more quickly, please contact our customer service department by emailing support@ezacdc.com or by calling us toll free 720-239-2232. We would be happy to help you to determine the cost of a faster delivery.

Return to Shipping Information Page

 
      <% end sub '********************************************************************** '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 %>    <% exit sub end if %> <%call prodImage()%> <%call prodDetail()%> <% end sub '********************************************************************** 'Displays Three Featured Products across the width of a row. '********************************************************************** sub tripleProd() %> <%call prodImage()%> <%call prodDetail()%> <% rsTemp.MoveNext if rsTemp.EOF then %>    <% exit sub end if %> <%call prodImage()%> <%call prodDetail()%> <% rsTemp.MoveNext if rsTemp.EOF then %>    <% exit sub end if %> <%call prodImage()%> <%call prodDetail()%> <% end sub '********************************************************************** 'Writes the product detail '********************************************************************** sub prodDetail() %> <%=langProduct(rsTemp("idProduct"),"description",rsTemp("description")) %>

<%=trim(langProduct(rsTemp("idProduct"),"descriptionLong",rsTemp("descriptionLong")))%>

<% '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, handlingFee listPrice = rsTemp("listPrice") price = rsTemp("price") handlingFee = rsTemp("handlingFee") listPrice = Exchange(listPrice) price = Exchange(price) handlingFee = Exchange(handlingFee) 'Show Extended layout. if homeViewLayout = 1 then if listPrice > Price then %> <%=LangText("GenListPrice","")%>: <%=moneyS(listPrice)%>
<% end if %> <%=LangText("GenOurPrice","")%>: <%=moneyS(Price)%> <% if handlingFee > 0 then %> <%=LangText("GenHandlingFee","")%>: <%=moneyS(handlingFee)%> <% end if if (listPrice - Price) > 0 then %>
<%=LangText("GenYouSave","")%>: <%=moneyS(listPrice-Price)%> (<%=formatNumber((((listPrice-Price)/listPrice)*100),0)%>%) <% end if 'Show Classic layout. else %> <%=LangText("GenOurPrice","")%>: <%=moneyS(Price)%> <% if handlingFee > 0 then %> + gText("GenHandlingFee","")%>: <%=moneyS(handlingFee)%> <% end if end if %>

<% end if 'Show Extended layout. if homeViewLayout = 1 then 'Free Shipping? if UCase(rsTemp("noShipCharge")) = "Y" and len(trim(rsTemp("fileName")&"")) = 0 then %> <%=LangText("GenFreeShipping","")%>
<% end if 'In stock, Out of stock if pShowStockView = -1 then if pHideAddStockLevel = -1 then %> <%=LangText("GenInStock","")%>
<% else if rsTemp("stock") > pHideAddStockLevel then %> <%=LangText("GenInStock","")%>
<% else %> <%=LangText("GenOutStock","")%>
<% 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="<%=server.HTMLEncode(rsTemp("description"))%>">
<% else %>
<%=LangText("GenNoImage","")%>
<% end if %>
"><%=LangText("GenViewMore","")%>
<% end sub %>