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

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

   Dicas úteis

.
<% 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 Virtuais
   Wallpapers


<% 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 "" %>
<% ' MOSTRANDO OS DADOS ***************************************** if (request("busca") <> "") or (request("buscatop") <> "") then call(eval("Mostra_" & RTrim(request("opcao")) & "()")) end if ' ************************************************************ %>
<% Set db_CARTOES = DataBase_CARMOSION("db_cartoes") if (Err.Number <> 0) then response.write "
Não foi possível exibir a página.
" response.end end if if (RTrim(request("opcaocartao")) = "" ) then if (request("emaildestinatario") <> "") then SqlDestino = "select * from mensagem where id_msg = " & CInt(request("id")) set RsDestino = RecordSet_CARMOSION(SqlDestino, db_CARTOES, "") if not(RsDestino.eof) then response.write "

Você recebeu um cartao do site Carmo & Sion.

" response.write " De: " & RsDestino("de_msg") & "
" response.write " Para: " & RsDestino("para_msg") & "
" response.write " Visualizar: Clique aqui



" set RsDestino = nothing else response.redirect "index_cartoes.asp" end if end if response.write "

Escolha o estilo de cartão que você deseja:

" SqlTipoCartao = "select * from tipo order by nome_tipo" set RsTipoCartao = RecordSet_CARMOSION(SqlTipoCartao, db_CARTOES, "") cont = 1 do while not(RsTipoCartao.eof) if (RsTipoCartao("status") = true) then imagem = RsTipoCartao("imagemcc_tipo") response.write "" else imagem = RsTipoCartao("imagemsc_tipo") response.write "" end if resto = cont mod 3 if (resto = 0) then response.write "

" else response.write "" end if cont = cont + 1 RsTipoCartao.movenext loop set RsTipoCartao = nothing else response.write "Cartões :: " & RTrim(request("nomecartao")) & "

" Set db_CARTOESPEQ = DataBase_CARMOSION("db_cartoes") if (Err.Number <> 0) then response.write "

Não foi possível exibir a página.
" response.end end if SqlCartaoPeq = "select * from cartao where id_tipo = " & RTrim(request("id")) set RsCartaoPeq = RecordSet_CARMOSION(SqlCartaoPeq, db_CARTOESPEQ, "") contcard = 1 response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" do while not(RsCartaoPeq.eof) restocard = contcard mod 3 if (restocard = 0) then response.write "

" else response.write "      " end if contcard = contcard + 1 RsCartaoPeq.movenext loop response.write "
" set RsCartaoPeq = nothing db_CARTOESPEQ.close end if db_CARTOES.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 response.write " " & vbcrlf response.write " " & vbcrlf response.write " " & vbcrlf 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.