%@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/umnovocomeco.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
%>
Ah! Se eu pudesse começar de novo...
Existe muita gente falando assim.
Alguns por viverem à sombra de uma culpa que lhes incomoda a consciência. Outros por oportunidades perdidas ou desperdiçadas.
Há aqueles que desejam começar de novo porque já sofreram tantas perdas que chegaram à conclusão que não há mais conserto para sua vida.
Quase todos gostariam de aproveitar a chance de um novo começo. Mesmo aqueles que podem dizer “Se eu pudesse fazer tudo de novo, faria exatamente como a primeira vez,” sabem que, como sociedade, há muitas coisas que precisariam ser diferentes.
A mesma sociedade precisa de um novo começo. Uma nova oportunidade para viver sem as conseqüências das tragédias, coletivas ou individuais, ou sem as injustiças sociais; sem a crueldade e o irracionalismo da guerra; sem os atos de violência contra o cidadão, criança, a mulher; sem o sentimento de insegurança; sem os desvios da moral.
Se toda a humanidade pudesse começar de novo, com novos ideais, com novos valores morais, com mais respeito pelos direitos humanos, com novos critérios políticos, sem ser atingida pelas enfermidades, pelas doenças, seria, na realidade, Um novo começo para todos.
Começar de Novo
Este é o propósito de Deus em relação a este planeta sofrido por tantas tragédias. Ele diz: “Eis que crio novos céus e nova terra”. Isaías 65:17.
O novo começo se dará por ocasião da Volda de Jesus a este mundo. Sua volta foi prometida por Ele mesmo: “Virei outra vez”.
1 – A volta à vida daqueles que morreram tendo fé em Cristo.
“Porquanto, o Senhor mesmo, dada a Sua palavra de ordem, ouvida a voz do arcanjo, e ressoada a trombeta de Deus, descerá dos céus, e os mortos em Cristo ressuscitarão primeiro”. I Tessalonicenses 4:16.
2 – A eliminação da doença e da morte.
“Nenhum morador de Jerusalém dirá: estou doente”. Isaías 33:24.
“E lhes enxugará dos olhos toda lágrima, e a morte já não existirá, já não haverá luto, nem pranto, nem dor, porque as primeiras coisas já passaram”. Apocalipse 21:4.
3 – A vida em segurança, em lugares seguros e próprios para habitação.
“Na casa de Meu Pai há muitas moradas... Vou preparar-vos lugar”. João 14:2.
“O Meu povo habitará em moradas de paz, em moradas bem seguras, e em lugares quietos e tranqüilos”. Isaías 32:18.
4 – A transformação ecológica do planeta.
“...águas arrebentarão no deserto e ribeiros no ermo. A areia esbraseada se transformará em lagos e a terra sedenta em mananciais de água!. Isaías 35:6 e 7.
5 – A transformação do ser humano.
“...mas transformados seremos todos. Num momento, num abrir e fechar de olhos... nós seremos transformados... quando este corpo corruptível se revestir da incorruptibilidade e o que é mortal se revestir de imortalidade...” I Coríntios 15:51-54.
Na verdade, tal transformação do homem, da sociedade, deste velho mundo, pode ser chamada de Um Novo Começo.
Graças à misericórdia de um Deus de amor e Seu interesse por nós, haverá este Novo Começo.
Os apóstolos João e Pedro escreveram sobre o Novo Começo:
“Vi novo céu e nova terra, pois o primeiro céu e a primeira terra já passaram...”.
“Nós, porém, segundo a Sua promessa, esperamos novos céus nos quais habita justiça”.
O próprio Jesus diz: “Eis que faço novas todas as coisas”.
Este é o Novo Começo que todos almejamos. E ele se dará por ocasião da Volta de Jesus, o que ocorrerá em breve.
Ele mesmo diz: “Eis que venho sem demora”. E esta frase se repete seis vezes no livro do Apocalipse.
Ele vem logo. Logo haverá Um Novo Começo.
Não fique fora deste plano de Deus.
->Home -> Folhetos Virtuais -> Um Novo Começo