<% Dim a a=Date() Response.Write FormatDateTime(a,1) %> Time ::