<% dim termino,acao ,nome ,texto , estado ,cidade ,telefone, email, info, Host acao = request.form("acao") if acao = "enviar" then nome = request.form("realname") estado=request.form("estado") cidade= request.form("cidade") telefone = request.Form("telefone") email =request.Form("email") info = request.form("comentarios") Host ="mail.planodedeus.org" texto = "Nome: " & nome & "
" texto = texto & "Cidade: " & cidade & "
" texto = texto & "Estado: " & estado & "
" texto = texto & "Telefone: " & telefone & "
" texto = texto & "Email: " & email & "
" texto = texto & "Mensagem: " & info & "
" ErrStr = "" Set eObjMail = Server.CreateObject("Persits.MailSender") eObjMail.Host = "mail.planodedeus.org" eObjMail.From = "info@planodedeus.org" eObjMail.FromName = "PlanodeDeus.Org" eObjMail.AddAddress "info@planodedeus.org" 'eObjMail.AddAddress "@.br" eObjMail.Subject = "Contato Website" eObjMail.isHTML = true eObjMail.Body = texto eObjMail.UserName = "info@planodedeus.org" eObjMail.PassWord = "If122015" On Error Resume Next if not eObjMail.Send Then ErrStr = Err.Description response.write(ErrStr) Else termino="OK" end if end if %> <% if termino <> "OK" then %>

Entre em contato conosco.

Nome:
Cidade:
Estado:
Telefone:
E-mail:
Escreva sua mensagem:

  
<%else%>


Obrigado por visitar nossa página!

O seu Formulário foi enviado com sucesso!
Entraremos em contato com você em breve!
Informamos que se tratando de aconselhamento, estudos específicos ou um atendimento que exija um pouco mais de tempo, poderá seu e-mail ser respondido apenas dentro de alguns meses.
Isso ocorre pelo fato de termos poucos irmãos para nos ajudar e ser muito grande a quantidade de e-mails que recebemos diariamente de todo o mundo.
Pedimos sua compreensão e oração para que Deus levante mais obreiros para nos auxiliar e nos dê condições financeiras e físicas para seguirmos nesta obra que é do Senhor.

Deus o(a) abençõe!

<% end if %>