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

Busca

chat. carmo-sion
   Canais
   Agitos
   Bares&Restaurantes
   Diversão & Cultura
   Eventos
   Igrejas
   Parques & Praças
   Telefones Úteis
   Utilidades

   Notícias

.

<% 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:
   Contate-nos
   Como Anunciar
   Mapa do Site

    Especiais:
   Cartões Postais
   Wallpapers

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

 






.

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.