<%@ 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

Easy Add AC - Marine Shore Power

Big boat shore power at a fraction of the cost.

Complete ready-to-install AC marine shore power system

Best Marine Shore Power System $350

Click to choose your panel colorEasy install shore power system lets you use economical household appliances on your boat. Includes a gorgeous stainless inlet and two remote outlets. The eight total plug-ins - two in front, two in back, and four remote - are ready for mixers, toasters, air conditioning, stoves, refrigeration, battery chargers - or whatever else makes your boating more fun. Click for more details.

 

Complete ready-to-install AC marine shore power system

Stainless Inlet, Single Remote $340

Click to choose your panel colorEasy install shore power system lets you use economical household appliances on your boat. Includes a gorgeous stainless inlet and two remote outlets. The six total plug-ins - two in front, two in back, and two remote - are ready for mixers, toasters, air conditioning, stoves, refrigeration, battery chargers - or whatever else makes your boating more fun. Click for more details.

 

Complete ready-to-install AC marine shore power system

 Basic System + Remote Outlet $295

Click to choose your panel colorEasy install shore power system lets you use economical household appliances on your boat. Includes a plastic inlet and two remote outlets. The six total plug-ins - two in front, two in back, and two remote - are ready for mixers, toasters, air conditioning, stoves, refrigeration, battery chargers - or whatever else makes your boating more fun. Click for more details.

 

Complete ready-to-install AC marine shore power system

Basic Shore Power System $275

Click to choose your panel colorEasy install shore power system lets you use economical household appliances on your boat. Includes a plastic inlet and two remote outlets. The four total plug-ins - two in front and two in back - are ready for mixers, toasters, air conditioning, stoves, refrigeration, battery chargers - or whatever else makes your boating more fun. Click for more details.

<% 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 %> + %=LangText("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 %>