EzAcDc, Simple Systems for Boat Wiring and Marine Electrical

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

Marine Electrical Switch Panels

Easily rewire or replace your boat's switch panels.

Replace the wiring on your original OEM switch panel quickly and correctly

Rewire Your Boat's Original Panels

Ready to install kit lets you quickly rewire your boat's original switch panels - the perfect solution for boats with great looking, custom fit OEM panels that no longer work correctly. Includes all parts - fully labeled, circuit protection and easy-to-follow instructions.
Click for more details.

Our eight switch panels gets your boat wiring project done quickly and correctly

Deluxe Eight Switch Panels

Available fully loaded and wired - or ready for you to add your own parts and wiring. Either way, these gorgeous UV resistant panels will make your boat wiring project a breeze. Molded for eight OEM type switches and a 12 volt outlet, these panels measure 6.25" by 8.25".
Click for more details.

Deluxe Five Switch Panels

Gorgeous UV resistant panels are fully loaded and wired - or ready for you to add your own parts and wiring. Either way, they make boat wiring a breeze. Molded for five OEM type switches, a voltmeter and a 12 volt outlet, these panels measure 3.875" by 12.875".
Click for more details.

Our standard five switch marine electrical panels get your boat wiring project done quickly and correctly

Basic Five Switch Panels

Our most most popular marine electrical panels can be purchased fully loaded and wired - or ready for you to add your own parts and wiring. Either way, they make your project easy. Molded for five OEM type switches, these panels measure 3.875" by 8.5"
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 %>