Movive.org.br | Vida Nova Vila Velha

<% function sendMail() action = Request("action") if action = "send" then //Criar o objeto CDONTS Set Mail = Server.CreateObject("CDONTS.NewMail") //Definindo as propriedades do objeto Mail.From = Request.Form("txtMailDe") Mail.To = "movive@movive.org.br" Mail.cc= "suporteagra@gmail.com" //Preparando o corpo do e-mail HeaderMail = "Email enviado por: " & Request.Form("txtNomeDe") &"("& Request.Form("txtMailDe") &")"& vbCrLf & vbCrLf FootMail = "Conhece o trabalho do Movive? " & Request.Form("cbxQ1") & vbCrLf & "Como conheceu o Movive? " & Request.Form("cbxQ2") & " (" & Request.Form("txtOnde") &")" & vbCrLf & "Interesse em ser um parceiro ou colaborador? " & Request.Form("chkparceiro") & vbCrLf & vbCrLf & Request.Form("txtMsg") //Descomente a linha abaixo para enviar e-mail em formato HTML Mail.Subject = "Fale conosco" Mail.Body = headerMail & FootMail //Tratamento de erro erro = "" sucesso = False //Ignora o erro On Error Resume Next //Envia a mensagem Mail.Send //Descrevendo o erro If Err <> 0 Then erro = Err.Description else sucesso = True End If // Libera a variavel Set Mail = nothing //Ao ocorrer erro faça... If erro <> "" Then Response.Write " color='red'>Ocorreu o seguinte erro: " & erro & "" End If //Ao ocorrer êxito faça... If sucesso Then Response.Write "Mensagem enviada com sucesso!!" End If end if end function %> Movive.org.br | Vida Nova Vila Velha

Missão: "Contribuir para a melhoria da qualidade de vida e prática da cidadania da população”