<%@ Language=VBScript %>
<%
'*************************************************************************
' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK!
' Function : Script display errors and general messages
' 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 connTemp
dim errMsg, msg, returnURL
'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()
%>
<%
'Close Database Connection
call closeDB()
'**********************************************************************
'Main Shopping Cart Display Area.
'**********************************************************************
sub cartMain()
%>
<%=langGenSystemMessage%>
|
<%=normaHERBALIFE%>
<%=normaHERBALIFE1%>
<%=normaHERBALIFE2%>
<%=normaHERBALIFE3%>
<%=normaHERBALIFE4%>
<%=normaHERBALIFE5%>
<%
end sub
%>