<%@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/libertosdaculpa.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 -> Libertos da Culpa
LIBERTOS DA CULPA

Muitas pessoas passam os seus dias aflitas, angustiadas, com o coração apertado, pressionadas pelo sentimento de culpa. Na Bíblia encontramos o caminho para estarmos libertos.

Cristo está pronto para nos libertar do sentimento de culpa, mas não contra nossa vontade. E, se não desejarmos ser libertos, nem aceitarmos a Sua graça e perdão, o que mais Ele poderá fazer?

Nós mesmos nos desgastamos e nos torturamos, por rejeitar Seu amor. “Este é o tempo em que Deus mostra a Sua bondade! Hoje é o dia de ser salvo!” II Coríntios 6:2. “Se hoje vocês ouvirem a voz de Deus, não sejam teimosos” Hebreus 3:7 e 8.

“O homem vê o que está diante dos olhos, porém o Senhor olha para o coração” I Samuel 16:7; esse coração humano com suas emoções de alegria e tristeza em conflito, coração instável e sem rumo, que está à procura de paz e liberdade.

Vá até Ele com seu coração manchado, do jeito que está agora. Faça como o salmista, abra o coração a Deus, e diga:

“Sonda-me, ó Deus, e conhece o meu coração; prova-me e conhece os meus pensamentos. E vê se há em mim algum caminho mau e guia-me pelo caminho eterno” Salmo 139:23 e 24.

“Cria em mim, ó Deus, um coração puro e renova em mim um espírito reto”. Salmo 51:10.

Estude, com oração, a Palavra de Deus. Ela apresenta, na lei de Deus e na vida de Cristo, os grandes princípios da santidade, “sem a qual ninguém verá o Senhor.” Hebreus 12:14.

Ela convence do pecado; revela claramente o caminho da salvação. Escute o que ela tem para dizer a você como sendo a voz de Deus falando ao seu coração.

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 -> Libertos da Culpa

 

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