Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Arrasted

Gravaçãopno banco seguida de envio de e-mail

Por , em ASP Clássico

Recommended Posts

Arrasted    0

Arrasted
Postado

Grava no banco semproblemas, mas o email não chega, nem sei se pode ser feito assim, tentei.

ja fucei em tudo mas noafunciona, segue o codigo:

 

<%	nomeresp = Request.Form("nomeresp")	email = Request.Form("email")	telres = Request.Form("telres")	telcom = Request.Form("telcom")	estcivil = Request.Form("estcivil")	cpf = Request.Form("cpf")	rg = Request.Form("rg")	ender = Request.Form("ender")	bairro = Request.Form("bairro")	cep = Request.Form("cep")	cidade = Request.Form("cidade")	selestado = Request.Form("selestado")	seletipo = Request.Form("seletipo")	operadora = Request.Form("operadora")	modali = Request.Form("modali")	%>	<%	Set Conn = Server.CreateObject("ADODB.CONNECTION")	Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\sites\resadmin\pronto\prontosaude.com.br\db\corretora.mdb"	theSQL = "INSERT INTO propostas"theSQL = theSQL & "(nomeresp, email, telres, telcom, estcivil, cpf, rg, ender, bairro, cep, cidade, selestado, seletipo, operadora, modali)"theSQL = theSQL & " values ('"&nomeresp&"', '"&email&"', '"&telres&"', '"&telcom&"', '"&estcivil&"', '"&cpf&"', '"&rg&"', '"&ender&"', '"&bairro&"', '"&cep&"', '"&cidade&"', '"&selestado&"', '"&seletipo&"', '"&operadora&"', '"&modali&"')"Conn.Execute(theSQL) 	%>		<%	Set rs = Server.CreateObject("ADODB.RECORDSET")	rs.Open "SELECT * FROM propostas ORDER BY id DESC", Conn	Do While Not rs.EOF	%>	<%nomeresp = Request.Form("nomeresp")		'Crio o Objeto CDONTSSet EnviarMail = Server.CreateObject("CDONTS.NewMail")EnviarMail.To = "erico@acrtecnologia.com.br"EnviarMail.Subject = "Proposta - Pronto Saúde"MsgBody = "<html>" _& "<head>" _& "</head>" _& "<body bgcolor=""#FFFFFF"">"_& "O Sistema Acusa que o Sr(a) "&nomeresp&" Efetuou uma Proposta  <a href='http://www.prontosaude.com.br/VerProposta.asp?id="& id &">Ver</a>""</p>" _& "</body>" _& "</html>"%><%rs.MovenextLoopConn.CloseSet Conn = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

ultra    0

ultra
Postado

Faltou esses parâmetros:EnviarMail.From = ""EnviarMail.Body = MsgBodyEnviarMail.BodyFormat = 0EnviarMail.MailFormat = 0EnviarMail.Send

Compartilhar este post

Link para o post
Compartilhar em outros sites

Arrasted    0

Arrasted
Postado

Não Aperece erro nenhum, a página de contato funciona corretamente,nessa página RecebeProposta, os dados esta sendo gravdos no banco só.Se o remetente não tiver um e-mail válido o CDONTS manda normamente, correto ?Pq não estou passando a variavel de email no CDONTS, tem erro ?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito