sum=0
for i=1900 to 2006
    if isLeapYear(i) then
        sum=sum+366
    else
        sum=sum+365
    end if
next
sum=sum+22
Response.Write Clng(Date()) & "<br>"&sum

function isLeapYear(pYear) 
    set oreg=new RegExp 
    oreg.Pattern="^\d{4}$" 
    if not oreg.Test(pYear) then 
        isLeapYear=false 
        exit function 
    end if 
    oYear=clng(pYear) 
    if ((oYear mod 4=0 and oYear mod 100<>0) or oYear mod 400=0) then 
       isLeapYear=true 
    else 
       isLeapYear=false 
    end if 
end function