Prezado(a) <% = nomes %> , sua mensagem foi enviada com sucesso!

Em breve responderemos.

Muito Obrigado.

<% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = request.form("nome") Mailer.FromAddress= "ativaeventos@ativaeventos.com" Mailer.RemoteHost = "smtp-web.uni5.net" Mailer.AddRecipient "Contato - Website", "ativaeventos@ativaeventos.com" Mailer.Subject = "Website - Contato" REM 1 = US ASCII , 2 = ISO-8559-1, 3 = UTF-8 mailer.charset = 2 Mailer.BodyText = "Nome: " & Request.Form("nome") & chr(13) & chr(10) & "E-Mail: " & Request.Form("email") & chr(13) & chr(10) & "Empresa: " & Request.Form("empresa") & chr(13) & chr(10) & "Telefone: " & Request.Form("telefone") & chr(13) & chr(10) & "Mensagem: " & Request.Form("mensagem") if Mailer.SendMail then 'Response.Write "E-MAIL ENVIADO COM SUCESSO!" 'else 'Response.Write mailer.response 'end if 'response.end end if set Mailer = nothing %>