Veckor, datum och att räkna bakåt i tiden

Jag har kört fast i något enkelt. Det var ett tag sedan jag öht knappade .asp. Jag provade mig fram med en kodsnutt jag hittade här på WF för att hämta värden från en databas veckovis. Koden hittade jag här -> http://www.webforum.nu/showpost.php?p=444333&postcount=24

Om jag nu vill stega framåt skickar jag in nytt datum en en querystring. Det funkar fint.
Men om jag vill stega bakåt hänger sig do until loopen, men jag kan för mitt liv inte begripa varför? :r

<% 
	if request.querystring("date") = "" then
		weekno = datepart("ww", date, 2, vbFirstFourDays)
	else
		weekno = datepart("ww",request.querystring("date"),2,vbFirstFourDays)
	end if
	
	y = year(now())
	
	startdate= y & "-01-01"

	Do Until DatePart("ww", startdate, 2, 2) = weekno
		startdate = DateAdd("d", 1, startdate)
	Loop %>