Ir para conteúdo
Fórum Script Brasil
  • 0

Ativar Cadastro Por Email...


Nas Baladas

Pergunta

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 para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...