<% Dim sDay,sMonth,sYear sDay=Day(Date) sMonth=Month(Date) sYear=Year(date) %> Untitled