[xanburzum]

<% Response.Write(UCase(Left(WeekDayName(WeekDay(Now)),1)) + Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1) &", "& Day(Date)&" de "&MonthName(Month(Now))&" de "&Year(Date)) %>

Outro exemplo:

Ex:


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

e para usar

Response.Write(ExibeData(objRS(“data”)))
Response.Write(ExibeData(Now()))