<%
strArquivo = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1, Len(Request.ServerVariables("SCRIPT_NAME")))
Dim arRequiredLogin(6)
Dim bolRequiredLogin
bolRequiredLogin = False
arRequiredLogin(0) = "materia.asp"
arRequiredLogin(1) = "chat.asp"
arRequiredLogin(2) = "chat_config.asp"
arRequiredLogin(3) = "chat_message_load.asp"
arRequiredLogin(4) = "chat_message_send.asp"
arRequiredLogin(5) = "forum.asp"
For int_arRequiredLoginCount = 0 To UBound(arRequiredLogin)
bolRequiredLogin = bolRequiredLogin OR Trim(strArquivo) = Trim(arRequiredLogin(int_arRequiredLoginCount))
Next
If bolRequiredLogin Then
If Not (Session("id_tb_assinante") <> "") Then
strMensagem = "Para acessar esta área é necessário estar logado."
End If
End If
%>