<%@ language=VBScript %>
<%
'declare variables used on this page
Dim strAccessPoint, strPath, strLogon, strWarning
' Set the Access Point for this page
strAccessPoint = "301"
'Set the path where security scripts reside
strPath = "/cgi-bin/Security/"
'Check to see if person has logged in.
'If not send him to Logon.asp
If Not IsObject(Session("Access")) Then
Session("Response") = "Please log in"
Session("Path") = Request.ServerVariables("URL")
strLogon = strPath & "Logon.asp"
Response.Redirect strLogon
End If
'Check to see if person has this Access Point
'If not send him to SecurityWarning.asp
If Session("Access")(strAccessPoint) <> strAccessPoint Then
If Session("Access")("admin") <> "admin" Then
strWarning = strPath & "SecurityWarning.asp"
Response.Redirect strWarning
End If
End If
%>
GOSPEL OF MATTHEW