<%@ 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.4 ' Modified : June 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 '************************************************************************* Option explicit Response.Buffer = true %> <% 'Database dim mySQL dim conntemp dim rstemp dim rstemp2 'Session dim idOrder dim idCust dim idProduct dim Stock '************************************************************************* '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")) %> <% 'Close Database Connection call closeDB() '********************************************************************** 'Main Shopping Cart Display Area. '********************************************************************** sub cartMain() %>

<% 'Get Featured Products mySQL="SELECT idProduct,description,descriptionLong," _ & " listPrice,price,smallImageUrl,stock," _ & " fileName,noShipCharge " _ & "FROM products " _ & "WHERE active = -1 " _ & "AND homePage = -1 " _ & "ORDER BY idProduct DESC " 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 %>

<% 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 '********************************************************************** '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 %> <%=langGenListPrice%>: <%=pCurrencySign & moneyS((listPrice))%>
<% end if %> <%=langGenOurPrice%>: <%=pCurrencySign & moneyS(Price)%> <% if (listPrice - Price) > 0 then %>
<%=langGenYouSave%>: <%=pCurrencySign & moneyS((listPrice-Price))%> (<%=formatNumber((((listPrice-Price)/listPrice)*100),0)%>%) <% end if 'Show Classic layout. else %> <%=langGenOurPrice%>: <%=pCurrencySign & moneyS(Price)%> <% end if %>

<% '********************************************************************** 'Adds the buy and view buttons '********************************************************************** %> <% 'Need to assign values for the variables idProduct and Stock for use in getAddButt() and getViewButt() idProduct = rsTemp("idProduct") Stock = rsTemp("stock") %> <%call getAddButt()%> <%call getViewButt%>
<% end if 'Show Extended layout. if homeViewLayout = 1 then 'Free Shipping? if UCase(rsTemp("noShipCharge")) = "Y" and len(trim(rsTemp("fileName")&"")) = 0 then %> <%=langGenFreeShipping%>
<% end if 'In stock, Out of stock if pShowStockView = -1 then if pHideAddStockLevel = -1 then %> <%=langGenInStock%>
<% else if rsTemp("stock") > pHideAddStockLevel then %> <%=langGenInStock%>
<% else %> <%=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"))%>">
<% else %>
<%=langGenNoImage%>
<% end if %>
"><%=langGenViewMore%>
<% end sub %> <% '********************************************************************* 'Get View Add Button '********************************************************************* sub getViewButt() %>
<% end sub '********************************************************************* 'Display Add Button '********************************************************************* sub getAddButt() dim mySQL, rsTemp dim formAction 'Show Add button if pCatalogOnly = 0 and _ (pHideAddStockLevel = -1 or _ pHideAddStockLevel < CDbl(Stock)) then 'Check for options and change form "action" attribute mySQL = "SELECT idOptionGroup " _ & "FROM optionsGroupsXref " _ & "WHERE idProduct = " & validSQL(idProduct,"I") set rsTemp = openRSexecute(mySQL) if rsTemp.eof then formAction = "cart.asp" else formAction = "prodView.asp" end if call closeRS(rsTemp) %> <% end if end sub %>