<% 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) & "
" %>