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

At Southwestern Manufacturing innovation is essential to create solutions aimed at increasing

end-user productivity and profitability.

We develop and use breakthrough ideas to create solutions that bring real value to the customer

and deliver enhanced financial returns to the company.

Our Utility Patent Granted in 1999

Remove & Install Dashboards, Bezels, Panels for

stereos, speakers, navigation systems, alarms with ease!