Como confirmar solicitação de cadastro no site

[Célio-Ctba 0]

Fala galera!!Tenho um site onde alguns conteúdos são restritos a pessoas que fazem o cadastro, tive que o tirar do ar pois mando as news para todos os emails cadastrados, e pessoas mal intencionadas cadastram diversos emails de pessoas que não tem interesse em receber essas news, caracterizando assim como spam.Gostaria de uma idéia de como fazer, quando o usuario efetuar o cadastro, ser disparado um email solicitando a confirmação se realmente o email cadastrado pretende receber as news. Até disparar o email não vejo muito problema mas sim como receber as confirmações e inserir isto no banco de usuarios, sem ter q fazer um a um, quando receber os emails.Abraços!!!

[ultra 0]

Quando o cliente fizer o cadastro, você gera um código randômico e manda no email (ex.: http://www.seusite.com.br/confirma.asp?cod...32f0sd89z0f9d8)

 

ao cliente clicar nesse link, você manda conferir se o código da querystring é o mesmo do gerado, e se for, você atualiza o bd do cliente como confirmado = 1

[N3G4T1V3 0]

Ou você só faz um link tipo:

 

http://www.seusite.com.br/ConfirmaCadastro.asp?id=245185

 

 

ai nessa página você vai fazer ele pegar o id e ele automaticamente da um update no campo confirmado = True

[Célio-Ctba 0]

Ok, vou testar as formas e volto com o resultado!!!

[arr 0]

A solução do ultra é mais recomendável. Gerando uma chave randômica você evita que alguém atualize todos os IDs. Já pensou, é facinho:

 

http://www.seusite.com.br/ConfirmaCadastro.asp?id=245185

http://www.seusite.com.br/ConfirmaCadastro.asp?id=245186

http://www.seusite.com.br/ConfirmaCadastro.asp?id=245187

http://www.seusite.com.br/ConfirmaCadastro.asp?id=245188

http://www.seusite.com.br/ConfirmaCadastro.asp?id=245189....

[Célio-Ctba 0]

Como fazer GERAÇÃO DE NÚMEROS RANDÔMICOS? É possível fazer em ASP? ou uso outra tecnologia?

[arr 0]

Um Exemplo:<%RandomizeFor i=1 to 20upperbound=90lowerbound=65 lRandom = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)Senha=Senha&Chr(lRandom)NextResponse.Write Senha%>Neste caso gera uma string de 20 caracteres de "A" a "Z" conforme o codigo ASC de 65 a 90.

[Célio-Ctba 0]

VLW, guri mto obrigado, tb achei este cód aqui, vou testá-los e depois posto o resultado!!!

 

 

Function GerarChave(valores)Dim chr_Array(35)chr_array(0) = "0"chr_array(1) = "1"chr_array(2) = "2"chr_array(3) = "3"chr_array(4) = "4"chr_array(5) = "5"chr_array(6) = "6"chr_array(7) = "7"chr_array(8) = "8"chr_array(9) = "9"Randomizedo while len(chave) < 10num = chr_array(Int(35 * Rnd ))chave = chave + numloopGerarChave = chaveEnd Function

[Célio-Ctba 0]

beleza, as duas formas randomicas funcionaram, o envio de email está ok. Pra finalizar, sabem me dizer se existe uma forma de colocar no email q o cadastrante recebe, um botão ou link, q quando ele clique já faça o insert no banco?

[ultra 0]

Ué

 

apenas faz o link pra página.asp?cod=124SFA4242qdsaFSAF , e ao clicar dá um update tabela set confirmado = true where codigo = '"& request.querystring("cod") &"'"

[Salgado 4]

Não passe só o código, passe também o ID do usuário pois pode acontecer em casos remotos de ser gerado o mesmo COD randômico.

[Célio-Ctba 0]

O email com a chave ele está mandando normal, mas antes de fazer a validação, preciso acertar o cadastro pois não está inserindo as informações no banco, aqui vai a parte do cód com relação ao banco:

 

<%'verifica SE nenhum campo ficou vazio e se o botao submit foi clicado'caso tenha campos em branco e o submit nao for clicado da msg em brancoIf (Request.Form("nome") = "" OR Request.Form("email") = "" OR Request.Form("Cadastra") = "") Thenmsg = ""	'caso o botao tenha sido clicado e um dos campos estiverem em branco da msg de erro		If (Request.Form("Cadastra") = "Enviar") Then	msg = "Os dados não foram informados corretamente"	End If'SENAO executa o código abaixo cadastra no bd e da msg de sucessoElseCaminho = "Provider=Microsoft.Jet.OLEDB.4.0; "&_"Data Source=d:\espirro.com\dados\banco.mdb;"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open CaminhoSet registros = Server.CreateObject("adodb.recordset")SQL = "SELECT * FROM email"registros.Open (SQL), Conexao, 1, 3   'If (SQL = request.form("email"))  Then GOSTARIA DE FAZER ESTA VERIFICAÇÃO MAS Ñ SEI SE É AQUI   'msg = "Este email já foi cadastrado!!!"      registros.AddNewregistros("nome") = Request.Form("nome")  'pega o campo nome do formulárioregistros("email") = Request.Form("email") 'pega o campo nome do formulárioregistros("status") = false   'seta o campo status como falso no banco de dados registros("verificacao") = strsenha  'pega o resultado de uma função de geração de chaves TAMBÉM ESTA DANDO ERRO - Item cannot be found in the collection corresponding to the requested name or ordinal 'registros(date())Aqui gostaria de pegar a data do cadastro   'registros(time())Aqui gostaria de pegar a hora do cadastroregistros.Updateregistros.CloseConexao.Closemsg = "Obrigado por se cadastrar em nossa news"End If%>

[Célio-Ctba 0]

:( Help, PLEASE!!! :(