%@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) %>
|
||||||
|
||||||
>> Livro Krikati, Tio Clê e o Morro do Moreno é adotado em escolas. >> Fotos do Coquetel de Lançamento do Livro Krikati, Tio Clê e o Morro do Moreno. >> Entrevista com Walter de Aguiar Filho, autor do livro Krikati, Tio Clê e o Morro do Moreno. >> Fotos do lançamento do livro na Tenda da Cultura, em Itapoã, em jan/2007.
|
|
|||||
|