Utskrift av datum

Vill ha utskriften av dagens datum på detta sätt, har letat ett tag men hittar det inte.

Onsdag 18 juni
Vecka 25

Här är ett sätt att lösa det på:

[red]<%

Function dateMod(ByVal str)

	str = trim(str)
	strDate = UCase(mid(weekdayname(weekday(str)),1,1)) & mid(weekdayname(weekday(str)),2) &" "& day(str) &" "& monthname(month(str))
	intWeek = DatePart("ww", str, 2)
	dateMod = strDate &"<br>Vecka "& intWeek

End Function

Response.Write dateMod(now)
			
%>[/red]

WeekdayName()
Day()
MonthName
DatePart()

Tack både Anders och Palle