<%
Response.Write WeekNrToDate(4,2000,1)

Function WeekNrToDate(varWeekNr,varYear,varDayNr)
varWeekNrThisYear = DatePart("ww",Cdate(varYear&"-01-01"),2,2)
If varWeekNrThisYear = 1 Then
varDayAdd = 0-(DatePart("w",Cdate(varYear&"-01-01"),2,2)-1)
Else
varDayAdd = 8-DatePart("w",Cdate(varYear&"-01-01"),2,2)
End If
varDayAdd = (7*(varWeekNr-1))+varDayAdd+(varDayNr-1)
WeekNrToDate = DateAdd("d",varDayAdd,Cdate((varYear&"-01-01")))
End Function
%>