<%@ language=VBscript%> <% option explicit %> <% dim MyDate MyDate = WeekDayName(Weekday(Now())) & ", " & MonthName(Month(Now())) & " " & Day(Now()) & ", " & Year(Now()) %> <% response.write "

" & MyDate & "

Under Construction

Try Here