<%@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/abrirocoracaoadeus.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 -> Privilégio de Abrir o Coração a Deus
PRIVILÉGIO DE ABRIR O CORAÇÃO A DEUS

Privilégio de Abrir o Coração a Deus

Contemplamos no rosto das pessoas que nos cercam, a expressão de incerteza, aflição, indignação e sofrimento. A nossa existência e a de nossa família parece ameaçada a cada instante.

Encontramos nos ensinos e na vida de Jesus, uma demonstração de plena confiança em nosso Pai Celestial, Ele estava sempre em comunhão com Deus. A oração é o abrir do coração a Deus como a um amigo. Ele instruiu que deveríamos apresentar-Lhe todas as nossas necessidades e colocar sobre Ele todas as preocupações e ansiedades.

Quando apresentamos a Deus nossas necessidades, pesares, cuidados, temores e alegrias, Ele não fica indiferente, Ele sabe tudo sobre a nossa vida. Quando agimos desta maneira, demonstramos nossa plena confiança em Deus. “E, se sabemos que Ele nos ouve quanto ao que Lhe pedimos, estamos certos de que obtemos os pedidos que Lhe temos feito.” I João 5:15.

Jesus disse: “Tudo o que pedirdes, orando, crede que o recebereis e tê-lo-eis.” Marcos 11:24. A certeza que Ele nos dá é ampla, ilimitada; e fiel é Aquele que prometeu. Se não recebemos exatamente as coisas que pedimos e ao tempo desejado, devemos crer que o Senhor nos ouve, e que atenderá as nossas orações. Às vezes, pedimos coisas que não nos seriam uma bênção, e nosso Pai Celestial amorosamente nos atende, dando-nos aquilo que é para o nosso maior bem.

Estamos juntamente com um grupo de amigos, dedicando algum tempo durante a semana para orar uns pelos outros. Gostaríamos de convidá-lo, caso deseje, a participar deste grupo de oração. Caso não deseje participar orando pelo pedidos que chegam no grupo, pelo menos gostaríamos de orar por um pedido especial que você deseje. Clique aqui e acesse o nosso grupo de oraçã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 -> Privilégio de Abrir o Coração a Deus

 

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