Para quem precisa exibir a data completa com dia da semana e mês por extenso para saudação ou mesmo para noticias está ai um otimo código.
Ex:
Response.Write(ExibeData(objRS(“data”)))
Ex2:
Response.Write(ExibeData(Now()))
<% Function ExibeData(data) dia_semana = WeekDay(data) Select Case dia_semana Case 1 : dia_semana = "Domingo" Case 2 : dia_semana = "Segunda-Feira" Case 3 : dia_semana = "Terça-Feira" Case 4 : dia_semana = "Quarta-Feira" Case 5 : dia_semana = "Quinta-Feira" Case 6 : dia_semana = "Sexta-Feira" Case 7 : dia_semana = "Sábado" End Select mes = Month(data) Select Case mes Case 1 : mes = "Janeiro" Case 2 : mes = "Fevereiro" Case 3 : mes = "Março" Case 4 : mes = "Abril" Case 5 : mes = "Maio" Case 6 : mes = "Junho" Case 7 : mes = "Julho" Case 8 : mes = "Agosto" Case 9 : mes = "Setembro" Case 10 : mes = "Outubro" Case 11 : mes = "Novembro" Case 12 : mes = "Dezembro" End Select ExibeData = dia_semana & ", " & Day(Date()) & " de " & mes & " de " & Year(data) End Function ' Exemplo Response.Write(ExibeData(now())) %>