/*
Oi Martini,
A função existe e funciona, vc pode verificar no exemplo VBS abaixo q tb roda dentro do ASP abaixo:
<---script language="vbscript">
Public Function DataMesANo(vgData)
dim Mes
Mes = Month(vgData)
DataMesANo = MonthName(Mes) & "/" & year(vgData)
End Function
msgbox monthname(month(date)) & vbcrlf & weekday(date) & vbcrlf & weekdayname(weekday(date))
msgbox DataMesANo(Date)
<---script>
obs.: está comentado pra não dar pau aqui no post!
Grato novamente e feliz 2005 pra vc., família, vbweb, etc...
*/