%
y = 2005
w = 44
d = CDate("1-Jan-" & y)
While DatePart("ww", d, vbMonday, vbFirstFourDays) > 1
d = d + 1
Wend
While DatePart("ww", d, vbMonday, vbFirstFourDays) < w
d = d + 1
Wend
Response.Write "Mandag = " & CStr(d) & "
"
d = d + 1
Response.Write "Tirsdag = " & CStr(d) & "
"
d = d + 1
Response.Write "Onsdag = " & CStr(d) & "
"
d = d + 1
Response.Write "Torsdag = " & CStr(d) & "
"
d = d + 1
Response.Write "Fredag = " & CStr(d) & "
"
%>