<% ' Resgata o valor do fax campo_email = Request.Form("email") '//////////////////////////////////////////////////' 'Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 'Mailer.FromName = "CONTATO" 'Mailer.FromAddress = "marketing@rivapel.com.br" 'Mailer.RemoteHost = "localhost" 'Mailer.AddRecipient campo_assunto, "marketing@rivapel.com.br" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "CONTATO" Mailer.FromAddress = "amaury.catelan@gmail.com" Mailer.RemoteHost = "localhost" Mailer.AddRecipient campo_assunto, "amaury.catelan@babenko.com.br" '//////////////////////////////////////////////////' ' Resgata o valor do cliente campo_cliente = Request.Form("cliente") ' Resgata o valor do nome campo_nome = Request.Form("nome") ' Resgata o valor do ddd telefone campo_ddd_telefone = Request.Form("digito_tel") ' Resgata o valor do telefone campo_telefone = Request.Form("telefone") ' Resgata o valor do ddd fax campo_ddd_fax = Request.Form("digito_fax") ' Resgata o valor do fax campo_fax = Request.Form("fax") ' Resgata o valor da cidade campo_cidade = Request.Form("cidade") ' Resgata o valor do estado campo_estado = Request.Form("estado") ' Resgata o valor do mensagem campo_mensagem = Request.Form("mensagem") '//////////////////////////////////////////////////' Mailer.Subject = "CONTATO" nome = Mailer.FromName = request("nome") '//////////////////////////////////////////////////' Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "" Mailer.BodyText = "

Cliente:	" & campo_cliente & "
Nome:	" & campo_nome & "
Telefone:	" & campo_ddd_telefone & " - "& campo_telefone & "
Fax:	" & campo_ddd_fax & " - "& campo_fax & "
Email:	" & campo_email & "
Cidade:	" & campo_cidade & "
Estado:	" & campo_estado & "
Mensagem:	" & campo_mensagem & "

" '//////////////////////////////////////////////////' Mailer.ContentType = "text/html" mailer.CustomCharSet = "utf-8" '//////////////////////////////////////////////////' if Mailer.SendMail then response.redirect "enviado.asp" else response.redirect "falha.asp" end if %>