Estou Quase Lá

[mestre fyoda]

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 %>

[kiloko]

cara se você estiver preenchendo a senha e mesmo assim ele tá dando o erro verifica se o campo está com o nome senha conforme você colocou no request do form.

O ideal seria você mandar o a página do form de onde está vindo os dados

[Reginaldo ASP]

Provavelmente o Request.Form("senha") não está retornando nada.

Faz um teste colocando

Response.Write(Request.Form("senha"))

Response.End()

[pgmador]

CSN= Request.Form("confirmasenha")

neste caso está retornando vazio, e o seu BD não esta aceitando valor vazio para este campo