<%
function Julian( d )
Julian = datediff("D", dateserial( year(d),1,1) , d)
end function
var = Cdate("12/23/2003")
response.write "Date: " & var & "<br>" &_
"Julian date:" & Julian( var )
%>