<% 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 = "visita@planodedeus.org" eObjMail.FromName = "PlanodeDeus.Org" eObjMail.AddAddress "visita@planodedeus.org" 'eObjMail.AddAddress "@.br" eObjMail.Subject = "Mural de Recados" eObjMail.isHTML = true eObjMail.Body = texto eObjMail.UserName = "visita@planodedeus.org" eObjMail.PassWord = "visita0111" 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:
Escreva seu Recado:

  
<%else%>


Obrigado por visitar nossa página!

O seu Formulário foi enviado com sucesso!
Estaremos analisando seu recado para publicação.

Deus o(a) abençõe!

<% end if %>