%@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)
%>