Cadastro com confirmação

[watequate 0]

Fala pessoal do forum...Dei uma pesquisada sobre esse assunto e nao achei exatamente o q eu keria.Gostaria de fazer um sistema de cadastro onde dps q o visitante fizesse o cadastro mandar um email pra ele confirmar o cadastro.A pagina de cadastro q envia as informações pro db eu ja tenho, soh falta eu saber como manda um email apos o cadastro e com o link de confirmacao.Obrigado.

[shumi 0]

Cara to aprendendo o ASP ainda, mas hà pouco tempo atrás fiz um negócio parecido se t ajudar beleza

 

If intRetorno > 0 Then'		On Error Resume Next					Set objCDO = Server.CreateObject("CDONTS.NewMail")			objCDO.To = "email@email.com.br"			objCDO.Cc= "email2@email.com.br"			objCDO.From = Nome & "<" & email & ">"			objCDO.Subject = "ASSUNTO DA MENSAGEM!!!"			sMsg = sMsg & "Nome: " & nome			sMsg = sMsg & "<br>Razao Social: " & razao			sMsg = sMsg & "<br>Nome Fantasia: " & fantasia			sMsg = sMsg & "<br>RG: " & rg			 			sMsg = sMsg & "<br>CPF " & cpf			sMsg = sMsg & "<br>Sexo: " & sexo			sMsg = sMsg & "<br>Cidade de Partida: " & cidade			sMsg = sMsg & "<br>Estado: " & uf			sMsg = sMsg & "<br>Telefone: " & telefone			sMsg = sMsg & "<br>Celular: " & celular			sMsg = sMsg & "<br>Cargo: " & cargo			sMsg = sMsg & "<br>e-mail: " & email			sMsg = sMsg & "<br>Status: " & "Confirmado"			objCDO.Body = sMsg			objCDO.BodyFormat=0			objCDO.MailFormat=0			objCDO.Send		Set objCDO = Nothing				Set objCDO2 = Server.CreateObject("CDONTS.NewMail")			objCDO2.To = request.form("email")			'objCDO2.Cco= request.form("email")			objCDO2.From = "EMPRESA <email@email.com.br>"			objCDO2.Subject = "Convenção!!!!"			sMsg2 = sMsg2 & "CADASTRO REALIZADO COM SUCESSO!!!"			sMsg2 = sMsg2 & "<br>Nome: " & nome			sMsg2 = sMsg2 & "<br>Razao Social: " & razao			sMsg2 = sMsg2 & "<br>Nome Fantasia: " & fantasia			sMsg2 = sMsg2 & "<br>RG: " & rg			 			sMsg2 = sMsg2 & "<br>CPF " & cpf			sMsg2 = sMsg2 & "<br>Sexo: " & sexo			sMsg2 = sMsg2 & "<br>Cidade de Partida: " & cidade			sMsg2 = sMsg2 & "<br>Estado: " & uf			sMsg2 = sMsg2 & "<br>Telefone: " & telefone			sMsg2 = sMsg2 & "<br>Celular: " & celular			sMsg2 = sMsg2 & "<br>Cargo: " & cargo			sMsg2 = sMsg2 & "<br>e-mail: " & email			sMsg2 = sMsg2 & "<br><br>Para obter mais informações sobre o evento, entre em contato com a organização pelos telefones xxxxxxxxxx / xxxxxxxxxxx."			objCDO2.Body = sMsg2			objCDO2.BodyFormat=0			objCDO2.MailFormat=0			objCDO2.Send		Set objCDO2 = Nothing		'		If err.number = 0 Then'			blnEnvioEmail = True'		End If'		On Error Goto 0		response.redirect "feedback.asp"	End If%>

O primeiro e-mail vai pros administradores e o segundo pra pessoa que se cadastrou!!!

 

Espero que t ajudei!

Abraços,

ShUmI

 

ha e na linha response.redirect "feedback.asp"

você faz uma pagina feedback.asp e coloka cadastro efetuado com sucesso!!!

 

espero q te ajudei!!!

[watequate 0]

cara, nao entendi mto a sua explicacao nao.esse arkivo faz oq ? onde eu coloco ele ?

[shumi 0]

esse arquivo apenas manda a confirmação pro e-mail da pessoa.

Acredito q no seu cadastro tem o campo e-mail. então

o arquivo abaixo manda os dados pra você no seu e-mail, para você ter um controle:

If intRetorno > 0 Then'		On Error Resume Next					Set objCDO = Server.CreateObject("CDONTS.NewMail")			objCDO.To = "email@email.com.br"			objCDO.Cc= "email2@email.com.br"			objCDO.From = Nome & "<" & email & ">"			objCDO.Subject = "ASSUNTO DA MENSAGEM!!!"			sMsg = sMsg & "Nome: " & nome			sMsg = sMsg & "<br>Razao Social: " & razao			sMsg = sMsg & "<br>Nome Fantasia: " & fantasia			sMsg = sMsg & "<br>RG: " & rg			 			sMsg = sMsg & "<br>CPF " & cpf			sMsg = sMsg & "<br>Sexo: " & sexo			sMsg = sMsg & "<br>Cidade de Partida: " & cidade			sMsg = sMsg & "<br>Estado: " & uf			sMsg = sMsg & "<br>Telefone: " & telefone			sMsg = sMsg & "<br>Celular: " & celular			sMsg = sMsg & "<br>Cargo: " & cargo			sMsg = sMsg & "<br>e-mail: " & email			sMsg = sMsg & "<br>Status: " & "Confirmado"			objCDO.Body = sMsg			objCDO.BodyFormat=0			objCDO.MailFormat=0			objCDO.Send		Set objCDO = Nothing

O segundo manda o e-mail pra pessoa com os dados dela

ai você pode inserir alguma informação tipo OBRIGADO POR SE CADASTRAR!:

 

Set objCDO2 = Server.CreateObject("CDONTS.NewMail")			objCDO2.To = request.form("email")			'objCDO2.Cco= request.form("email")			objCDO2.From = "EMPRESA <email@email.com.br>"			objCDO2.Subject = "Convenção!!!!"			sMsg2 = sMsg2 & "CADASTRO REALIZADO COM SUCESSO!!!"			sMsg2 = sMsg2 & "<br>Nome: " & nome			sMsg2 = sMsg2 & "<br>Razao Social: " & razao			sMsg2 = sMsg2 & "<br>Nome Fantasia: " & fantasia			sMsg2 = sMsg2 & "<br>RG: " & rg			 			sMsg2 = sMsg2 & "<br>CPF " & cpf			sMsg2 = sMsg2 & "<br>Sexo: " & sexo			sMsg2 = sMsg2 & "<br>Cidade de Partida: " & cidade			sMsg2 = sMsg2 & "<br>Estado: " & uf			sMsg2 = sMsg2 & "<br>Telefone: " & telefone			sMsg2 = sMsg2 & "<br>Celular: " & celular			sMsg2 = sMsg2 & "<br>Cargo: " & cargo			sMsg2 = sMsg2 & "<br>e-mail: " & email			sMsg2 = sMsg2 & "<br><br>Para obter mais informações sobre o evento, entre em contato com a organização pelos telefones xxxxxxxxxx / xxxxxxxxxxx."			objCDO2.Body = sMsg2			objCDO2.BodyFormat=0			objCDO2.MailFormat=0			objCDO2.Send		Set objCDO2 = Nothing

aonde tem empresa, razão, fantasia, rg, cpf, cidade, uf, telefone e etc

São os nomes das minhas variaveis!!!

 

o meu arquivo está assim:

 

<%set Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("convencao.mdb")Conexcao.openDim Conexcao,sql,rs,verifica,nome,razao,fantasia,rg,cpf,cidade,uf,sexo,dddtelefone,telefone,dddcelular,celular,email,cargo,blnEnvioEmail,intRetorno,varcodnome = Request.Form("nome")razao = Request.Form("razao")fantasia = Request.Form("fantasia")rg = Request.Form("rg")cpf = Request.Form("cpf")cidade = Request.Form("cidade")uf = Request.Form("uf")sexo = Request.Form("sexo")dddtelefone = Request.Form("dddtelefone")telefone = Request.Form("telefone")dddcelular = Request.Form("dddcelular")celular = Request.Form("celular")email = Request.Form("email")cargo = Request.Form("cargo")Response.Expires = 0dim queryquery = "SELECT cpf FROM convencao"set rs = Conexcao.Execute(query)do while not rs.eof		if trim(rs("cpf")) = trim(request.Form("cpf")) then		response.redirect("cadastro.asp?msg=1")		response.End()			end if	rs.movenextloop'SET RS = Conexcao.Execute("SELECT cpf FROM convencao WHERE cpf = '" & Trim(request.Form("cpf")) & "'")'IF RS.EOF THEN	sSQL = "INSERT INTO convencao(nome,razao,fantasia,rg,cpf,cidade,uf,sexo,dddtelefone,telefone,dddcelular,celular,email,cargo) VALUES ('"& nome &"','"& razao &"','"& fantasia &"','"& rg &"','"& cpf &"','"& cidade &"','"& uf &"','"& sexo &"','"& dddtelefone &"','"& telefone &"','"& dddcelular &"','"& celular &"','"& email &"','"& cargo &"')"	Conexcao.Execute sSQL,intRetorno'else'	response.redirect "cadastro.asp?msg=1"'	response.End()'end ifset RS=nothingConexcao.closeSet Conexcao=nothing		If intRetorno > 0 Then'		On Error Resume Next					Set objCDO = Server.CreateObject("CDONTS.NewMail")			objCDO.To = "email@pravc.com.br"			objCDO.Cc= "email@pravccopia.com.br"			objCDO.From = Nome & "<" & email & ">"			objCDO.Subject = "Assunto"			sMsg = sMsg & "Nome: " & nome			sMsg = sMsg & "<br>Razao Social: " & razao			sMsg = sMsg & "<br>Nome Fantasia: " & fantasia			sMsg = sMsg & "<br>RG: " & rg			 			sMsg = sMsg & "<br>CPF " & cpf			sMsg = sMsg & "<br>Sexo: " & sexo			sMsg = sMsg & "<br>Cidade de Partida: " & cidade			sMsg = sMsg & "<br>Estado: " & uf			sMsg = sMsg & "<br>Telefone: " & telefone			sMsg = sMsg & "<br>Celular: " & celular			sMsg = sMsg & "<br>Cargo: " & cargo			sMsg = sMsg & "<br>e-mail: " & email			sMsg = sMsg & "<br>Status: " & "Confirmado"			objCDO.Body = sMsg			objCDO.BodyFormat=0			objCDO.MailFormat=0			objCDO.Send		Set objCDO = Nothing				Set objCDO2 = Server.CreateObject("CDONTS.NewMail")			objCDO2.To = request.form("email")			'objCDO2.Cco= request.form("email")			objCDO2.From = "Nome da sua empresa <email@dasuaempresa.com.br>"			objCDO2.Subject = "ASSUNTO!"			sMsg2 = sMsg2 & "CADASTRO REALIZADO COM SUCESSO!!!"			sMsg2 = sMsg2 & "<br>Nome: " & nome			sMsg2 = sMsg2 & "<br>Razao Social: " & razao			sMsg2 = sMsg2 & "<br>Nome Fantasia: " & fantasia			sMsg2 = sMsg2 & "<br>RG: " & rg			 			sMsg2 = sMsg2 & "<br>CPF " & cpf			sMsg2 = sMsg2 & "<br>Sexo: " & sexo			sMsg2 = sMsg2 & "<br>Cidade de Partida: " & cidade			sMsg2 = sMsg2 & "<br>Estado: " & uf			sMsg2 = sMsg2 & "<br>Telefone: " & telefone			sMsg2 = sMsg2 & "<br>Celular: " & celular			sMsg2 = sMsg2 & "<br>Cargo: " & cargo			sMsg2 = sMsg2 & "<br>e-mail: " & email			sMsg2 = sMsg2 & "<br><br>Para obter mais informações sobre o evento, entre em contato com a organização pelos telefones xxxxxxxxx / xxxxxxxxx."			objCDO2.Body = sMsg2			objCDO2.BodyFormat=0			objCDO2.MailFormat=0			objCDO2.Send		Set objCDO2 = Nothing		'		If err.number = 0 Then'			blnEnvioEmail = True'		End If'		On Error Goto 0		response.redirect "feedback.asp"	End If%>

entendeu?

abraços

ShUmI

[watequate 0]

entendi shumi, vou dar uma estudada e tentar implementar...obrigado.

[shumi 0]

entendi shumi, vou dar uma estudada e tentar implementar...obrigado.

Beleza qualquer coisa q der pra mim t ajudar .... eh soh falar!!!abraços