Hämta vald veckas alla dagar och datum

Om du tar LarsG´s kod här
Sedan tar du det datumet du får ut av startday och kör i en loop x 7 så får du alla dagar och datum....

mv icaaq

Hmm okej.
Har detta nu:

		<%
		y = 2004
		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

		startday = dateadd("ww",currentWeek,startday)
		point = 1
		do while point < 7
			response.write startday+point & "<br>"
			point = point+1
		loop
		%>

men får följande resultat:

 3/6/1900
3/7/1900
3/8/1900
3/9/1900
3/10/1900
3/11/1900

Vilket ju är helt fel :D
Vad har jag gjort för fel nu då ? Observera att jag får variabeln currentWeek från ett annat ställe i koden och den stämmer.

hur definierar du firstday ?

[red]
<%

weekno = 9
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

startday = dateadd("ww",weekno,startday)
for i = 0 to 6
	Response.Write dateadd("d", i, startday) & " " & weekdayname(i+1, false, VBMonday) & "<br/>" & vbcrlf
next
        %>
[/red]

mv icaaq