% dim d,n,y,r n=Year(date()) y=Month(date()) r=Day(date()) if len(cint(y))=1 then y="0" & cstr(cint(y)) if len(cint(r))=1 then r="0" & cstr(cint(r)) d=n&"-"&y&"-"&r %>