rite(FormatDate(now(),5)) ”

<   % 
call R esponse.w rite(FormatDate(now(),5)&\" \"& time()) 
Function FormatDate(DT,tp)
 dim Y,M,D
 Y=Year(DT)
 M=month(DT)
 D=Day(DT)
 if M<10 then M=\"0\"&M
 if D<10 then D=\"0\"&D
 select case tp
 case 0 FormatDate=Y&M&D
 case 1 FormatDate=Y&\"年\"&M&\"月\"&D&\"日\"
 case 2 FormatDate=Y&\"/\"&M&\"/\"&D
 case 3 FormatDate=M&\"/\"&D
 case 4 FormatDate=Y&\"\\\"&M&\"\\\"&D
 case 5 FormatDate=Y&\"-\"&M&\"-\"&D
 end select
End Function 
%   >