Nao sei como se faz

[Filipe_Moraes 15]

na parte onde tens esse codigo que vou citar abaixo, acrecente isso:

ASP

IF rsUSUARIO.EOF THEN

                rsUSUARIO.CLOSE

                SET rsUSUARIO = NOTHING

                                RESPONSE.Redirect "erro.asp?erro=0001"

ELSE

                session("qualquer_nome_que_vc_queira") = rsUSUARIO("CONTROLEACESSO") //lembrando que CONTROLEACESSO é o campo da tua tabela onde tens o 0 ou 1

END IF

 

Pronto, armazenamos o valor 1 ou 0 na session, dependendo do que o user tem no campo CONTROLEACESSO.

Agora, na sua página "relatorios.asp" onde você quer inserir o relatorio geral ou o relatorio total, você coloca o seguinte codigo:

ASP

IF session("qualquer_nome_que_vc_queira") = 1 THEN // se for 1 mostra o relatorio total

                  RESPONSE.WRITE("<!--#include file='relatoriototal.asp' -->")  // isso vai incluir a tua pagina com o relatorio total

ELSE  // se não for 1, é poruqe é 0 e mostra o relatório geral

                  RESPONSE.WRITE("<!--#include file='relatoriogeral.asp' -->")  // isso vai incluir a tua pagina com o relatorio geral

END IF

 

Bom, pelo que eu entendi, você quer inserir uma das duas páginas com os relatórios na página relatorios.asp, dependendo da permissão que o usuário ter.

É isso, simples... Tenta fazer ai e depois diga se deu certo.

[Hugo Eyer 0]

Entendi...

 

Achei legal o que escreveu... foi uma ideia que ainda nao tive. Mas o que queria mesmo era ter 2 tipos de relatorios mesmo na pagina. Tipo um link para um relatorio (relatoriogeral.asp) e outro link para o outro relatorio (relatoriototal.asp) que so poderiam ver o gerente e os coordenadores.

 

E nesse relatoriototal.asp que estou tentando fazer o codigo para para que seja 1 ele ter acesso e caso seja 0 ele nao ter.

 

Acho que se eu tentar fazer isso que voce escreveu acima vai confundir minha cabeca toda.

O que eu quero é so autorizar com o controleacesso os usuarios que podem ver o relatoriototal que sao poucos. Eu e no maximo 3.

 

Tenta ver isso que falei, eu fiz aquele codigo facil na pagina de relatoriototal.asp

ASP

IF CONTROLEACESSO = 0 THEN

        RESPONSE.Redirect "erro.asp?erro=0007"

ELSE

END IF

 

E pelo que falei sempre quando coloco valor igual a 0 ele vai direto para a pagina de erro. Nao importando o status do usuario sendo 1 ou 0. E se coloco 1 no valor ele apresenta o relatorio nao importando se o usuario tem ou nao acesso.

 

De qualquer forma irei tentar fazer o que escreveu.

Obrigado pela atenção.

 

Hugo

[Filipe_Moraes 15]

Entendi...Achei legal o que escreveu... foi uma ideia que ainda nao tive. Mas o que queria mesmo era ter 2 tipos de relatorios mesmo na pagina. Tipo um link para um relatorio (relatoriogeral.asp) e outro link para o outro relatorio (relatoriototal.asp) que so poderiam ver o gerente e os coordenadores.E nesse relatoriototal.asp que estou tentando fazer o codigo para para que seja 1 ele ter acesso e caso seja 0 ele nao ter. ...

Hugo, mas esse codigo que te passei faz extamente isso, tens dois relatorios na mesma pagina, ele so vai mostrar nessa pagina o relatorio que o user estiver liberado para ver... bom, veja isso com calma que consegues perceber.

[Hugo Eyer 0]

Fiz igualzinho o que estava escrito e continuou a mesma coisa.

 

Vou passar o codigo da pagina de login: ----

 

<!--#include file="conexao/conexao.asp" -->

<!--#include file="funcoes/funcoes_vbscript.asp" -->

<%

Session.LCID = 1046

Set Conex = Server.Createobject("ADODB.Connection")

Conex.open PLANEJAMENTO_STRING

LOGIN = REQUEST.Form("LOGIN")

SENHA = REQUEST.Form("SENHA")

 

IF LOGADO = TRUE THEN

RESPONSE.Cookies("LOGIN_ACIONA") = ""

RESPONSE.Redirect "default.asp"

END IF

 

 

SQL = "SELECT UPPER(LOGIN) AS LOGIN, UPPER(NOME) AS NOME, ATIVO, CONTROLEACESSO FROM USUARIOS WHERE LOGIN = '" & LOGIN & "' AND SENHA = '"& SENHA &"'"

SET rsUSUARIO = CONEX.EXECUTE(SQL)

 

IF rsUSUARIO.EOF THEN

rsUSUARIO.CLOSE

SET rsUSUARIO = NOTHING

RESPONSE.Redirect "erro.asp?erro=0001"

ELSE

session("NOME_DIFICIL") = rsUSUARIO("CONTROLEACESSO") 'lembrando que CONTROLEACESSO é o campo da tua tabela onde tens o 0 ou 1'

END IF

 

IF rsUSUARIO("ATIVO") = FALSE THEN

rsUSUARIO.CLOSE

SET rsUSUARIO = NOTHING

RESPONSE.Redirect "erro.asp?erro=0003"

END IF

 

 

 

LOGIN = rsUSUARIO("LOGIN")

NOME = rsUSUARIO("NOME")

 

RESPONSE.Cookies("LOGIN_ACIONA") = LOGIN

IF TRIM(SENHA) = "123" THEN

RESPONSE.Redirect "senha.asp"

END IF

SQL = "UPDATE USUARIOS SET DTULTIMOACESSO = GETDATE() WHERE LOGIN = '" & TRIM(REQUEST.Cookies("LOGIN_ACIONA")) & "'"

SET rsDTACESSO = CONEX.EXECUTE(SQL)

 

RESPONSE.Redirect "default.asp"

 

rsDTACESSO.CLOSE

SET rsDTACESSO = NOTHING

%>

 

----

 

E a pagina da parte dos relatotios:----

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="conexao/conexao.asp" -->

<!--#include file="funcoes/funcoes_vbscript.asp" -->

<%

Set Conex = Server.Createobject("ADODB.Connection")

Conex.open PLANEJAMENTO_STRING

 

Session.LCID = 1046

 

IF TRIM(REQUEST.Cookies("LOGIN_ACIONA")) = "" THEN

RESPONSE.Redirect "erro.asp?erro=0001"

END IF

 

IF session("NOME_DIFICIL") = 1 THEN '// se for 1 mostra o relatorio total'

RESPONSE.WRITE("<!--#include file='relatoriototal.asp' -->") '// isso vai incluir a tua pagina com o relatorio total'

ELSE '// se não for 1, é poruqe é 0 e mostra o relatório geral'

RESPONSE.WRITE("<!--#include file='relatorio01.asp' -->") '// isso vai incluir a tua pagina com o relatorio geral'

END IF

 

 

SQL = "SELECT * FROM REGIONAIS ORDER BY DESCREGIONAL"

SET rsREGIONAIS = CONEX.EXECUTE(SQL)

IDREGIONAL = REQUEST.FORM("GEOGRAFIA")

'IF IDREGIONAL = "" THEN

'SIGLA = rsREGIONAIS("SIGLAREGIONAL")

'rsREGIONAIS.MOVEFIRST

'END IF

 

%>

 

<html>

<head>

<title>Gt technology - Sistema de Acompanhamento de Acionamentos</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="estilo/FORM.CSS" rel="stylesheet" type="text/css">

</head>

<body bgcolor="#E1E1E1" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table align="center">

<tr><td>

<!--#include file="cabecalho.asp"-->

<table width="771" height="290" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">

<form name="formulario" method="post" action="Consulta_exc.asp">

<tr><td width="10" height="15"> </td></tr>

<tr>

<td width="10"> </td>

<td width="191" valign="top"><!--#include file="menu.asp"--></td>

<td width="10"> </td>

<td width="560" valign="top"> <table cellpadding="0" cellspacing="0" width="100%" border="0">

<tr>

<td align="right" colspan="2"><b>Relatórios da Geografia: </b></td>

 

<td aligt = "left" colspan="2"><select name="geografia" onChange="CarregaForm()">

<option value =""> Todos</option>

<%WHILE NOT rsREGIONAIS.EOF%>

<option value="<%=rsREGIONAIS("IDREGIONAL")%>" <%IF CSTR(IDREGIONAL) = CSTR(rsREGIONAIS("IDREGIONAL")) THEN%>SELECTED<%END IF%>><%=rsREGIONAIS("DESCREGIONAL")%></option>

<%

IF CSTR(IDREGIONAL) = CSTR(rsREGIONAIS("IDREGIONAL")) THEN SIGLA = rsREGIONAIS("SIGLAREGIONAL")

rsREGIONAIS.MOVENEXT

WEND

SET rsREGIONAIS = NOTHING

%>

</select></td>

<td width="130"></td>

</tr>

<tr>

<td height="5" colspan="5"></td>

</tr>

<tr>

<td colspan= "2" align= "right"><b>Ano: </b></td>

 

<td colspan= "2" align = "left">

<%

ano_rel = request.form("ano")

'response.write cstr(numano)

'response.write cstr(IDREGIONAL) %>

<select name="ano" onChange="CarregaForm()">

<option value ="0"> Todos</option>

<% For i = 2006 to 2007 %>

<option value="<%=i%>" <%IF CINT(ANO_REL) = i THEN%>SELECTED<%END IF%>><%=i%></option>

<% Next %>

 

 

</select>

 

</td>

<td></td>

</tr>

<tr>

<td height="1" colspan="5"> </td>

</tr>

<tr>

 

<td align="center" colspan="5"><a href="relatorio01.asp?regional=<%=SIGLA%>&ano=<%=ano_rel%>"><img src="images/RELATORIO_01.gif" border="0"></a></td>

 

 

 

</tr>

<tr>

 

<td align="center" colspan="5">Relatório Geral<br>

de Acionamentos - Líder e Funcionários - <b><%=SIGLA%></b></td>

 

 

 

</tr>

 

<tr>

<td height="1" colspan="5"> </td>

</tr>

<tr>

 

<td align="center" colspan="5"><a href="relatoriototal.asp?regional=<%=SIGLA%>&ano=<%=ano_rel%>"><img src="images/RELATORIO_01.gif" border="0"></a></td>

 

 

 

</tr>

<tr>

 

<td align="center" colspan="5">Relatório Total<br>

de Acionamentos - Gerente e Coordenador - <b><%=SIGLA%></b></td>

 

 

 

</tr>

 

<%

COR = "#F0F0F0"

%>

 

 

</table></td>

</tr>

<tr><td><br></td></tr>

</form>

</table>

<!--#include file="rodape.asp"-->

</td></tr></table>

</body>

</html>

<script language="JavaScript">

function CarregaForm()

{

document.formulario.action = 'relatorios.asp';

document.formulario.submit();

}

</script>

 

-----

 

Ve se esta certo... a parte em negrito sao as partes que voce me passou...

Continuou a mesma coisa. todos podendo acessar os 2 relatorios.

[Filipe_Moraes 15]

hugo, você disse que tinha as paginas dos relatorios separadas, se você quer incluir uma pagina dentro da outra, para que você esta inserindo ela novamente? pelo que eu vi, você alem do include, ja tem os relatorios dentro da pagina, logo irá mostra os dois... assim não funciona, faça o seu relatorio geral numa pagina separada, com o html, designer e asp, tudo, e o relatorio total em outra pagina, e na pagina relatorios você coloca somente isso:

 

<html><head><title></title></head><body><%IF session("NOME_DIFICIL") = 1 THENRESPONSE.WRITE("<!--#include file='relatoriototal.asp' -->") ELSE '// se não for 1, é poruqe é 0 e mostra o relatório geral'RESPONSE.WRITE("<!--#include file='relatorio01.asp' -->")END IF%></body></html

Assim, qd ele entrar na pagina relatorios, vai mostrar o geral ou o total que esta numa pagina externa, assim, coloque as duas paginas que tens os relatorios (geral e total) no mesmo diretorio onde tens a pagina "relatorios.asp"