fenix
-
Total de itens
6 -
Registro em
-
Última visita
Tudo que fenix postou
-
ADODB.Field erro '80020009' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /clanevil/alterar_cadastro.asp, line 0 Por favor , poderiam me passar o codigo corrigido . CODE <!--#include file="conectar.asp"--> <% AbreConexao If Request.Form("enviado") = "sim" Then login = Replace(Request.Form("login"), "'", "/") senha = Replace(Request.Form("senha"), "'", "/") nsenha = Replace(Request.Form("nsenha"), "'", "/") c_senha = Replace(Request.Form("c_senha"), "'", "/") email = Replace(Request.Form("email"), "'", "/") nome = Replace(Request.Form("nome"), "'", "/") snome = Replace(Request.Form("snome"), "'", "/") sexo = Replace(Request.Form("sexo"), "'", "/") Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE senha = '"&senha&"'") If not RS.EOF Then Response.Write "Senha Incorreta!<BR><a href=alterar.asp>Voltar</a>" Else Conexao.Execute("UPDATE usuarios SET login = '"&login&"', senha = '"&senha&"', email = '"&email&"', nome = '"&nome&"', snome = '"&snome&"', sexo = '"&sexo&"' WHERE senha = '"&senha&"'") Response.Write "Dados alterados" End If Else Set dados = Conexao.Execute("SELECT * FROM usuarios WHERE senha = '"&senha&"'")%> <form method="POST" action="alterar.asp"> <input type="hidden" name="enviado" value="sim"> <p align="center">Nome: <input type="text" name="nome" value="<%=dados("nome")%>" size="20"><BR> Sobre Nome: <input type="text" name="snome" value="<%=dados("snome")%>" size="20"><BR> Email: <input type="text" name="email" value="<%=dados("email")%>" size="20"><BR> Login: <input type="text" name="login" value="<%=dados("login")%>" size="20"><BR> Senha Atual: <input type="password" name="senha" value="<%=dados("senha")%>" size="20"><BR> Nova Senha: <input type="password" name="nsenha" value="<%=dados("nsenha")%>" size="20"><BR> Confirme a Senha: <input type="password" name="c_senha" value="<%=dados("c_senha")%>" size="20"><BR> Sexo: <input type="text" name="sexo" value="<%=dados("sexo")%>" size="20"><BR> <input type="submit" value="Alterar"> </form> <% End If FechaConexao %>
-
o erro é esse : ADODB.Field erro '80020009' alterar.asp <!--#include file="restrito.asp"--> <!--#include file="conectar.asp"--> <% AbreConexao If Request.Form("enviado") = "sim" Then login = Replace(Request.Form("login"), "'", "/") senha = Replace(Request.Form("senha"), "'", "/") senhanova = Replace(Request.Form("senhanova"), "'", "/") c_senha = Replace(Request.Form("c_senha"), "'", "/") nome = Replace(Request.Form("nome"), "'", "/") snome = Replace(Request.Form("snome"), "'", "/") email = Replace(Request.Form("email"), "'", "/") sexo = Replace(Request.Form("sexo"), "'", "/") Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE senha = '"&senha&"'") If senha <> Session("senha") Then Response.Write "Este login já está cadastrado!<BR><a href=alterar.asp>Voltar</a>" Else Conexao.Execute("UPDATE usuarios SET nome = '"&nome&"', snome = '"&snome&"' , email = '"&email&"', sexo = '"&sexo&"',login = '"&login&"', senha = '"&senhanova&"' WHERE senha = '"&Session("senha")&"'") Response.Write "Dados alterados" End If Else Set rs = Conexao.Execute("SELECT * FROM usuarios WHERE senha = '"&Session("senha")&"'")%> <form method="POST" action="alterar.asp"> <input type="hidden" name="enviado" value="sim"> <body bgcolor="#C0C0C0"> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="339" height="242" id="AutoNumber1" bgcolor="#C0C0C0"> <tr> <td width="339" height="58"> <fieldset> <p align="center"><font face="Tahoma"><b>Cadastro de Usuários</b></font> </p> </center> <p><b><font size="2" face="Verdana"> Nome: </font></b><font face="Verdana"><b><font size="2"> </font><input type="text" name="nome" value="<%=rs("nome")%>" size="20" maxlength="20"></b></font></p> <p><b><font size="2" face="Verdana"> Sobre Nome: </font></b><font face="Verdana"><b> <input type="text" name="snome" value="<%=rs("snome")%>" size="20" maxlength="20"></b></font></p> <p><b><font size="2" face="Verdana"> E-mail: </font> </b><font face="Verdana"><b> <input type="text" name="email" value="<%=rs("email")%>" size="20" maxlength="40"></b></font></p> <p><b><font size="2" face="Verdana"> Sexo: <select disabled value="<%=rs("sexo")%>" size="1" name="sexo"> <option>---( Escolha um Sexo)---</option> <option value="masculino">Masculino</option> <option value="feminino">Feminino</option> <option value="Lesbica">Lesbica</option> <option value="Gay">Gay</option> </select></font></b></p> <b><font size="2" face="Verdana"> Login: </font></b> <font face="Verdana"><b> <input type="text" disabled name="login" size="20" maxlength="40" value="<%=rs("login")%>"></b></font> <p> <b><font size="2" face="Verdana"> Senha Atual: </font></b> <font face="Verdana"><b> <input type="text" name="senha" size="20" maxlength="40"></b></font> </p> <p><b><font size="2" face="Verdana"> Senha: </font></b><font face="Verdana"><b> <input type="password" name="senhanova" size="20" maxlength="8"></b></font></p> <p><b><font size="2" face="Verdana"> Confirme a senha: </font></b><font face="Verdana"><b> <input type="password" name="c_senha" size="20" maxlength="8"></b></font></p> <p align="center"> <input type="submit" value="Alterar"> </form> <% End If FechaConexao %>
-
Eu tenho meu script de alterar cadastros , para alterar a senha eu teria 2 campos : O campo de Nova Senha e o Confirma Senha , como faço para que a nova senha fique gravada no bd , dentro do bd o campo se chama senha . Observação : Os campos dos formularios são : Senha : senha atual Nova Senha : Nova senha que o usuario ira escolher Confirmar Senha : Ira confirmar o campo Nova Senha
-
to presizando um tutorial de alterar.php e de admin tambem . me ajuda .
-
alguém poderia me passar um script de alterar.asp que tenha uma verificação de senha , se a senha etiver correta ele pode alterar qualquer dados , se não estiver não pode alterar nada .
-
alguém poderia me passar um script de Cadastro , login , alterar dados , admin . Por favor .