<%@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/voltarajesus.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 -> Voltará Jesus
VOLTARÁ JESUS

Voltará Jesus

Em toda a Bíblia Sagrada a volta de Jesus é confirmada, tanto no Antigo como no Novo Testamento, através de mais de 700 afirmações. O Senhor Jesus confirmou a Seus discípulos a promessa de Sua volta, afirmando: “Virei outra vez”. João 14:3.

Por ocasião de Sua ascensão ao céu, enquanto os discípulos estavam ainda com os olhos fixos no céu, dois anjos colocaram-se diante deles afirmando: “Esse Jesus que estava com vocês e foi para o céu, voltará do mesmo modo que O viram subir.” Atos 1:11.

Os anjos confirmaram a volta de Jesus, dizendo que Ele voltará em presença visível, real, em corpo físico, assim como foi em Sua ascensão.

Há pessoas que dizem que Jesus Voltará apenas espiritualmente e que os justos serão arrebatados secretamente. Essa teoria é incoerente com as Escrituras. A Bíblia afirma que Ele virá de forma tão real e ostensiva quanto o relâmpago que ilumina o céu com fulgurante luz. Jesus confirma: “Pois assim como o relâmpago sai do oriente e se mostra até o ocidente, assim será também a vinda do Filho do homem.” Mateus 24:27.

O livro do Apocalipse diz que todos O verão. “Vede, Ele vem com as nuvens e todo o olho O verá.” Apocalipse 1:7.

Esse fantástico acontecimento inundará o céu de refulgente glória e fulgurante esplendor. Rodeado por milhões de anjos, aparecerá Cristo como o Rei dos reis e o Senhor dos senhores. “Porque o Filho do homem virá na glória de seu Pai, com os seus anjos; e então dará a cada um segundo as suas obras”. Mateus 16:27. Ele virá buscar os Seus filhos. Naquele momento, ressuscitará os mortos justos, afirma o apóstolo Paulo: “Porque o mesmo Senhor descerá do céu com alarido, e com voz de arcanjo e com a trombeta de Deus; e os que morreram em Cristo ressuscitarão primeiro. Depois nós, os que ficamos vivos, seremos arrebatados juntamente com eles nas nuvens, para o encontro do Senhor nos ares, e assim estaremos para sempre com o Senhor.” I Tessalonicenses 4:16 e 17.

Será o glorioso dia da vitória. Os mortos acordarão. Nossos queridos há tanto tempo separados pela desditosa morte, serão reencontrados num grandioso abraço para nunca mais nos separarmos. Criancinhas serão trazidas pelos anjos aos braços das mães. Quanta alegria! Glória sem fim! Será o dia da vitória! Os mortos acordarão! Os vivos serão transformados!

Será glorioso demais! Não sabemos descrever, nem imaginar tanta glória! Será o dia feliz da bendita esperança.

Quer você estar preparado para receber o seu abraço de amor naquele dia? Então aceite-O agora como seu Salvador!

Conheça mais sobre Jesus participando de um estudo bíblico.

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 -> Voltará Jesus

 

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