<%
'This file is part of ProductCart, an ecommerce application developed and sold by Early Impact LLC. ProductCart, its source code, the ProductCart name and logo are property of Early Impact, LLC. Copyright 2001-2003. All rights reserved. You are not allowed to use, alter, distribute and/or resell any parts of ProductCart's source code without the written consent of Early Impact. To contact Early Impact, please visit www.earlyimpact.com.
%>
<% response.Buffer=true %>
<!--#include file="../includes/settings.asp"-->
<!--#include file="../includes/storeconstants.asp"--> 
<!--#include file="../includes/opendb.asp"-->
<% response.Buffer=true
on error resume next

' If coming from custLO.asp, clear customer session
' (addresses issue with shared SSL scenario)
if request.QueryString("action") = "clear" then
	Session.Abandon
end if

' start store session states
if session("idcustomer")="" then
	session("idPCStore")= scID
	session("idCustomer")=Cint(0)
	session("idAffiliate")=Cint(1)     
	session("language")=Cstr("english")
	session("pcCartIndex")=Cint(0)
	dim pcCartArray(100,35)
	session("pcCartSession")=pcCartArray    
end if
if session("idPCStore")<>scID then
	session.Abandon()
	session("idPCStore")= scID
	session("idCustomer")=Cint(0)
	session("idAffiliate")=Cint(1)     
	session("language")=Cstr("english")
	session("pcCartIndex")=Cint(0)
	redim pcCartArray(100,35)
	session("pcCartSession")=pcCartArray    
end if
' check for affiliate id in string and start session if present
if request.querystring("idAffiliate")<>"" and isNumeric(request.querystring("idAffiliate"))then
   session("idAffiliate")= request.querystring("idAffiliate")	
end if

'if there is an alternate homepage set, then redirect to it, else redirect to the default page (mainIndex.asp)
If scURLredirect <>"" then
	response.redirect scURLredirect
else
	response.redirect "mainIndex.asp"
end If
%>