<%@ Language=VBScript %>
<%
'*************************************************************************
' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK!
' Function : Advanced product search form
' 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
%>
<%
'Product
dim idProduct
dim description
dim price
'Database
dim mySQL
dim conntemp
dim rstemp
dim rstemp2
'Session
dim idOrder
dim idCust
'Work Fields
dim i
dim catArray, catArray2
'*************************************************************************
'Open Database Connection
call openDb()
'Store Configuration
if loadConfig() = false then
call errorDB(LangText("ErrConfig",""),"")
end if
'Get/Set Cart/Order Session
idOrder = sessionCart()
'Get/Set Customer Session
idCust = sessionCust()
%>
<%
'Close Database Connection
call closeDB()
'**********************************************************************
'Main Shopping Cart Display Area
'**********************************************************************
sub cartMain()
%>