[Ativar Cadastro Por Email...]

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