<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_folheto_STRING MM_editCmd.CommandText = "INSERT INTO folheto (seunome, seuemail, nomeamigo, emailamigo, datae, envio, ipaddr, iphost, folheto) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 60, Request.Form("seunome")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 60, Request.Form("seuemail")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 60, Request.Form("amigonome")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 60, Request.Form("amigoemail")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 10, Request.Form("datae")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 5, 1, -1, MM_IIF(Request.Form("envio"), Request.Form("envio"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 50, Request.Form("valoripaddr")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 50, Request.Form("valoriphost")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 60, Request.Form("folheto")) ' adVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close 'append the query string to the redirect URL Dim MM_editRedirectUrl 'envio de e-mail' Dim mailer Dim mensagem Dim mensagem2 Set mailer = Server.CreateObject("SMTPsvg.Mailer") mensagem= mensagem & "DATA: " & date & "
" & "
" mensagem= mensagem & "Prezado internauta, este e-mail é para avisar que seu folheto virtual foi enviado para" mensagem= mensagem & " o seguinte endereço de e-mail: " mensagem= mensagem & Request.Form("amigoemail") mensagem= mensagem & "
" & "
" & "
" & "
" & "Atenciosamente," mensagem= mensagem & "
" & "
" & "Equipe Comunicando Jesus na Web " mensagem= mensagem & "
" & "webmaster@comunicandojesus.net " mensagem= mensagem & "
" & " www.comunicandojesus.net " Mailer.FromName = "webmaster@comunicandojesus.net" Mailer.FromAddress= "webmaster@comunicandojesus.net" Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.ContentType = "text/html" Mailer.AddRecipient Request.Form("seunome"),Request.Form("seuemail") Mailer.Subject = "www.comunicandojesus.net - Folheto Virtual Enviado" Mailer.BodyText = mensagem Mailer.SendMail Set mailer = nothing Set mensagem = nothing Set mailer = Server.CreateObject("SMTPsvg.Mailer") mensagem2= mensagem2 & "DATA: " & date & "
" & "
" mensagem2= mensagem2 & "Prezado internauta, este e-mail é para avisar que o seu amigo(a):" mensagem2= mensagem2 & "
" & Request.Form("seunome") mensagem2= mensagem2 & " - " & Request.Form("seuemail") & ", " mensagem2= mensagem2 & "visitou o site Comunicando Jesus na Web " mensagem2= mensagem2 & "e enviou para você uma mensagem especial. " mensagem2= mensagem2 & "
" & "
" mensagem2= mensagem2 & " Clique aqui para ler a mensagem especial " mensagem2= mensagem2 & " " & "ou se preferir, digite o seguinte endereço: www.comunicandojesus.net/folhetos/vidanovaemjesus.asp " mensagem2= mensagem2 & "
" & "
" & "
" & "
" & "Atenciosamente," mensagem2= mensagem2 & "
" & "
" & "Equipe Comunicando Jesus na Web " mensagem2= mensagem2 & "
" & "webmaster@comunicandojesus.net " mensagem2= mensagem2 & "
"& " www.comunicandojesus.net " Mailer.FromName = "webmaster@comunicandojesus.net" Mailer.FromAddress= "webmaster@comunicandojesus.net" Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.ContentType = "text/html" Mailer.AddRecipient Request.Form("amigonome"),Request.Form("amigoemail") Mailer.Subject = "www.comunicandojesus.net - Mensagem Especial " Mailer.BodyText = mensagem2 Mailer.SendMail Set mailer = nothing Set mensagem2 = nothing MM_editRedirectUrl = "ok.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> <% Dim folheto Dim folheto_cmd Dim folheto_numRows Set folheto_cmd = Server.CreateObject ("ADODB.Command") folheto_cmd.ActiveConnection = MM_folheto_STRING folheto_cmd.CommandText = "SELECT * FROM folheto" folheto_cmd.Prepared = true Set folheto = folheto_cmd.Execute folheto_numRows = 0 %> www.comunicandojesus.net - IDE POR TODO O MUNDO COMUNICANDO JESUS NA WEB
->Home -> Folhetos Virtuais -> Vida Nova em Jesus
VIDA NOVA EM JESUS

Vida Nova em Jesus

Você está preocupado com sua vida? Não está satisfeito com seu modo de viver? Quer mudar mas não sabe como?

Eis a solução:

“Disse-lhes Jesus: Eu sou a ressurreição e a vida. Quem crê em mim, ainda que morra, viverá.” João 11:25.

Se só Jesus Cristo tem a vida eterna, só Jesus pode dar-lhe um novo modo de viver. Só Cristo pode mudar sua vida.

Jesus disse a Nicodemos: “Se alguém não nascer de novo, não pode ver o reino de Deus.” João 3:3.

Observe as palavras de Cristo: “nascer de novo”! Quer dizer nova vida, novo modo de viver, nova esperança.

Jesus disse: “Vinde a mim todos os que estais cansados e sobrecarregados, e Eu vos aliviarei.” Mateus 11:28.

Aceitando este convite que Jesus fez a Nicodemos, há quase 2000 anos, sua vida mudará imediatamente. Onde havia dor, haverá alegria, onde havia lutas e dissenções haverá paz, amor e tranqüilidade.

Ao crer nisto, você encontrara a Jesus. Desde o seu nascimento, Jesus tem procurado resgatá-lo. Hoje, Ele o encontrou. Jesus o quer porque o ama, pois no Calvário Ele deu Sua vida para poder salvá-lo das misérias deste mundo.

A morte de Cristo na cruz é a razão de nossa esperança.

Ele disse: “Eu vim para que tenham vida e a tenham em abundância.” João 10:10.

Você poderá ter vida em abundância com saúde, paz e alegria, nesta Terra e na eternidade, quando da breve volta de Jesus Cristo.

Lembre-se disto! Tenha vida. Vida em abundância.

Desejo enviar este folheto virtual para um amigo

Todos os campos são obrigatórios

Seu nome:

Seu e-mail:

Nome do seu amigo:

E-mail do seu amigo:

" /> " />

 

->Home -> Folhetos Virtuais -> Vida Nova em Jesus

 

IDE POR TODO O MUNDO COMUNICANDO JESUS A TODAS AS PESSOAS. Marcos 16:15
<% folheto.Close() Set folheto = Nothing %>