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

" %>

Prepare o seu paladar e viaje pelo mundo!

O Carmo & Sion é um dos maiores redutos boêmios e culinários da cidade.

Por aqui, você encontra o barzinho do seu gosto, confere os melhores temperos e o requinte da cozinha internacional.

.

Veja o guia completo destes estabelecimentos:


	> Bares > Botecos > Cafeterias > Choperias & Cervejarias > Fim de Noite > Happy-hour > Tira-gosto


	> Alemão > Árabe > Baiano > Churrascarias > Comida Mineira > Frutos do Mar > Italiano/Pizzarias > Japonês > Self-Service

<% ' 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.