<%@ Language=VBScript %> <% '************************************************************************* ' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK! ' Function : "Home" Page for Store Front ' Product : CandyPress Store Frontend ' Version : 2.3 ' Modified : March 2003 ' Copyright: Copyright (C) 2003 CandyPress.Com ' 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 webmaster@candypress.com '************************************************************************* 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() 'Get/Set Affilate ID call getIdAffiliate(Request.QueryString("idAff")) %>

Welcome to ZenSoaps Online Store!

We pride ourselves on our variety of exclusively formulated handmade, hand cut and handpackaged soaps. There is no automation whatsoever in our process, from cooking each small batch of soap in a large pot to hand packaging each bar. Every bar is made with pride.  All of our soaps have their natural glycerin intact, in addition to the other pure and exotic oils that lend each soap its unique quality. Feel the difference.

Take a look at our categories on the left menu bar, we have several different lines of our unique soaps, special events favors and gift baskets as well. We hope you enjoy your visit!

This Month's Featured Items
<% 'Get Featured Products mySQL="SELECT idProduct,description,descriptionLong," _ & " listPrice,price,smallImageUrl,stock," _ & " fileName,noShipCharge " _ & "FROM products " _ & "WHERE active = -1 " _ & "AND homePage = -1 " _ & "ORDER BY sku " set rsTemp = openRSopen(mySQL,0,adOpenStatic,adLockReadOnly,adCmdText,0) '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 %>
<% 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()%> <% end sub '********************************************************************** 'Writes the product detail '********************************************************************** sub prodDetail() %> <%=rsTemp("description")%>

<%=trim(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 listPrice = rsTemp("listPrice") price = rsTemp("price") 'Show Extended layout. if homeViewLayout = 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 Response.Write "

" end if 'Show Extended layout. if homeViewLayout = 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="<%=server.HTMLEncode(rsTemp("description"))%>" <% = ImageSize(rsTemp("smallImageURL"),200) %>>
<% else %>
<%=langGenNoImage%>
<% end if %>
"><%=langGenViewMore%>
<% end sub %>