%@ Language=VBScript %>
<%
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()
%>
<%
end sub
%>