dag = WeekdayName(weekday(date()))
dag = ucase(left(dag,1)) & mid(lcase(dag),2)

response.write dag & " " & day(date()) & " " & MonthName(month(date())) & " " & year(date())