<%
if (InStr(Request.ServerVariables("PATH_INFO"),"index_") <> 0) then
QualPag = Trim(Mid(Request.ServerVariables("PATH_INFO"),InStr(Request.ServerVariables("PATH_INFO"),"index_"),len(Request.ServerVariables("PATH_INFO"))))
else
QualPag = ""
end if
resto = (Second(now()) mod 2)
QualBanner = "ud"
if (QualPag = "index_agitos.asp") then
if (resto = 0) then
QualBanner = "cds"
else
QualBanner = "dvds"
end if
end if
if (QualPag = "index_cronicas.asp") then
if (resto = 0) then
QualBanner = "livros"
else
QualBanner = "dvds"
end if
end if
if (QualPag = "index_bares_restaurantes.asp") then
if (resto = 0) then
QualBanner = "eletrodom"
else
QualBanner = "ud"
end if
end if
if (QualPag = "index_cultura_diversao.asp") then
if (resto = 0) then
QualBanner = "eletro"
else
QualBanner = "cinefoto"
end if
end if
if (QualPag = "index_eventos.asp") then
if (resto = 0) then
QualBanner = "belezasaude"
else
QualBanner = "presentesfinos"
end if
end if
if (QualPag = "index_utilidades.asp") then
if (resto = 0) then
QualBanner = "info"
else
QualBanner = "telefonia"
end if
end if
response.write ""
response.write ""
%>
<%
if (request("busca") <> "") then
response.write "
"
response.write "
"
response.write "
"
response.write "
"
response.write "
" & request("nome") & "
"
response.write "
"
response.write "
"
set RsMenu = nothing
sProcura = CInt(request("busca"))
SqlProcura = "select cs.nome, end.*, sub.nome_subsegmento_sub from carmosion as cs, enderecos as end, subsegmentosult as sub where id_segmento_carmosion in(select id_subsegmento_sub from subsegmentosult where id_subsegmento_sub_seg = " & sProcura & ") and cs.id_carmosion = end.id_carmosion_end and sub.id_subsegmento_sub = cs.id_segmento_carmosion order by cs.nome"
set RsProcura = RecordSet_CARMOSION(SqlProcura, db_CARMOSION, "")
RsProcura.PageSize = 5
RsProcura.CacheSize = 5
Registros = RsProcura.RecordCount
Resto = Registros mod 5
if (Resto <> 0) then
QtdePags = Int(Registros/5) + 1
else
QtdePags = Int(Registros/5)
end if
response.write Registros & " || " & QtdePags
AtualLocalizacao = CInt(request("localizacao"))
if (RTrim(request("qualpagina")) = "") then
RsProcura.AbsolutePage = 1
else
if (RTrim(request("qualpagina")) = "anterior") then
Localizacao = AtualLocalizacao - 1
RsProcura.AbsolutePage = Localizacao
else
Localizacao = AtualLocalizacao + 1
RsProcura.AbsolutePage = Localizacao
end if
end if
' response.write RsProcura.RecordCount
cont = 1
do while not(RsProcura.eof)
response.write "
"
if (RsProcura("complemento") <> "") then
response.write "
"
response.write "
"
response.write "
"
response.write "
Complemento:
"
response.write "
" & RsProcura("complemento") & "
"
response.write "
"
response.write "
"
end if
response.write "
"
response.write "
"
response.write "
"
response.write "
Ramo de Atividade:
"
response.write "
" & RsProcura("nome_subsegmento_sub") & "
"
response.write "
"
response.write "
"
response.write " "
RsProcura.MoveNext
If (cont = RsProcura.PageSize) then
exit do
end if
cont = cont + 1
loop
if (RsProcura.RecordCount > 5) then
response.write " "
response.write "
"
response.write "
"
response.write "
"
response.write ""
if (request("qualpagina") = "") then
response.write "anterior"
else
response.write "anterior"
end if
response.write "anterior"
response.write "próximo"
response.write "
"
response.write "
"
response.write "
"
end if
set RsProcura = nothing
end if
%>
.
Um trabalho voltado ao social
Uma
das principais igrejas e cartão postal de BH, a Paróquia
N.S. do Carmo desempenha um importante trabalho junto
à comunidade do Carmo & Sion.
Notícias da Comunidade
1) Epiritualidade - No dia 05/11,
3ª feira, às 18h30, o tema do "Recolhimento
Espiritual" será Espiritualidade
Contemporânea. Contaremos com a participação
de Celeste R. Soares, presidente da creche
Terra Nova. No próximo sábado, dia 09/11,
das 08h às 12h, faremos uma manhã
de retiro, com frei Cláudio, sobre o tema
O TRAJETO DE JONAS. Até 4ª
feira, inscrições na secretaria.
2) Medicina Naturista - Massagem
Terapêutica - Leitura Corporal - 4ª
feira, das 14h às 16h. Contato
com Maira (3281-3216).
3) Jornal CARRILHÃO - Pede-se aos
leitores que enviem sua avaliação - resposta
ao questionário. Entregar na secretaria
ou na igreja.
4) Bazar de Arte Manual - Selma
e Imaculada farão o seu bazar - para ajudar
nossas Obras sociais - de Pintura em
Porcelana, Bordados, Artesanais, Bijouterias,
e Presépios de madeira. Será no dia
08/11, das 14 às 19h, em
nosso Salão Comunitário.
5) Missa em Prédios - No dia 21/11,
terá início a celebração de Missas
em Prédios. Favor registrar o pedido
na secretaria, com antecedência. Daremos
prioridade aos prédios que ainda não tiveram
esta oportunidade.
Outras
Notícias
>> Campanha
Nossa Campanha do Cobertor angariou 450
cobertores e dinheiro para mais de 100; estão
sendo encaminhados para Sociedade de S. Vicente
de Paulo, à Rua Rio Verde, para o bazar do nosso
Ambulatório e para a Pastoral do Menor. Em nome
dos beneficiados, nosso cordial agradecimento.
Valeu.
>> Cobertor
Participe de nossa Campanha do Corbertor.
Deixe sua contribuição na secretaria ou traga
na hora da Missa. Vamos aquecer o frio dos carentes.
>> Aulas de bordado
O "Clube de mães" oferece a oportunidade
aos interessados em aprender bordadod finos,
crochet e tricot toda 2ª feira, de 14:30 às
16:00 hs, no Salão Nobre.
>> IJUC (Instituto Jurídico de
Cidadania)
Esta ONG presta orientação
jurídica gratuita à população
e organiza grupos de estudo e seminários.
No momento precisa urgentemente de 4 computadores
e doação de recurços financeiros.
Tel.: 3224-4213 e 3224-4623.
>> Grupo de Oração
Oração e Solidariedade com
visitas aos menos favorecidos. Encontro em toda
4ª feira, às 15 hs, na capela Sto.
Elias ( na Igreja). Novos participantes são
bem-vindos.
>>
Equipe de Acolhida
Há pessoas que gostam de encontrar nossa igreja aberta,
na parte da tarde. Precisamos de mais alguns voluntários
para manter este serviço pastoral. Contato: Cláudia
- 3221-3055, à tarde.
>> Convocação
Solicitamos voluntários - enfermagem e clinica geral
- (Ambulatório); e doação de flanela
e de tecido para enxoval de bebê (Corte e Costura).
(Nilda: 3225-7934)
>>
Saúde Global
Estarão funcionando, em breve, os sérviços
de Reiki, Shiatsu, Massagem e Acupuntura, na
2ª, 3ª, 4ª na parte da tarde e na 5ª à noite.
Informações na secretaria.
>>Legido de Maria
Reuniões
nas 5ª-feiras, as 15hs. Há lugar para quem
se dispõe a levar lenitivo a famílias
e enfermos, em lares e hospitais. Contato: Cleonice
- 3285 -3937 e Geralda - 3221-2845.
<%
' MOSTRANDO OS DADOS *****************************************
if (request("busca") <> "") or (request("buscatop") <> "") then
call(eval("Mostra_" & RTrim(request("opcao")) & "()"))
end if
' ************************************************************
%>
![](http://afiliados.submarino.com.br/afiliados/banner/categoria_full_" & QualBanner & ".gif)
