<% ' 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 %>