<%@ Language=VBScript %> <% option explicit dim link_serv, cachoeira,ativagoogle_esq,ativagoogle_dir, cachoeira_num link_serv = "../" cachoeira = request.querystring("cachoeira") ativagoogle_esq=1 ativagoogle_dir=1 select case cachoeira case "agua_branca" cachoeira_num = 2 case "ipiranguinha" cachoeira_num = 3 case "prumirim" cachoeira_num = 4 case "escada" cachoeira_num = 5 case "renata" cachoeira_num = 6 case else cachoeira_num = 1 end select %> Cachoeiras de Ubatuba - Ubatuba.com.br - Guia Turístico de Ubatuba
<%'call mostrar_banners2("","banneranunc/vivamar150x86", "Vivamar", 150, 86, "FFFFFF",1,"window")%>

 

 

Selecione a cachoeira desejada

 

Água Branca

Ipiranguinha Prumirim
Escada

Macacos (Breve)

Renata
<% select case cachoeira_num case 1 %><% case 2 %><% case 3 %><% case 4 %><% case 5 %><% case 6 %><% case else %><% end select %>