%@ 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 |
|
|
<%
select case cachoeira_num
case 1
%><%
case 2
%><%
case 3
%><%
case 4
%><%
case 5
%><%
case 6
%><%
case else
%><%
end select
%> |
|
|
|
|
|
|
|
|
|
|