Ir para conteúdo
Fórum Script Brasil
  • 0

Erro Estranho


mestre fyoda

Pergunta

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 .

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

<!--#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")

[COLOR=red]Response.write  Request.Form("confirmasenha")
Response.End()[/COLOR]

Isso vai te mostrar se o confirma senha está carregando alguma coisa...

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...