%@LANGUAGE="VBSCRIPT"%>
<%
' *** Restringe o acesso a esta página
MM_authorizedUsers="1,2,3,4"
MM_authFailedURL="login.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If ( False Or CStr( Session("MM_UserAuthorization") ) = "" ) Or _
( InStr( 1, MM_authorizedUsers, Session("MM_UserAuthorization") ) >=1 ) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If ( InStr( 1, MM_authFailedURL, "?" ) >= 1 ) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables( "URL" )
If (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>