[xanburzum]

Data e Hora no formato para o Brasil

<%
If WeekDay(Date) = 1 then
 Response.Write "Domingo, "
ElseIf WeekDay(Date) = 2 then
 Response.Write "Segunda-feira, "
ElseIf WeekDay(Date) = 3 then
 Response.Write "Terça-feira, "
ElseIf WeekDay(Date) = 4 then
 Response.Write "Quarta-feira, "
ElseIf WeekDay(Date) = 5 then
 Response.Write "Quinta-feira, "
ElseIf WeekDay(Date) = 6 then
 Response.Write "Sexta-feira, "
Else
 Response.Write "Sábado "
End If
%>
<%
Response.Write "" & Day(Date) & " de "
%>
<%
If Month(Date) = 1 then
 Response.Write "Janeiro"
ElseIf Month(Date) = 2 then
 Response.Write "Fevereiro"
ElseIf Month(Date) = 3 then
 Response.Write "Março"
ElseIf Month(Date) = 4 then
 Response.Write "Abril"
ElseIf Month(Date) = 5 then
 Response.Write "Maio"
ElseIf Month(Date) = 6 then
 Response.Write "Junho"
ElseIf Month(Date) = 7 then
 Response.Write "Julho"
ElseIf Month(Date) = 8 then
 Response.Write "Agosto"
ElseIf Month(Date) = 9 then
 Response.Write "Setembro"
ElseIf Month(Date) = 10 then
 Response.Write "Outubro"
ElseIf Month(Date) = 11 then
 Response.Write "Novembro"
Else
 Response.Write "Dezembro"
End If
%>
<%
Response.Write " de " & Year(Date) & ""
%>