mestre fyoda

mas nesse caso é opcional , se o usuario quiser ele pode não preencher o campo de nova senha , mas se alterar outro campo dá esse erro .

QUal é o comando para verificar se existe um determinado usuario no SQL . Sou iniciante . me ajudem .

O Erro é o seguinte : Microsoft OLE DB Provider for ODBC Drivers erro '80004005' [Microsoft][Driver ODBC para Microsoft Access] O campo 'usuarios.senha' não pode ser uma seqüência de caracteres de comprimento nulo. /clanevil/alterar.asp, line 28 ESSE ERRO DÁ POR QUE O USUARIO NÃO DIGITA NADA NO CAMPO NOVA SENHA E CONFIRMA SENHA , MAS SE ELE MODIFICAR QUALQUER OUTRO CAMPO E DEIXAR OS CAMPOS DE NOVA SENHA E CONFIRMA SENHA VAZIOS DA ESSE ERRO . alguém PODERIA ME AJUDAR A CORRIGIR ESSE SCRIPT POR FAVOR . <!--#include file="restrito.asp"--> <!--#include file="conectar.asp"--> <% AbreConexao If Request.Form("enviado") = "sim" Then nome = Replace(Request.Form("nome"), "'", "/") sobrenome = Replace(Request.Form("sobrenome"), "'", "/") email = Replace(Request.Form("email"), "'", "/") MSN = Replace(Request.Form("MSN"), "'", "/") login = Replace(Request.Form("login"), "'", "/") senha = Replace(Request.Form("senha"), "'", "/") confirmasenha= Request.Form("confirmasenha") Set rs = Conexao.Execute("SELECT * FROM usuarios WHERE senha = '"&senha&"'") if not rs.EOF then If Request.Form("novasenha") <> Request.Form("confirmasenha") Then Response.Write "<font face=Verdana size=1><center>Campo Nova Senha e Confirmar Senha estão diferentes <BR><br><a href=alterar.asp>Voltar</a></center></font>" Else Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&login&"'") If not RS.EOF AND login <> Session("login") Then Response.Write "<font face=Verdana size=1><center>Este login já está cadastrado! <BR><br><a href=alterar.asp>Voltar</a></center></font>" Else Conexao.Execute("UPDATE usuarios SET login = '"&login&"', senha = '"&confirmasenha&"', nome = '"&nome&"', sobrenome = '"&sobrenome&"', MSN = '"&MSN&"', email = '"&email&"' WHERE login = '"&Session("login")&"'") Response.Write("<font face=Verdana size=1><center>Dados alterados com sucesso<br><br><b>Redirecionando ...</b></font></center>") Response.Write("<meta http-equiv=refresh content=2;URL=menu.asp>") End If END IF Else Response.Write("Digite corretamente a senha") END IF Else Set dados = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&Session("login")&"'") %>

O que você me sugere para concertar o erro . Me passe o codigo correto por favor , e o porque do codigo. Grato .

O erro é o seguinte : Microsoft OLE DB Provider for ODBC Drivers erro '80004005' [Microsoft][Driver ODBC para Microsoft Access] O campo 'usuarios.senha' não pode ser uma seqüência de caracteres de comprimento nulo. /clanevil/alterar.asp, line 28 Esse é o codigo : <!--#include file="restrito.asp"--> <!--#include file="conectar.asp"--> <% AbreConexao If Request.Form("enviado") = "sim" Then nome = Replace(Request.Form("nome"), "'", "/") sobrenome = Replace(Request.Form("sobrenome"), "'", "/") email = Replace(Request.Form("email"), "'", "/") MSN = Replace(Request.Form("MSN"), "'", "/") login = Replace(Request.Form("login"), "'", "/") senha = Replace(Request.Form("senha"), "'", "/") confirmasenha= Request.Form("confirmasenha") Set rs = Conexao.Execute("SELECT * FROM usuarios WHERE senha = '"&senha&"'") if not rs.EOF then If Request.Form("novasenha") <> Request.Form("confirmasenha") Then Response.Write "<font face=Verdana size=1><center>Campo Nova Senha e Confirmar Senha estão diferentes <BR><br><a href=alterar.asp>Voltar</a></center></font>" Else Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&login&"'") If not RS.EOF AND login <> Session("login") Then Response.Write "<font face=Verdana size=1><center>Este login já está cadastrado! <BR><br><a href=alterar.asp>Voltar</a></center></font>" Else Conexao.Execute("UPDATE usuarios SET login = '"&login&"', senha = '"&confirmasenha&"', nome = '"&nome&"', sobrenome = '"&sobrenome&"', MSN = '"&MSN&"', email = '"&email&"' WHERE login = '"&Session("login")&"'") Response.Write("<font face=Verdana size=1><center>Dados alterados com sucesso<br><br><b>Redirecionando ...</b></font></center>") Response.Write("<meta http-equiv=refresh content=2;URL=menu.asp>") End If END IF Else Response.Write("Digite corretamente a senha") END IF Else Set dados = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&Session("login")&"'") %> <% END IF %> Esse erro é dado quando eu deixo de alterar a minha senha . alguém poderia corrigir meu erro .

Esta dando o seguinte erro : Microsoft OLE DB Provider for ODBC Drivers erro '80004005' [Microsoft][Driver ODBC para Microsoft Access] O campo 'usuarios.senha' não pode ser uma seqüência de caracteres de comprimento nulo. /clanevil/alterar.asp, line 31 O script é esse : <!--#include file="restrito.asp"--> <!--#include file="conectar.asp"--> <% AbreConexao If Request.Form("enviado") = "sim" Then nome = Replace(Request.Form("nome"), "'", "/") sobrenome = Replace(Request.Form("sobrenome"), "'", "/") email = Replace(Request.Form("email"), "'", "/") MSN = Replace(Request.Form("MSN"), "'", "/") login = Replace(Request.Form("login"), "'", "/") senha = Replace(Request.Form("senha"), "'", "/") CSN= Request.Form("confirmasenha") novasenha=Request.Form("novasenha") Set rs = Conexao.Execute("SELECT * FROM usuarios WHERE senha = '"&senha&"'") if rs.EOF then Response.Write("<center><font face=Verdana size=1>Senha Incorreta<BR><BR><a href=javascript:history.go(-1)>Voltar </font></a></center>") else If Request.Form("novasenha") <> Request.Form("confirmasenha") Then Response.Write("<center><font face=Verdana size=1> O campo Confirmar Senha está diferente do campo senha <BR><BR><a href=javascript:history.go(-1)>Voltar </font></a></center>") Else Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&login&"'") If not RS.EOF AND login <> Session("login") Then Response.Write "<font face=Verdana size=1><center>Este login já está cadastrado! <BR><br><a href=alterar.asp>Voltar</a></center></font>" Else Conexao.Execute("UPDATE usuarios SET senha = '"&CSN&"' , login = '"&login&"', nome = '"&nome&"', sobrenome = '"&sobrenome&"', MSN = '"&MSN&"', email = '"&email&"' WHERE login = '"&Session("login")&"'") Response.Write("<font face=Verdana size=1><center>Dados alterados com sucesso<br><br><b>Redirecionando ...</b></font></center>") Response.Write("<meta http-equiv=refresh content=2;URL=menu.asp>") End If END IF END IF Else Set dados = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&Session("login")&"'") %> <% END IF %>

Gostaria que vocês me dessem uma ajuda passando um codigo fonte de lembrar senha . user password email

Hospedagem Gratuita com Global Asa , por favor me ajudem .