</center></div>
<p><script language="VBScript"><!--
dim year
dim month
dim day
sub window_onload()
year=cstr(calRl.year)
month=cstr(calRl.month)
day=cstr(calRl.day)
rl.value=cstr(calRl.year)+"-"+cstr(calRl.month)+"-"+cstr(calRl.day)
end sub
sub calRl_Newyear()
year=cstr(calRl.year)
end sub
sub calRl_Newmonth()
Month=cstr(calRl.month)
end sub
sub calRl_Newday()
day=cstr(calRl.day)
end sub
sub menu1_onClick()
call window_onload()
end sub
--></script></p>
</body>
</html>