6 replies to this topic

[Fragnatic]

Bom Dia.

Esotu com uma duvida.. fiz um fomrulario perfeito com envio dos dados para uma base em access.
tem login e senha esqueci minha senha.
So q eu queria colocar um confimação de email.. q quando o usuario se cadastra ele recebe um email pra ativa a conta...
como faze isso..?

Agradeço des de já!!!

[Humberto Rodrigues]

Bem, poderia tentar assim:

Quando o usuario se cadastra, gera um um número randomico e cadastra no banco. Envia um email para o cara com a url de ativação contendo o número gerado: site.com.br/ativacao.asp?cod=123456789123456789

Busca o código no banco, se existir utilize algum campo como flag de ativação. Poderia ser um campo "ativado" que receberia o valor "sim" depois q o usuario clicasse na url.

Para maior segurança, poderia passar o email pela url tb.

Abraços
Humberto Rodrigues

[Fragnatic]

Saquei a logica!

To com um problema pra criar o envio de email automatico para a pessoa logo depois q ela preenche o form...
qual codigo q faz isso? ele vai na mesma pagina do form.. ou tem q criar em outra??

[Humberto Rodrigues]

Enviar email com ASP exige algumas boas linhas, se comparado ao PHP.
Depende do componente que existe instalado no seu servidor.
Eu utilizo o seguinte:

msg= "Aqui vai o texto do email"
	
	sDestinatario = "destino@destino.com.br"
	sRemetente = "origem@seusite.com.br"
	sResponder = "respostaem@seusite.com.br"
	sAssunto = "Assunto do email"
	sMensagem = msg
	set mail = server.CreateObject("CDO.Message")
	set mailc = server.CreateObject("CDO.Configuration")
	mailc.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
	mailc.fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	mailc.fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	mailc.fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
	
	Set mail.Configuration = mailc
	
	mail.from=sRemetente
	mail.to=sDestinatario
	mail.cc="Enviar uma cópia para algúem?@seusite.com.br"
	mail.replyto = sResponder

	mail.subject = sAssunto
	mail.HTMLbody = sMensagem
	mail.send

Sinceramente, eu odeio enviar email com asp.
Esse código funfa comigo sem problemas.

Abraços,
Humberto Rodrigues

[Fragnatic]

Na pagina de ativação . q o campo do banco muda para o cara confirmar esta dando erro..
mais nao entendo o pq..

<%

sqlstmt = "update tbl_users set Nome='Rafael' where CodCliente = 25"

Set conn = server.createobject("ADODB.Connection") 'abre a conexão com o banco de dados

conn.open "E:\home\bbro\dados\teste\db.mdb" 'avisa qual banco de dados será utilizado na consulta

set rsquery = conn.execute(sqlstmt) 'executa a instrução SQL contida na variavel sqlstmt

set rsquery = nothing

set conn = nothing

'Note que não é necessário fechar a rsquery. Isso ocorre devido à string de alteração não ficar armazenada na memória , para futura consulta. Ela é executada, e automaticamente, fechada. Isso também ocorre nas strings de atualização e inserção.


%>

Edição feita por: Fragnatic, 12/02/2009, 10:40.

[Humberto Rodrigues]

Qual erro está retornando?

[Fragnatic]

Esta dando erro de conecção com bando de dados... mais nao sei pq....

No login e senha q eu criei.. tem q te alguma linha de código!
dizendo q se o campo (ex: Validacao) tiver ok o cara consegue se logar!..
Como que faz??