Jump to content
Fórum Script Brasil
  • 0

Ativar Cadastro Por Email...


Nas Baladas
 Share

Question

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

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...