<%
response.write(FormatDateTime(date(),vblongdate))
%>
<%
response.write(FormatDateTime(now(),vbshorttime))
%>
<%
Dim intMonth
intMonth = month(date)
if (intMonth = 3 or intMonth = 4 or intMonth = 5) then
response.Write "Spring"
elseif (intMonth = 6 or intMonth = 7 or intMonth = 8) then
response.Write "Summer"
elseif (intMonth = 9 or intMonth = 10 or intMonth = 11) then
response.Write "Autumn"
elseif (intMonth = 12 or intMonth = 1 or intMonth = 2) then
response.Write "Winter"
end if
%>
