Ativar Cadastro Por Email...

[Nas Baladas]

Galera consegui colocar para ser enviado o link para o email de cadastro da pessoa para fazer a ativação pelo componente cdo.sys, mais o problema é que quando abro o email e clico no link a página de ativação da um erro:

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/cadastro_2/ativa_cadastro.asp, line 20

A linha 20 é essa:

Set rs = objConexao.Execute(Sql)

Dando uma olhada no código, a página de validar o cadastro gera um código mais minha dúvida é a seguinte, esse código teria que ser gravado no bd para depois alterar o status na pessoa no banco?

Parte dos códigos:

Página valida_cadastro.asp

nome  = Trim(Request("nome"))
cidade = Trim(Request("cidade"))
email  = Trim(Request("email"))

caminho = "/cadastro_2/db/users.mdb"     'endereço do banco de dados 

Set objConexao = Server.CreateObject("ADODB.Connection")
objConexao.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath(caminho)

Sql = "Insert Into tbl_Usr(usr_Nome,usr_Email,usr_Cidade,usr_Ativo) Values "
Sql = Sql & "('" & nome & "', '" & email & "', '" & cidade & "','N')"

objConexao.Execute(Sql)

Set objConexao = Nothing

Usr_cod = GerarChave(50)
.
.
.
código do envio do email...

Página ativa_cadastro.asp

nome  = Trim(Request("nome"))
codigo = Trim(Request("ativar"))
email  = Trim(Request("email"))

caminho = "/cadastro_2/db/users.mdb"     'endereço do banco de dados 

Set objConexao = Server.CreateObject("ADODB.Connection")
objConexao.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath(caminho)

Sql = "Select Nome From tbl_Usr Where Usr_Cod = '" & codigo & "'"

Set rs = objConexao.Execute(Sql)

If Not rs.EOF Then  'se encontrar o usuario no banco de dados, atualiza a situacao dele para usuario ativo
 objConexao.Execute("Update tbl_Usr Set usr_Ativo = 'S' Where usr_Cod='" & codigo & "'")
 Response.Write("Ok.<p>A sua conta foi liberada com sucesso!")
Else
 Response.Redirect("erro.htm")  ' se não achar, manda o usuario para a pagina de erro
End if

Set rs = Nothing
Set objConexao = Nothing

Alguém de uma força ai por favor...

Valeu...

[.Andreia.]

A primeira coisa que se deve fazer quando apresenta um erro no banco, é imprimir a consulta. Dessa forma você consegue VER o que está tentando gravar.

Da um

response.write sql

response.end

antes do execute

[safwebsite]

Por favor, Andréia, será que você tem como me ajudar, para que eu possa criar o mesmo processo deste fórum? Ou seja, ao registrarmos nosso cadastro, recebemos um e-mail de ativação para acessar com login e senha. Sei fazer a pagina com login e senha, porém o que preciso saber é fazer esse método de ativação, como eu fiz para me registrar nesse fórum. Após cadastro, chega um e-mail para o usuário, com esse link abaixo de ativação, caso não ative, ele não conseguirá se logar com o seu login e senha. Uso Dreamweaver para programar e Apache2Triad como servidor local.

Grata

[Rafael Spilki]

Procure exemplos prontos aqui:

https://www.scriptbrasil.com.br/codigos

se a dúvida persistir, abra um novo tópico com as devidas especificações.

[]'s Rafael Spilki