dim dd,mm,yy
dd=cstr(day(date))
mm=cstr(Month(date))
yy=cstr(year(date))
if len(mm)=1 then
mm="0"+mm
end if
document.writeln(yy+"Äê"+mm+"ÔÂ"+dd+"ÈÕ ")