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

FedEx PackageTracking Track your packages: Enter any combination of up to 30 FedEx tracking or Door Tag numbers: (one per line)

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