%@Language=Vbscript%>
<%
Dim data
if DatePart("w", date) = 1 then Data = "Domingo, "
if DatePart("w", date) = 2 then Data = "Segunda-feira, "
if DatePart("w", date) = 3 then Data = "Terça-feira, "
if DatePart("w", date) = 4 then Data = "Quarta-feira, "
if DatePart("w", date) = 5 then Data = "Quinta-feira, "
if DatePart("w", date) = 6 then Data = "Sexta-feira, "
if DatePart("w", date) = 7 then Data = "Sábado, "
Data = Data & DatePart("d", date)
if DatePart("m", date) = 1 then Data = Data & " de Janeiro de " & DatePart("yyyy", date)
if DatePart("m", date) = 2 then Data = Data & " de Fevereiro de " & DatePart("yyyy", date)
if DatePart("m", date) = 3 then Data = Data & " de Março de " & DatePart("yyyy", date)
if DatePart("m", date) = 4 then Data = Data & " de Abril de " & DatePart("yyyy", date)
if DatePart("m", date) = 5 then Data = Data & " de Maio de " & DatePart("yyyy", date)
if DatePart("m", date) = 6 then Data = Data & " de Junho de " & DatePart("yyyy", date)
if DatePart("m", date) = 7 then Data = Data & " de Julho de " & DatePart("yyyy", date)
if DatePart("m", date) = 8 then Data = Data & " de Agosto de " & DatePart("yyyy", date)
if DatePart("m", date) = 9 then Data = Data & " de Setembro de " & DatePart("yyyy", date)
if DatePart("m", date) = 10 then Data = Data & " de Outubro de " & DatePart("yyyy", date)
if DatePart("m", date) = 11 then Data = Data & " de Novembro de " & DatePart("yyyy", date)
if DatePart("m", date) = 12 then Data = Data & " de Desembrto de " & DatePart("yyyy", date)
%>
O
ES tem suas vilas e lugarejos que ficam "escondidos"
da grande maioria dos turistas. Localizados no interior do
interior do estado, guardam agradáveis surpresas, com
histórias inusitadas e paisagens incríveis.
Conheça
um pouco mais esses nossos Recantos Escondidos aqui no site
Morro do Moreno.
Caso você conheça um desses lugares, fique a
vontade para contribuir com o site enviando histórias
e fotos. Nosso e-mail é contato@morrodomoreno.com.br
.