<%
' This ensures that ONLY members can browse the page
' If the user is NOT Logged in then re-drect to LOGIN
If Not Response.IsClientConnected Then
	Response.End()
End If

VerifyLogin() 

Function VerifyLogin()
	If Not Response.IsClientConnected Then
		Response.End()
	End If

	Dim strASP	' Current ASP page
	strASP = ucase(Request.ServerVariables("Script_Name"))

	'check to see if they are logged in or are at the login page
	If CLng(Request.Cookies("FailSafe")("AccountID")) <> 0 Then
		UserID = Request.Cookies("FailSafe")("AccountID")
	Else
		UserID = 0
	End If
	
	If UserID = 0 Then
		'Check if the User was requesting a Download
		If Request.QueryString("Download") <> "" Then
			Session("Download") = Trim(Request.QueryString("Download"))
		End If
		'Check if the use was trying to access a Members Only page
		If strASP <> "/SafeWorX/Members/Login.asp" Then
			Session("ReDirect") = strASP
		Else
			Session("ReDirect") = ""
		End If
		Response.Redirect("/SafeWorX/Members/Login.asp")
		Response.End
	End If
End Function
%>