%@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/pazondeencontrala.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
%>
O mundo anseia por paz.
As nações estipulam regras para viverem em paz entre si.
Tudo deve ser resolvido à não violência.
Tudo deve ser resolvido em paz.
Mas, para haver paz universal, é preciso primeiro que cada pessoa viva em paz consigo mesma.
E esta paz de espírito só Cristo pode nos proporcionar.
É Ele mesmo que afirma:
“Deixo-vos a paz, a minha paz vos dou”. – João 14:27
E Ele a dá sem restrições, a qualquer pessoa, sem cobrar nada em troca.
Basta crer; ir até Ele e aceitar esta paz que Ele tão bondosamente nos proporciona.
Certamente sua vida irá mudar para melhor.
Mesmo se o mundo ao seu redor estiver desabando, crendo em Cristo você sentirá paz no coração.
Para os momentos que vivemos não existe nada melhor.
Experimente Jesus!
Ele faz a diferença em sua vida.
->Home -> Folhetos Virtuais -> Paz, Onde Encontrá-la