Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Alberto Silva

Erro no direcionamento dentro da sessão

Por , em ASP Clássico

Recommended Posts

Alberto Silva    0

Alberto Silva
Postado

Olá colegas,

 

Estou enroscado num problema o qual não consigo solucioná-lo, então peço a ajuda de vocês. Não vou postar todo o código aqui pois não há erro de sintaxe aparentemente tratá-se de um erro de estrutura ou algum controle.

 

CODE

<%if session("Sessao") <> "Entrou" then %>

<script language="javascript">

alert("Acesso negado! CNPJ ou Senha inválidos.")

{

history.back();

}

</script>

<%else%>

<table border="0" width="100%" cellspacing="0" cellpadding="0">

<tr>

<td width="100%" height="20" bgcolor="#0477bb"><p align="center"><b><font face="Verdana" size="2" color="#FFFFFF">Área de Acesso Exclusiva do Cliente</font></b></td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td width="100%"><font face="Verdana" size="1"><b>Bem-vindo <%=ucase(session("Cliente"))%> (<a href="java script:Encerra()">Encerrar Sessão</a>)</b></font></td>

</tr>

<tr>

<td height="20"> </td>

</tr>

<tr>

<td height="20" bgcolor="#FF0000"><div align="center"><font face="Verdana" size="1" color="#FFFFFF"><b>Situação: <%=ucase(session("Situacao"))%>      Saldo: R$ <%=formatnumber(session("Saldo"),2)%>      Limite de Crédito: R$ <%=formatnumber(session("Credito"),2)%></b></font></div></td>

</tr>

<tr>

<td width="100%" height="12"><font face="Verdana" size="1"><b> </b></font></td>

</tr>

<tr>

<td width="100%" bgcolor="#FFFFFF"><p align="left"><b><font face="Verdana" size="1"> <img src="imagens/seta_red.jpg" width="6" height="6" border="0"> <a href="#">Geral</a>     <img src="imagens/seta_red.jpg" width="6" height="6" border="0"> <a href="#">Contato</a>     <img src="imagens/seta_red.jpg" width="6" height="6" border="0"> <a href="#">Logradouros</a></font></b><b><font face="Verdana" size="1">     <img src="imagens/seta_red.jpg" width="6" height="6" border="0"> <a href="#">Comercial</a>     <img src="imagens/seta_red.jpg" width="6" height="6" border="0"> <a href="#">Bancário</a>     <img src="imagens/seta_red.jpg" width="6" height="6" border="0"> <a href="Autentica_Cliente_Cadastro.asp?Rotina=AlteraSenha"> Altera Senha</a></font></b></p></td>

</tr>

<%if request.querystring("Rotina") = "AlteraSenha" then%>

 

<%end if%>

 

 

<%end if%>

 

A session("Sessao") é igual a "Entrou" então na primeira vez o sistema carrega a página perfeitamente. Agora, quando dentro desta página o usuário seleciona "Altera Senha" que deveria direcioná-lo para "Autentica_Cliente_Cadastro.asp?Rotina=AlteraSenha" que está dentro do mesmo IF aparece a mensagem "Acesso negado! CNPJ ou Senha inválidos." como se a session("Sessao") fosse diferente de "Entrou" e não executa o que está abaixo da instrução <%if request.querystring("Rotina") = "AlteraSenha" then%>

 

Agradeço pela ajuda,

 

Um abraço.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

aconselho você verificar o valor que tem na sessão.

feito isso minha outra recomendação é fazer em ASP o redirecionamento para a ultima página pois da forma que está não tem uma ação que faça o javascript retornar

 

aproveite para ver este topico

http://forum.imasters.com.br/index.php?showtopic=266537

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alberto Silva    0

Alberto Silva
Postado

aconselho você verificar o valor que tem na sessão.

feito isso minha outra recomendação é fazer em ASP o redirecionamento para a ultima página pois da forma que está não tem uma ação que faça o javascript retornar

 

aproveite para ver este topico

http://forum.imasters.com.br/index.php?showtopic=266537

Jonathan, obrigado pela ajuda!

 

O valor da sessão é "Entrou", eu verifiquei. Eu não estou redirecionando através do javascript e sim

CODE
<a href="Autentica_Cliente_Cadastro.asp?Rotina=AlteraSenha"> Altera Senha</a>
Eu havia visitado o tópico que você mencionou e também não consegui chegar a uma solução.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alberto Silva    0

Alberto Silva
Postado

aconselho você verificar o valor que tem na sessão.

feito isso minha outra recomendação é fazer em ASP o redirecionamento para a ultima página pois da forma que está não tem uma ação que faça o javascript retornar

 

aproveite para ver este topico

http://forum.imasters.com.br/index.php?showtopic=266537

Jonathan, obrigado pela ajuda!

 

O valor da sessão é "Entrou", eu verifiquei. Eu não estou redirecionando através do javascript e sim

CODE
<a href="Autentica_Cliente_Cadastro.asp?Rotina=AlteraSenha"> Altera Senha</a>
Eu havia visitado o tópico que você mencionou e também não consegui chegar a uma solução.

 

Bom, vou postar o código com mais detalhes para ver se fica mais fácil me ajudarem pois ainda não consegui resolver o problema.

 

CODE
<%

if CStr(session("Sessao")) <> "Entrou" then

rsClientes.Open "SELECT * FROM Clientes WHERE CNPJ ='" & session("CNPJ") & "' and Senha = '" & session("Senha") & "'", Conexao

if rsClientes.eof <> true then

session("Sessao") = "Entrou"

session("Cliente") = rsClientes("Razao_Social")

session("Situacao") = rsClientes("Situacao")

session("Saldo") = rsClientes("Saldo")

session("Credito") = rsClientes("Limite_Credito")

session("ID") = rsclientes("ID")

session("Vendedor") = rsClientes("Vendedor")

session("Pagamento") = rsClientes("Pagamento")

session("Cadastro") = rsClientes("Data_Cadastro")

session("Alteracao") = rsClientes("Ultima_Alteracao")

session("Compra") = rsClientes("Ultima_Compra")

session("Observacao") = rsClientes("Observacao")

rsVendedores.Open "SELECT * FROM Vendedores WHERE NomeAbreviado ='" & session("Vendedor") & "'", Conexao

if rsVendedores.eof <> true then

session("Loja") = rsVendedores("Loja")

end if

end if

call fecha_conexao()

set rsClientes = nothing

set rsVendedores = nothing

else

session("Sessao") = "NaoEntrou"

end if%>

<%if CStr(session("Sessao")) <> "Entrou" then %>

<script language="javascript">

alert("Acesso negado! CNPJ ou Senha inválidos.")

{

history.back();

}

</script>

<%else%>

<table border="0" width="100%" cellspacing="0" cellpadding="0">

<tr>

<td width="100%" height="20" bgcolor="#0477bb"><p align="center"><b><font face="Verdana" size="2" color="#FFFFFF">Área de Acesso Exclusiva do Cliente</font></b></td>

</tr>

<tr>

<td> </td>

</tr>

<tr>

<td width="100%"><font face="Verdana" size="1"><b>Bem-vindo <%=ucase(session("Cliente"))%> (<a href="java script:Encerra()">Encerrar Sessão</a>)</b></font></td>

</tr>

<tr>

<td height="20"> </td>

</tr>

<tr>

<td height="20" bgcolor="#FF0000"><div align="center"><font face="Verdana" size="1" color="#FFFFFF"><b>Situação: <%=ucase(session("Situacao"))%>      Saldo: R$ <%=formatnumber(session("Saldo"),2)%>      Limite de Crédito: R$ <%=formatnumber(session("Credito"),2)%></b></font></div></td>

</tr>

<tr>

<td width="100%" height="12"><font face="Verdana" size="1"><b> </b></font></td>

</tr>

<tr>

<td width="100%" bgcolor="#FFFFFF"><p align="left"><b><font face="Verdana" size="1"> <img src="imagens/seta_red.jpg" width="6" height="6" border="0"> <a href="#">Geral</a>     <img src="imagens/seta_red.jpg" width="6" height="6" border="0"> <a href="#">Contato</a>     <img src="imagens/seta_red.jpg" width="6" height="6" border="0"> <a href="#">Logradouros</a></font></b><b><font face="Verdana" size="1">     <img src="imagens/seta_red.jpg" width="6" height="6" border="0"> <a href="#">Comercial</a>     <img src="imagens/seta_red.jpg" width="6" height="6" border="0"> <a href="#">Bancário</a>     <img src="imagens/seta_red.jpg" width="6" height="6" border="0"> <a href="Autentica_Cliente_Cadastro.asp?Rotina=AlteraSenha"> Alterar Senha</a></font></b></p></td>

</tr>

<tr>

<td bgcolor="#FFFFFF"> </td>

</tr>

</table>

 

<table border="0" width="100%" cellspacing="0" cellpadding="0">

<tr>

<td width="100%" height="134" style="border: 1 solid #808080">

 

<table border="0" width="100%" cellspacing="4" cellpadding="0">

<tr>

<td width="26%"><div align="left"><font face="Verdana" size="1"><b>ID:</b></font></div></td>

<td width="74%"><font face="Verdana" size="1"><%=session("ID")%></font></td>

</tr>

<tr>

<td width="26%"><div align="left"><font face="Verdana" size="1"><b>Loja:</b></font></div></td>

<td width="74%"><font face="Verdana" size="1"><%=session("Loja")%></font></td>

</tr>

<tr>

<td width="26%"><div align="left"><font face="Verdana" size="1"><b>Vendedor(a):</b></font></div></td>

<td width="74%"><font face="Verdana" size="1"><%=session("Vendedor")%></font></td>

</tr>

<tr>

<td><div align="left"><font face="Verdana" size="1"><b>Forma de Pagamento:</b></font></div></td>

<td><font face="Verdana" size="1"><%=session("Pagamento")%></font></td>

</tr>

<tr>

<td><div align="left"><font face="Verdana" size="1"><b>Data do Cadastro:</b></font></div></td>

<td><font face="Verdana" size="1"><%=session("Cadastro")%></font></td>

</tr>

<tr>

<td><div align="left"><font face="Verdana" size="1"><b>Última Alteração:</b></font></div></td>

<td><font face="Verdana" size="1"><%=session("Alteracao")%></font></td>

</tr>

<tr>

<td height="12"><div align="left"><font face="Verdana" size="1"><b>Última Compra:</b></font></div></td>

<td><font face="Verdana" size="1"><%=session("Compra")%></font></td>

</tr>

<tr>

<td height="12"><div align="left"><font face="Verdana" size="1"><b>Observação:</b></font></div></td>

<td><font face="Verdana" size="1"><%=session("Observacao")%></font></td>

</tr>

</table>

</td>

</tr>

</table>

 

<%if request.querystring("Rotina") = "AlteraSenha" then%>

<table border="0" width="100%" cellspacing="0" cellpadding="0">

<tr>

<td width="100%" bgcolor="#0477bb"><p align="center"><font size="2" face="Verdana" color="#FFFFFF"><b>Alterar Senha</b></font></p></td>

</tr>

<tr>

<td width="100%" style="border: 1 solid #808080">

<form name="Senha" method="POST" action="Autentica_Cliente_Cadastro.asp?Envia=NovaSenha">

<table border="0" width="100%" cellspacing="4" cellpadding="0">

<tr>

<td width="24%"><p align="right"><b><font size="1" face="Verdana">Senha Atual:</font></b></td>

<td width="76%"><font face="Verdana" size="1">

<input name="atual" type="password" style="font-family: Verdana; font-size: 8pt; background-color: #E8E7E1" size="12" maxlength="12">

</font></td>

</tr>

<tr>

<td width="24%"><p align="right"><font face="Verdana" size="1"><b>Nova Senha:</b></font></td>

<td width="76%"><font face="Verdana" size="1">

<input name="Nova" type="password" id="Nova" style="font-family: Verdana; font-size: 8pt; background-color: #E8E7E1" size="12" maxlength="12">

</font></td>

</tr>

<tr>

<td width="24%"><p align="right"><font face="Verdana" size="1"><b>Confirme a

Nova Senha:</b></font></td>

<td width="76%"><font face="Verdana" size="1">

<input name="Confirma" type="password" id="Confirma" style="font-family: Verdana; font-size: 8pt; background-color: #E8E7E1" size="12" maxlength="12">

</font></td>

</tr>

<tr>

<td colspan="2"><p align="center">

<input type="submit" value="ENVIAR" name="B1" style="background-color: #0477bb; color: #FFFFFF; font-family: Verdana; font-size: 8pt; font-weight: bold;">

</td>

</tr>

</table>

</form></td>

</tr>

</table>

<%end if

 

if request.querystring("Envia") = "NovaSenha" then

'Setando conexao

set rsClientes=server.createobject("adodb.RecordSet")

 

'Abrindo conexao

Call abre_conexao(ConnString,Conexao)

rsClientes.Open "SELECT * FROM Clientes WHERE CNPJ ='" & trim(session("CNPJ")) & "' and Senha = '" & trim(request.form("atual")) & "'", Conexao

if rsClientes.eof <> true then

if request.form("nova") <> request.form("confirma") then

%><script language="javascript">

alert("As Senhas não coincidem.")

{

document.Senha.Nova.focus()();

}

</script><%

else

Conexao.EXECUTE "UPDATE Clientes SET Senha = '" & request.form("Nova") & "' WHERE CNPJ ='" & session("CNPJ") & "' "

%><script language="javascript">

alert("Senha Alterada com sucesso!")

{

location.href = "Autentica_Cliente_Cadastro.asp"

}

</script>

<%end if

else

%><script language="javascript">

alert("Senha atual incorreta")

{

document.Senha.Nova.focus()();

}

</script><%

end if

call fecha_conexao()

set rsUsuarios = nothing

end if

end if%>

Agradeço mais uma vez,

Abraço.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito