%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Submit Submit = request("enviar") if Submit = "Enviar" then body = "####################################################" & vbcrlf & "Nome: " & Request("a1") & vbcrlf & vbcrlf & "Mensagem para: " & Request("a2") & vbcrlf & vbcrlf & "Cidade: " & Request("a8") & vbcrlf & vbcrlf & "E-mail: " & Request("a12") & vbcrlf & vbcrlf& "Mensagem: " & Request("a18") & vbcrlf & vbcrlf & "####################################################" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.chapnet.com.br" Mail.From = "chapnet@chapnet.com.br" Mail.FromName = "Atendimento" Mail.AddAddress "chapnet@chapnet.com.br","Atendimento" Mail.Subject = "#Atendimento enviado porusuário#" Mail.IsHTML = false Mail.Body = body Mail.Send response.redirect "confirmacao.htm" end if %>