<%@ 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()
'Get input parms
msg = trim(Request.QueryString("msg"))
errMsg = trim(Request.QueryString("errMsg"))
returnURL = trim(Request.QueryString("returnURL"))
%>
<%
'Close Database Connection
call closeDB()
'**********************************************************************
'Main Shopping Cart Display Area.
'**********************************************************************
sub cartMain()
%>
<%=langGenSystemMessage%>
|
<% 'Show message passed to script
if len(errmsg) > 0 then %>
<%=server.HTMLEncode(errMsg)%>
<% else %>
<%=server.HTMLEncode(msg)%>
<% end if
'If there was a return URL, show link
if len(returnURL) > 0 then %>
<%=langGenClickToReturn%>
<% end if
'For some error messages, show some additional stuff
select case errMsg
case trim(langErrCartEmpty)%>
<%=langGenCookieCheck%>
<% case trim(langErrNotLoggedIn)%>
<%=langGenLogonClick%>
<%=langGenCookieCheck%>
<% end select %>
<%
end sub
%>