<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
'Rotina de chamada da página de tratamento de erros.
'Se o código de erro resultante for 1 é um erro de validação gerado pelo componente
Sub TrataErro()
	if (Err.Number - vbObjectError - &H200) <> 1 then
		response.redirect("Trataerro.asp?Numero="&err.number&"&Descricao="&err.description&"&Source="&err.source)
	end if
End Sub

'Verifica se a autorização necessária para a execução da página está disponível
'para o usuário ativo. Se não estiver desvia para página de erro específica
Public Sub AutorizaPagina(programa, operacao)
	' Coloque aqui o código para verificar se o usuário têm acesso 
	' Este método é chamado na montagem da Toolbar e na montagem do Menu
End Sub

'Classe que encapsula a manipulação de uma instância de UsuarioAtivo.
'Permite obter o nome e nome completo do usuário ativo,
'a lista de sistemas do usuário ativo e testar se o usuário ativo possui
'autorização em determinado programa/operação.
Class LoginUsuarioAtivo
	Private objUsuarioAtivo
	
	Private Sub Class_Initialize()
		dim userid, senha
		userid 	= Session("UserID")
		senha 	= Session("Password")
		
		'Não há usuário
		if userid = "" then 		
			param=request.servervariables("SCRIPT_NAME")
			if param <> " " then
				Session("paramPage")=request.servervariables("SCRIPT_NAME")'&request.servervariables("QUERY_STRING")
			end if				
			'Página de login
			Server.Transfer("gologin.asp")
		end if
		
		
		if Err.Number <> 0 then
			set objUsuarioAtivo = nothing
			Session.Contents.Remove("UserID")
			Session.Contents.Remove("Password")
			Server.Transfer("gologin.asp")
		end if
	End Sub
	
	Private Sub Class_Terminate()
		set objUsuarioAtivo = nothing
	End Sub
	
	Public Function ListaSistemas
		
	End Function
	
	Public Function Nome
		
	End Function
	
	Public Function NomeCompleto
		
	End Function
	
	Public Function Autorizado(sistema, programa, operacao)
		'Coloque aqui o código para verificar se o usuário possui alguma autorização nesta página
		Autorizado = true
	End Function
	
End Class

dim myUserAtivo
set myUserAtivo = new LoginUsuarioAtivo

%>
