asp classic vbscript date object to shortdate string