<%
'Arquivo: seguranca.asp

Dim scConsultar, scCadastrar, scAlterar, scExcluir, scRelatorio

scConsultar = false
scCadastrar = false
scAlterar = false
scExcluir = false
scRelatorio = false

Function ObterPermissoes(CodUsuario, CodPagina)
Dim cn, rs, query, liberar
Dim sAdmin, sSupevisor

sAdmin = clng(0 & pesqsql("Select * from tblUsuarios Where CodUsuario=" & CodUsuario, "Admin"))

if sAdmin=1 then
	scConsultar = true
	scCadastrar = true
	scAlterar = true
	scExcluir = true
else
	set cn = Server.CreateObject("ADODB.Connection")
	set rs = Server.CreateObject("ADODB.Recordset")
	cn.open Application("connString")

	query = "SELECT * FROM tblUsuarios_Permissoes Where CodUsuario=" & CodUsuario

	'response.write query
	rs.open query, cn
	if (err.number=0) then
		if (not rs.eof) then
				scConsultar = cbool(0 & rs.fields("Consultar"))
				scCadastrar = cbool(0 & rs.fields("Cadastrar"))
				scAlterar = cbool(0 & rs.fields("Alterar"))
				scExcluir = cbool(0 & rs.fields("Excluir"))
		end if
	end if
	rs.close
	set rs = nothing
	cn.close
	set cn = nothing
end if
End Function
%>

<%
' Arquivo funcoes.asp

Function pesqsql(sql, camporet)

' Metodo para acessar o banco de dados, fornecendo a instrução SQL
' e definindo qual campo que deseja obter o valor

Dim cn, rs
set cn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
cn.open Application("connString")
rs.open sql, cn
if rs.eof then
	pesqsql= ""
else
	pesqsql= rs.fields(camporet)
end if
rs.close
set rs = nothing
cn.close
set cn = nothing
End Function
%>