Data com dia da semana e mês por extenso

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