<% dim termino,acao ,nome ,texto , estado ,cidade ,telefone, email, info, Host acao = request.form("acao") if acao = "enviar" then nome = request.form("nome") email=request.form("email") cpf =request.Form("cpf") endereco = request.form("endereco") cep=request.form("cep") cidade= request.form("cidade") estado = request.Form("estado") pais = request.form("pais") telefone = request.Form("telefone") celular =request.Form("celular") doacao =request.Form("doacao") Host ="mail.planodedeus.org" texto = "Nome: " & nome & "
" texto = texto & "Email: " & email & "
" texto = texto & "CPF: " & cpf & "
" texto = texto & "Endereco: " & endereco & "
" texto = texto & "Cep: " & cep & "
" texto = texto & "Cidade: " & cidade & "
" texto = texto & "Estado: " & estado & "
" texto = texto & "Pais: " & pais & "
" texto = texto & "Telefone: " & telefone & "
" texto = texto & "Celular: " & celular & "
" texto = texto & "Doacao: " & doacao & "
" ErrStr = "" Set eObjMail = Server.CreateObject("Persits.MailSender") eObjMail.Host = "mail.planodedeus.org" eObjMail.From = "fcparte@planodedeus.org" eObjMail.FromName = "PlanodeDeus.Org" eObjMail.AddAddress "fcparte@planodedeus.org" 'eObjMail.AddAddress "@.br" eObjMail.Subject = "Torpedo Biblico Diario" eObjMail.isHTML = true eObjMail.Body = texto eObjMail.UserName = "fcparte@planodedeus.org" eObjMail.PassWord = "Fp342015" 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 %>
Nome*
E-mail*
CPF*
Endereço*
Cep*
Cidade*
Estado*
País*
DDD ( sem 0 ) + Telefone*
DDD ( sem 0 ) + Celular*
Doação mensal - R$*

<%else%>


Obrigado por se associar ao Ministério Plano de Deus!

Clique aqui para efetuar sua contribuição e começar a receber os torpedos com versículos bíblicos diariamente em seu celular.

Mensalmente enviaremos o link para sua contribuição.

Não desejando mais receber os torpedos nos informe por e-mail: info@planodedeus.org

Deus o(a) abençoe.


<% end if %>