loop through year

Is there a way to loop through each date of a year if the year is provided?
Thank youHow about:

Dim dt As New Date(2004, 1, 1)
Do While Not dt = CDate("2005/1/1")
 dt = dt.AddDays(1)
 Response.Write(dt.ToString)
Loop

Hope this helps,
sivilian
thanks a lot that works