<%
nYear = 2010
nWeek = 10
dStartDate = DateAdd("ww", nWeek, dateserial(nYear,1,1) )
do while true
if Weekday(dStartDate) = 1 then
exit do
end if
dStartDate = dateadd("d",1,dStartdate)
loop
response.write "The sunday in week " & nWeek & " of " & nYear & " = " & dStartDate
%>