<%@LANGUAGE="VBSCRIPT"%> <% Dim estanabiblia Dim estanabiblia_cmd Dim estanabiblia_numRows Set estanabiblia_cmd = Server.CreateObject ("ADODB.Command") estanabiblia_cmd.ActiveConnection = MM_maranata_STRING estanabiblia_cmd.CommandText = "SELECT * FROM estanabiblia WHERE dia = day(now()) and mes = month(now())" estanabiblia_cmd.Prepared = true Set estanabiblia = estanabiblia_cmd.Execute estanabiblia_numRows = 0 %> <% Dim tempoderefletir Dim tempoderefletir_cmd Dim tempoderefletir_numRows Set tempoderefletir_cmd = Server.CreateObject ("ADODB.Command") tempoderefletir_cmd.ActiveConnection = MM_maranata_STRING tempoderefletir_cmd.CommandText = "SELECT * FROM tempoderefletir WHERE dia = day(now()) and mes = month(now())" tempoderefletir_cmd.Prepared = true Set tempoderefletir = tempoderefletir_cmd.Execute tempoderefletir_numRows = 0 %> <% Dim falandoaocoracao Dim falandoaocoracao_cmd Dim falandoaocoracao_numRows Set falandoaocoracao_cmd = Server.CreateObject ("ADODB.Command") falandoaocoracao_cmd.ActiveConnection = MM_maranata_STRING falandoaocoracao_cmd.CommandText = "SELECT * FROM falandoaocoracao WHERE dia = day(now()) and mes = month(now())" falandoaocoracao_cmd.Prepared = true Set falandoaocoracao = falandoaocoracao_cmd.Execute falandoaocoracao_numRows = 0 %> <% Dim curiosidades__MMColParam curiosidades__MMColParam = "1" Randomize rncod = Rnd * 141 strcodigo = Int(rncod) + 1 curiosidades__MMColParam = Int(rncod) + 1 If (Request.QueryString("strcodigo") <> "") Then curiosidades__MMColParam = Request.QueryString("strcodigo") End If %> <% Dim curiosidades Dim curiosidades_cmd Dim curiosidades_numRows Set curiosidades_cmd = Server.CreateObject ("ADODB.Command") curiosidades_cmd.ActiveConnection = MM_curiosidades_STRING curiosidades_cmd.CommandText = "SELECT * FROM Textos WHERE Codigo = ?" curiosidades_cmd.Prepared = true curiosidades_cmd.Parameters.Append curiosidades_cmd.CreateParameter("param1", 5, 1, -1, curiosidades__MMColParam) ' adDouble Set curiosidades = curiosidades_cmd.Execute curiosidades_numRows = 0 %> Comunicando Jesus na Web - www.comunicandojesus.net - www.comunicandojesus.com

 

 

 

 

Compartilhe Esperança

Seja Bem-Vindo(a) ao site ComunicandoJesus.Net. Nosso objetivo é Comunicar Jesus na Web.
No momento nosso site está passando por processo de reformulação. Alguns serviços ficarão inativos.

biblia Como estudar a Bíblia
Curiosidades Bíblicas
Cursos Bíblicos
Guia de Estudo
Pesquisa na Bíblia
Áudios

oração

 

 GRUPO DE ORAÇÃO
"...e orai uns pelos outros..."
Envie seu pedido de oração.
Seja um intercessor.

Radio Advai

Rádio e TV Novo Tempo

Rádio Maranatha

Nos ajude com bíblias clicando no banner :

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