<%
dim dia, mes, ano, data
dia = weekday(date)
mes = month(date)
ano = year(date)
data = ""
if weekday(date) = 1 then data = data & "domingo" & ", " & day(now)& " de "
if weekday(date) = 2 then data = data & "Segunda-Feria" & ", " & day(now)& " de "
if weekday(date) = 3 then data = data & "Terça-Feira" & ", " & day(now)& " de "
if weekday(date) = 4 then data = data & "Quarta-Feira" & ", " & day(now)& " de "
if weekday(date) = 5 then data = data & "Quinta-Feira" & ", " & day(now)& " de "
if weekday(date) = 6 then data = data & "Sexta-Feira" & ", " & day(now)& " de "
if weekday(date) = 7 then data = data & "sabado" & ", " & day(now)& " de "
if month(date) = 1 then data = data & "Jan." & " de " & ano & "."
if month(date) = 2 then data = data & "Fev." & " de " & ano & "."
if month(date) = 3 then data = data & "Mar." & " de " & ano & "."
if month(date) = 4 then data = data & "Abr." & " de " & ano & "."
if month(date) = 5 then data = data & "Mai." & " de " & ano & "."
if month(date) = 6 then data = data & "Jun." & " de " & ano & "."
if month(date) = 7 then data = data & "Jul." & " de " & ano & "."
if month(date) = 8 then data = data & "Ago." & " de " & ano & "."
if month(date) = 9 then data = data & "Set." & " de " & ano & "."
if month(date) = 10 then data = data & "Out." & " de " & ano & "."
if month(date) = 11 then data = data & "Nov." & " de " & ano & "."
if month(date) = 12 then data = data & "Dez." & " de " & ano & "."
%>
