<%@Language="VBSCRIPT"%>
<% 
Option Explicit
Response.Buffer = TRUE

' Log Out & Clear Old Session
Server.Execute ("LogoutProcess.asp")

Dim TheString                  ' SQLRemoveBadCharactersInc  SetVars Function
Dim adjustingtext              ' SQLRemoveBadCharactersInc  RemoveCharacters Function
Dim arysplit, i, j, strOutput  ' SQLRemoveBadCharactersInc  stripHTML2 Function
%>

<!-- #include virtual="../asp/ssi/SQLRemoveBadCharactersInc.asp" -->

<%
Dim strLoginBounceBackURL
Dim strLoginBounceBackURL2
' Create Registration BounceBack URL link
strLoginBounceBackURL = "Referral=" & Server.URLEncode (left(stripHTML2(RemoveCharacters(trim(Request.Querystring("Referral")))),250))


' Session Ended Check
If Request.Querystring ("Session") = "Expired" Then
	Response.Redirect "LoginNew.asp?Session=Expired&" & strLoginBounceBackURL
	Response.End
End If

' Early Customer Cookie Check. No cookie, redirect to Manual Login
If Request.Cookies("GIVN").HasKeys Then
	' Customer cookie present
Else
	Response.Redirect "LoginNew.asp?" & strLoginBounceBackURL
	Response.End
End If

' Cookies Enabled check
If Request("cookies") = "" Then
	Response.redirect "cookiecheck.asp?" & strLoginBounceBackURL 
End If 
If Request("cookies") = "no" Then
	Response.Redirect "CookiesDisabled.asp?" & strLoginBounceBackURL
	Response.End
End If

Response.Redirect "../asp/LoginAuto.asp?" & strLoginBounceBackURL
%>