<%@ 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.5 ' Modified : February 2004 ' Copyright: Copyright (C) 2004 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 '************************************************************************* '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,sortOrder " _ & "FROM products " _ & "WHERE active = -1 " _ & "AND homePage = -1 " _ & "ORDER BY sortOrder ASC,idProduct DESC " set rsTemp = openRSopen(mySQL,adUseClient,adOpenStatic,adLockOptimistic,adCmdText,0) 'Randomize the recordset if homeViewRandom > 0 and rsTemp.RecordCount > 2 then 'Disconnect recordset and initialize random seed set rsTemp.ActiveConnection = nothing randomize() 'Update sortOrder field with random numbers and sort do while not rsTemp.EOF rsTemp.Update "sortOrder",Int((9999 * Rnd) + 1) rsTemp.MoveNext loop rsTemp.Sort = "sortOrder" 'Delete any extra records from disconnected recordset rsTemp.move homeViewRandom,1 do while not rsTemp.EOF rsTemp.Delete rsTemp.MoveNext loop 'Reposition to first record rsTemp.MoveFirst end if '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 if isEmpty(idCust) or not IsNumeric(idCust) then else '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 %>

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