|
 |
<% datToday = Date() intThisDay = Day(datToday) strWeekDayName = WeekDayName(WeekDay(datToday), False, vbSunday) intThisMonth = Month(datToday) strThisMonth = MonthName(intThisMonth) Response.Write strWeekDayName & "," & " " & strThisMonth & " " & intThisDay & "," & " " & "2005" & " " & " " & " " & " " & " " %> |