<% @Language="VBScript"%> <% Response.Expires = 0 Set db_CARMOSION = DataBase_CARMOSION("db_carmosion") if (Err.Number <> 0) then response.write "Não foi possível exibir a página." response.end end if 'Chamando a função que mostra o banner BannerSWF = MostraBanner() %>

Busca

Home

Canais

Dicas

Site

Especiais

chat. carmo-sion

..Kids

..Encontros

..Idade - de 14 a 20

..Idade - de 21 a 40

..Idade - acima de 40

..Namoro

Canais

<% Dim ArrMenu(15) ArrMenu(0) = 2 ArrMenu(1) = 3 ArrMenu(2) = 5 ArrMenu(3) = 6 ArrMenu(4) = 7 ArrMenu(5) = 9 ArrMenu(6) = 10 ArrMenu(7) = 11 ArrMenu(8) = 14 ArrMenu(9) = 16 ArrMenu(10) = 18 ArrMenu(11) = 19 ArrMenu(12) = 20 ArrMenu(13) = 22 ArrMenu(14) = 24 for i = 0 to 14 response.write "" response.write " " response.write "" next set RsMenu = nothing %>

Facilidades

" response.write "

" 'Selecionando os itens e subitens ********************** SqlMenu = "select s.nome_segmento, ss.id_subsegmento, ss.nome from segmentos as s, subsegmentos as ss where s.id_segmento = " & ArrMenu(i) & " and ss.id_subsegmento_seg = s.id_segmento" set RsMenu = RecordSet_CARMOSION(SqlMenu, db_CARMOSION, "") response.write "" & RsMenu("nome_segmento") & "" & vbcrlf response.write "" & vbcrlf response.write "

Site:

Especiais:

<% 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 "" response.write "" response.write "

" & request("nome") & "

" 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 "" response.write "" response.write "" response.write "" response.write "" response.write "

" & RsProcura("nome") & "

" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "

Telefone:

" & RsProcura("telefone") & "

" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "

Endereço:

" & RsProcura("logradouro") & " " & RsProcura("endereco") & ", nº " & RsProcura("numero") & "

" if (RsProcura("complemento") <> "") then response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "

Complemento:

" & RsProcura("complemento") & "

" end if response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "

Ramo de Atividade:

" & RsProcura("nome_subsegmento_sub") & "

" 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 "" 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 "

" end if set RsProcura = nothing end if %>

<% set db_CINE = DataBase_CARMOSION("db_cinema") if (Err.Number <> 0) then response.write "Não foi possível exibir a página." response.end end if if (request("idcine") = "") then SqlCinema = "select * from cinema where status_cinema = 'ce' and online_cinema = true" else SqlCinema = "select * from cinema where id_cinema = " & CInt(request("idcine")) end if set RsCinema = Recordset_CARMOSION(SqlCinema, db_CINE, "") %>

<% SqlData = "select id_cinema, datainicio_cinema, datafim_cinema from cinema where id_cinema = 1" set RsData = Recordset_CARMOSION(SqlData, db_CINE, "") response.write "Horários válidos até " & RsData("datafim_cinema") & " (a partir de " & RsData("datainicio_cinema") & ")" & vbcrlf set RsData = nothing %>

" align="absmiddle">	Origem: <%=RsCinema("origem_cinema")%> Direção: <%=RsCinema("direcao_cinema")%> Elenco: <%=RsCinema("elenco_cinema")%> <%=RsCinema("sinopse_cinema")%>
Cinemas: <%=RsCinema("horarios_cinema")%>

Censura: <%=RsCinema("censura_cinema")%>

<% set RsCinema = nothing db_CINE.close %>

<% ' MOSTRANDO OS DADOS ***************************************** if (request("busca") <> "") or (request("buscatop") <> "") then call(eval("Mostra_" & RTrim(request("opcao")) & "()")) end if ' ************************************************************ %>

<% response.write "

" & vbcrlf response.write"

" & vbcrlf %>

Busca Avançada
	Buscar:

Tipo de procura:
Nome Rua
Ramo Atividade

	Procurar em:

Agitos - Bares & Restaurantes - Diversão & Cultura - Eventos
Igrejas - Parques & Praças - Telefones Úteis - Utilidades
Contate-nos - Como anunciar - Mapa do Site
Cartões Postais - Wallpapers

Site melhor visualizado 800 x 600 pixels - IE 4.0 ou superior
©2001 WebSol. Todos os direitos reservados.