%@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)
%>
Vista panorâmica de Vitória,
década de 20, óleo sobre tela. Autor desconhecido. Acervo
da Prefeitura de Vitória. Contribuição de Roberto Abreu. Clique
na foto para ampliar.
As 10 mais!
Fizemos
o levantamento das 10 matérias mais vistas durante
o ano de 2009 em nosso site para que você reveja.
Mais
uma vez, fotos. Aqui, os internautas puderam apreciar fotos
do nosso Estado panorâmicas ou em 360º. Todas de
autoria de Edson Quintaes. Clique
aqui para ver a página.