Få ut dagar i veckan

Hej!
Jag har en kodsnutt som skall presentera dagens datum (endast dagen, inte månad och år) som ser ut så här.

<%
weekno = 42
y = 2004

firstday = y & "-01-01"
fweek = datepart("ww", firstday)
if fweek > 1 then
   startday = dateadd("d",8-weekday(firstday,vbmonday),firstday)
else
   startday = dateadd("d",-6-weekday(firstday,vbmonday),firstday)
end if

mon = dateadd("ww",weekno,startday)
tis = dateadd("d",1,startday)
ons = dateadd("d",2,startday)
tor = dateadd("d",3,startday)
fre = dateadd("d",4,startday)
lor = dateadd("d",5,startday)
son = dateadd("d",6,startday)

monDay = DatePart("d", mon, vbMonday, vbFirstFourDays)
tisDay = DatePart("d", tis, vbMonday, vbFirstFourDays)
onsDay = DatePart("d", ons, vbMonday, vbFirstFourDays)
torDay = DatePart("d", tor, vbMonday, vbFirstFourDays)
freDay = DatePart("d", fre, vbMonday, vbFirstFourDays)
lorDay = DatePart("d", lor, vbMonday, vbFirstFourDays)
sonDay = DatePart("d", son, vbMonday, vbFirstFourDays)
%>
<% = MonDay %><br>
<% = TisDay %><br>
<% = OnsDay %><br>
<% = TorDay %><br>
<% = FreDay %><br>
<% = LorDay %><br>
<% = SonDay %><br>

Men jag får bara ut 11,23,24,25,26,27,28.
Dag 1, dvs. Måndag stämmer dock alltid medans de andra vägrar ändra sig från 23,24,25,26,27,28.
Vad är felet? E lite Newbie och exprimenterar lite på en annan kodsnutt som jag fick men som var en loop och jag vil ha ut det som variabler.