%
' 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 %>
![]() |
|
|
|
|
|
|
Amazing New Removal tool will replace screwdrivers, pry bars and all other metal tools that cause damage and marring of delicate surfaces. See Us in " Tools You Can Use" Section of March 2007 Mobile Electronics Magazine (See Us Page 30) The Orange Wedge's are made from a High Tech Specially blended Polyethylene which is Incredibly Flexible and won't break or snap. The Black Wedge's are made from a High Tech Specially blended Polycarbonate with High Impact qualities for tough applications.
Save time and money by getting the job done quickly without having to repair nicks, dents, scratches caused by using the wrong tool.
|