Erro No Meu Script De Update

[mestre fyoda]

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: ''

/clanevil/alterar.asp, line 37

Poderiam me passor o codigo corrigido e com explicação od erro . Obrigado .

<!--#include file="restrito.asp"-->

<!--#include file="conn.asp"-->

<%

If Request.Form("enviado") = "sim" Then

login = Replace(Request.Form("login"), "'", "/")

pass = Replace(Request.Form("pass"), "'", "/")

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"), "'", "/")

login = Request.Cookies("login")

sql = "SELECT senha FROM usuarios WHERE login="&login&""

sql = "UPDATE usuarios SET nome='"&Request.Form("nome")&"', email='"&Request.Form("email")&"', snome='"&Request.Form("snome")&"', senha='"&Request.Form("nsenha")&"', login='"&Request.Form("login")&"', sexo='"&Request.Form("sexo")&"' WHERE login = '"&login&"'"

Conexao.Execute(Sql)

Else

%>

<form method="POST" action="alterar.asp">

<input type="hidden" name="enviado" value="sim">

<p align="center">Nome: <input type="text" name="nome" size="20"><BR>

Sobre Nome: <input type="text" name="snome" size="20"><BR>

Email: <input type="text" name="email" size="20"><BR>

Login: <input type="text" name="login" size="20"><BR>

Senha Atual: <input type="password" name="pass" size="20"><BR>

Nova Senha: <input type="password" name="nsenha" size="20"><BR>

Confirme a Senha: <input type="password" name="c_senha" size="20"><BR>

Sexo: <input type="text" name="sexo" size="20"><BR>

<input type="submit" value="Alterar">

</form>

<%

End IF

Conn.Close

%>

[dark0]

bom dia.

Bom, estava olhando seu codigo..

assim, de primeira impressao, eu achei errado aqui:

If Request.Form("enviado") = "sim" Then

login = Replace(Request.Form("login"), "'", "/") <- aqui a variavel LOGIN recebe valor
pass = Replace(Request.Form("pass"), "'", "/")
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"), "'", "/")


login = Request.Cookies("login") <- aqui a var LOGIN tb recebe valor
sql = "SELECT senha FROM usuarios WHERE login="&login&"" <- pra que esse sql? pra pegar a senha? pra que?
sql = "UPDATE usuarios SET nome='"&Request.Form("nome")&"', email='"&Request.Form("email")&"', snome='"&Request.Form("snome")&"', senha='"&Request.Form("nsenha")&"', login='"&Request.Form("login")&"', sexo='"&Request.Form("sexo")&"' WHERE login = '"&login&"'" <- aqui esta comparando: ONDE LOGIN = LOGIN.. mas qual dos LOGINS? tem 2 lá em cima !!
Conexao.Execute(Sql)

como o cara chega até essa pagina de alteração?

ele efetua login na sua pagina, para depois poder alterar os dados?

o correto, seria o cara fazer LOGIN no site.. aí você guarda uma session com a ID (codigo) do cadastro dele, e com esse codigo, você pode fazer qualquer SQL.. (update, select..etc)

abraços