<%'Include Data Connection%>
<!--#INCLUDE VIRTUAL="/includes/dataconn.asp"-->

<%'Include ADO constants include file for VBScript%>
<!--#INCLUDE VIRTUAL="/includes/adovbs.inc"-->

<%'Include Utility Scripts%>
<!--#INCLUDE VIRTUAL="/admin/includes/security_utils.asp"-->

<%
Response.Buffer = True
Response.Expires = -1

'open data connection
Call OpenConn()

Select Case True
	'if the user's session has timed out then...
	Case (Session("UserId")="") 
		'redirect the user to the login page
		Response.Redirect("/admin/login.asp")
		
	'if the user does not have access to this page then...
	Case Not(UserHasPageLevelAccess(Session("UserId"), Request.ServerVariables("URL"))) And Not(UserIsAdmin(Session("UserId")))
		'redirect the user to the main menu
		Response.Redirect("/admin/default.asp")
End Select

'close data connection
Call CloseConn()
%>