<%
' Cart calling page
' Created: 02 feb 2001
' Updated: 11 Oct 2002
'
' DO NOT MODIFY THIS PAGE!
'
On Error Resume Next
Dim l_error
Dim obj_
Set obj_ = Server.CreateObject("coastcart.cart")
if Err then response.write "Error creating obj_
" & Err.Description : response.end
obj_.istrDomain = Request.ServerVariables("HTTP_HOST")
obj_.istrDbq = Server.Mappath("database\Coastcart.MDB")
if Request.Cookies("id") = "" then
response.Cookies("id") = obj_.get_session_id ( Session.SessionID )
'response.Cookies("id").Path = "/"
'response.Cookies("id").Domain = Request.ServerVariables("HTTP_HOST")
response.Cookies("id").Expires = obj_.get_expiration ()
end if
if Request.QueryString("ref") <> "" then
Response.Cookies("ref") = Request.QueryString("ref")
Response.Cookies("ref").Expires = now() + 1
end if
obj_.istrRef = Request.Cookies("ref")
' Show useful information
if 0 then
response.write "Debugging Mode
"
response.write ( Request.Querystring & "
" )
response.write ( Request.Form & "
" )
response.write "ID: [" & Request.Cookies("id") & "]"
response.write "REF: [" & Request.Cookies("ref") & "]"
response.write "SessionID is [" & Session.SessionID & "]"
'response.end
end if
l_error = obj_.handler ( Request.QueryString & Request.Form, Request.Cookies("id"), Session.SessionID )
if Err then response.write "Error running obj_.handler()
" & Err.Description : response.end
if l_error = 888 then
' Reset the cookie if the VB says so
response.Cookies("id") = ""
response.Cookies("ref") = ""
response.redirect "default.asp"
end if
' ASP error that wasn't caught?
if l_error < 0 or obj_.istrAspError <> "" then
response.write "aspError
"
response.write "" & obj_.istrAspError & "
"
response.end
end if
' Redirect?
if 0 then
response.write SSL & obj_.fields_("redirect")
response.end
end if
if obj_.fields_("redirect") <> "" then response.redirect obj_.fields_("redirect")
response.write obj_.fields_("page")
set obj_ = nothing
%>