Matar Um Conexão

[Guest - Jairo -]

Estou com um problema no site da intranet de um cliente.

Na tela de login do portal existem o campo de usuário e senha.

Quando o usuário insere o usuário e senha e tenta mudar a senha, é mostrada outra tela onde este altera sua senha.

O problema é que após a mudança de senha o sistema é validado tanto pela nova senha como pela antiga.

Na verdade o sistema está utilizando as duas conexões.

Só depois de alguns minutos que morre a sessão e a senha antiga perde sua validade.

Como matar esta conexão no Componente, pois já utilizei os comandos adoconn.Close e Set adoconn = Nothing e não resolveu o problema.

Obrigado.

[rodfraga]

Brother...Isso não seria melhor na seção de ASP?

[Guest - Jairo -]

Então cara, na página ASP já matei todas as session envolvidas e também matei as conexões.

Eu sei que existe alguma coisa que põe no componente e aborta a conexão.

Valeu

Jairo

[PiGmEu]

Então cara, na página ASP já matei todas as session envolvidas e também matei as conexões.

Eu sei que existe alguma coisa que põe no componente e aborta a conexão.

Valeu

Jairo

Ele quis dizer, q esse assunto caberia melhor na parte de ASP/ASP.net do forum:

o link é:

http://scriptbrasil.com.br/forum/index.php?showforum=2

[]´s

[William Rodrigues]

Também acredito que seja...

Vou mover o tópico prá lá

Abraços,

William Rodrigues

[ursolouco]

Estou com um problema no site da intranet de um cliente.

Na tela de login do portal existem o campo de usuário e senha.

Quando o usuário insere o usuário e senha e tenta mudar a senha, é mostrada outra tela onde este altera sua senha.

O problema é que após a mudança de senha o sistema é validado tanto pela nova senha como pela antiga.

Na verdade o sistema está utilizando as duas conexões.

Só depois de alguns minutos que morre a sessão e a senha antiga perde sua validade.

Como matar esta conexão no Componente, pois já utilizei os comandos adoconn.Close e Set adoconn = Nothing e não resolveu o problema.

Obrigado.

Cadê o código pra gente lhe ajudar ?

[Guest Guest]

Estou com um problema no site da intranet de um cliente.

Na tela de login do portal existem o campo de usuário e senha.

Quando o usuário insere o usuário e senha e tenta mudar a senha, é mostrada outra tela onde este altera sua senha.

O problema é que após a mudança de senha o sistema é validado tanto pela nova senha como pela antiga.

Na verdade o sistema está utilizando as duas conexões.

Só depois de alguns minutos que morre a sessão e a senha antiga perde sua validade.

Como matar esta conexão no Componente, pois já utilizei os comandos adoconn.Close e Set adoconn = Nothing e não resolveu o problema.

Obrigado.

Cadê o código pra gente lhe ajudar ?

<%@ Language=VBScript %>

<%

Response.Expires = -1000

dim strNovaSenha

response.buffer=true

strNovaSenha = Request.Form("txtNovaSenha")

lsNomeServ = Ucase(Request.ServerVariables("SERVER_NAME"))

Set objSegurancaAcesso = Server.CreateObject("SegurancaAcessoFW.clsSegurancaAcesso")

strNovaSenha = Request.Form("txtNovaSenha")

strConfirmaSenha = Request.Form("txtConfirmaSenha")

Set AdoConnSeg = Server.CreateObject("ADODB.Connection")

Set AdoCommSeg = Server.CreateObject("ADODB.Command")

strStringConexao = "UID=" & Session("strUser") & ";PWD=" & Session("strSenha") & ";driver=" _

& "{Microsoft ODBC para Oracle};SERVER=" & Session("HostStringSeg") & "; OLE DB Services = -2;"

AdoConnSeg.Open strStringConexao

AdoCommSeg.ActiveConnection = AdoConnSeg

For i2 = 0 To 10 'InstancesI

if "dwpa01_hom3" <> "" then

varRetorno = objSegurancaAcesso.AlteraSenha(Session("strUser"), _

Session("strSenhaOrig"), _

strConfirmaSenha, _

"dwpa01_hom3")

' Response.Write varRetorno(0)

'********* Inicio do tratamento de erro *********

'if varRetorno(0) = "9999" then

If varRetorno(0) = "1017" or varRetorno(0) = "-3003" Then

' Response.Write "quarta " & Session("strUser") & " - " & Session("strSenhaOrig") & " - " & Instances(i2) & " - " & strConfirmaSenha & " - " 'Usuario Invalido

InstancesI = UBound(InstancesAlteradas)

For i3 = 0 To InstancesI

varRetorno = objSegurancaAcesso.AlteraSenha(Session("strUser"), _

strConfirmaSenha, _

Session("strSenhaOrig"), _

"dwpa01_hom3")

next

'Response.end

' response.redirect "http://" + Ucase(Request.ServerVariables("SERVER_NAME")) + "/if10v2/MSGERRO/MensagemPadrao.asp?MSG=Usuário+ou+Senha+inválida.+Digite+Novamente./" & Instances(0) & "/./" & Instances(1) & "/./" & " &URL=http://" & Ucase(Request.ServerVariables("SERVER_NAME")) & "/if10v2/default.htm&Instance" & Instances(i2)

response.redirect "http://" + Ucase(Request.ServerVariables("SERVER_NAME")) + "/if10v2/MSGERRO/MensagemPadrao.asp?MSG=Usuário+ou+Senha+inválida.+Verifique+se+a+digitação+está+correta.Contacte+o+Naus+para+maiores+detalhes. Instance "& Instances(i2) & "&URL=http://" & Ucase(Request.ServerVariables("SERVER_NAME")) & "/if10v2/default.htm"

blnError = True

ElseIf varRetorno(0) = "1" And Left(varRetorno(1),4) = "02 -" Then 'Chr Senha Invalida

InstancesI = UBound(InstancesAlteradas)

For i3 = 0 To InstancesI

varRetorno = objSegurancaAcesso.AlteraSenha(Session("strUser"), _

strConfirmaSenha, _

Session("strSenhaOrig"), _

"dwpa01_hom3")

next

'response.redirect "http://" + Ucase(Request.ServerVariables("SERVER_NAME")) + "/if10v2/MSGERRO/MensagemPadrao.asp?MSG=Usuário+ou+Senha+inválida.+Digite+Novamente." & Session("strSenhaOrig") & "&URL=http://" & Ucase(Request.ServerVariables("SERVER_NAME")) & "/if10v2/default.htm&Instance" & Instances(i2)

response.redirect "http://" + Ucase(Request.ServerVariables("SERVER_NAME")) + "/if10v2/MSGERRO/MensagemPadrao.asp?MSG=Senha+inválida.+A+senha+deve+conter+no+mínimo+6+caracteres+e+no+máximo+15.+Os+caracteres+possíveis+são+de+A-Z+,+a-z+e+0-9.+Verifique+se+a+digitação+está+correta."& "&URL=http://" & Ucase(Request.ServerVariables("SERVER_NAME")) & "/if10v2/default.htm"

blnError = True

ElseIF varRetorno(0) = "1" And Left(varRetorno(1),4) = "01 -" Then 'Chr User Invalido

InstancesI = UBound(InstancesAlteradas)

For i3 = 0 To InstancesI

varRetorno = objSegurancaAcesso.AlteraSenha(Session("strUser"), _

strConfirmaSenha, _

Session("strSenhaOrig"), _

"dwpa01_hom3")

next

response.redirect "http://" + Ucase(Request.ServerVariables("SERVER_NAME")) + "/if10v2/MSGERRO/MensagemPadrao.asp?MSG=O+usuário+fornecido+não+é+válido.&URL=http://" & Ucase(Request.ServerVariables("SERVER_NAME")) & "/if10v2/default.htm"

blnError = True

ElseIF varRetorno(0) = "2" And Left(varRetorno(1),4) = "02 -" Then 'Chr Nova Senha Invalida

InstancesI = UBound(InstancesAlteradas)

For i3 = 0 To InstancesI

varRetorno = objSegurancaAcesso.AlteraSenha(Session("strUser"), _

strConfirmaSenha, _

Session("strSenhaOrig"), _

"dwpa01_hom3")

next

response.redirect "http://" + Ucase(Request.ServerVariables("SERVER_NAME")) + "/if10v2/MSGERRO/MensagemPadrao.asp?MSG=Nova+senha+fornecida+não+é+válida.&URL=http://" & Ucase(Request.ServerVariables("SERVER_NAME")) & "/if10v2/default.htm"

blnError = True

ElseIF varRetorno(0) = "12154" Then 'Chr Nova Senha Invalida

InstancesI = UBound(InstancesAlteradas)

For i3 = 0 To InstancesI

varRetorno = objSegurancaAcesso.AlteraSenha(Session("strUser"), _

strConfirmaSenha, _

Session("strSenhaOrig"), _

"dwpa01_hom3")

next

response.redirect "http://" + Ucase(Request.ServerVariables("SERVER_NAME")) + "/if10v2/MSGERRO/MensagemPadrao.asp?MSG=.&URL=http://" & Ucase(Request.ServerVariables("SERVER_NAME")) & "/if10v2/default.htm"

blnError = True

ElseIF varRetorno(0) <> "0" Then 'Qualquer outro tipo de erro

InstancesI = UBound(InstancesAlteradas)

For i3 = 0 To InstancesI

varRetorno = objSegurancaAcesso.AlteraSenha(Session("strUser"), _

strConfirmaSenha, _

Session("strSenhaOrig"), _

"dwpa01_hom3")

next

response.redirect "http://" + Ucase(Request.ServerVariables("SERVER_NAME")) + "/if10v2/MSGERRO/MensagemPadrao.asp?MSG=Ocorreu+um+erro+na+alteração+da+senha.+++++++++++++Faça+alteração+novamente.&URL=http://" & Ucase(Request.ServerVariables("SERVER_NAME")) & "/if10v2/default.htm"

blnError = True

End if

'end if

' Response.End

dim retorno

redim retorno(10)

retorno(i2)=varRetorno(0)

redim preserve InstancesAlteradas(i2)

' InstancesAlteradas(i2)=Instances(i2)

End If

'******* Fim tratamento de erro

next

' Mata a conexão

adoconnseg.Close

Set objSegurancaAcesso = Nothing

set adoconnseg = nothing

set adocommseg = nothing

set objmenu = nothing

Session.Abandon

Response.Redirect "../validauser/Autentica.asp?"

End If

'Finaliza Objeto---------------------------------------------------------------------------------

Set objSegurancaAcesso = Nothing