Me Ajudem Com O Script

[mestre fyoda]

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")&"'")
%>

[webdeveloper]

Procure fazer um teste para verificar se todos os campos estão preenchidos, se não estiverem moste uma mensagem, caso contrário rode o script.

[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 .

[Espartaco]

Você pode abrir o banco de dados no modo estrutura, selecionar o campo e no item Permitir Comprimento Zero, coloque SIM

[[ GuTo ]]

Putz cara, lá na FM eu já respondi sua dúvida fenix