<% datToday = Date () intThisDay = day (datToday) strWeekdayName = WeekDayName(WeekDay(datToday), False, vbSunday) intThisMonth = Month(datToday) strThisMonth = MonthName(intThisMonth) suffix = "th" Select Case intThisDay Case 1,21,31: Suffix = "st" Case 2,22: Suffix = "nd" Case 3,23: Suffix = "rd" End Select Response.Write strWeekDayName & " " & strThisMonth _ & " " & intThisDay & ", 2003" %>