%@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
%>
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.
->Home -> Folhetos Virtuais -> Voltará Jesus