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: A linha 20 é essa: 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...
