Retornar a data por extenso

[Guest Carlos Eduardo]

<span style='color:red'>Retornar a data por extenso</span>

<%

dim vntMes, mes, diaSemana, diaMes, ano

redim vntMes(12)

vntMes(1) = "Janeiro"

vntMes(2) = "Fevereiro"

vntMes(3) = "Março"

vntMes(4) = "Abril"

vntMes(5) = "Maio"

vntMes(6) = "Junho"

vntMes(7) = "Julho"

vntMes(8) = "Agosto"

vntMes(9) = "Setembro"

vntMes(10) = "Outubro"

vntMes(11) = "Novembro"

vntMes(12) = "Dezembro"

mes = vntMes(month(date))

diaSemana = weekdayname(weekday(date))

diaMes = day(date)

ano = year(date)

%>

São Paulo, <%= diaSemana %> dia <%= diaMes %> de <%= mes% > de <% = ano %>

<span style='color:red'> by Carlos Eduardo </span>

Simplificando:

<span style='color:red'>Retornar a data por extenso</span>

<%

dim mes, diaSemana, diaMes, ano

mes = monthname(month(date))

diaSemana = weekdayname(weekday(date))

diaMes = day(date)

ano = year(date)

%>

Santa Catarina, <%= diaSemana %> dia <%= diaMes %> de <%= mes% > de <% = ano %>