<%@ Language=VBScript %> <%Option Explicit%> Untitled Document <% Dim Mailer If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.adoraronline.com" Mailer.ContentType = "Text/html" Mailer.FromName = "Adorar OnLine" Mailer.DateTime = WeekDayName(WeekDay(Date),True) &"," &Day(Date) &" "& MonthName(Month(Date),True) &" "& Year(Date) &" "& FormatDateTime(Now,4) &" - 0600(CST)w2001" Mailer.FromAddress = "contato@adoraronline.com" Mailer.AddRecipient "Adorar OnLine", "congresso@uol.com.br" Mailer.AddBCC "Adorar OnLine","caiocunha8@hotmail.com" Mailer.Subject = request("nome") &" fez inscrição para o ADORAR 2009" Mailer.BodyText = "
"&_ ""&_ "

"&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "" if not Mailer.SendMail then Response.Write " Falha no envio do formulário... " Response.Write Mailer.Response Else %>
Retorno do preenchimento do formulário
Nome: "& request("nome") &"
E-mail: "& request("email") &"
DDD: "& request("ddd") &"
Telefone: "& request("fone") &"
DDD: "& request("ddd2") &"
Celular: "& request("celular") &"
Cidade: "& request("cidade") &"
Estado: "& request("estado") &"
IGREJA: "& request("igreja") &"
OBSERCAÇÃO: "& request("obs") &"

Saudações de Avivamento!

Você como cristão tem o chamado de estabelecer o Reino de Deus na Terra.

Nos dias 24, 25 e 26 de JULHO ocorerrá a 7ª edição do Congresso ADORAR, onde juntos levantaremos um altar de adoração ao Rei dos Reis - Jesus.

E, juntos declararemos: "Venha o Teu Reino e seja feita a Tua vontade, assim na Terra como no céu".

Vamos adorar ao Rei!

Inscrições abertas a partir do dia 27/06!