<% //Load the weekday array dim dayarray(6) dayarray(0) = "Sunday" dayarray(1) = "Monday" dayarray(2) = "Tuesday" dayarray(3) = "Wednesday" dayarray(4) = "Thursday" dayarray(5) = "Friday" dayarray(6) = "Saturday" //Get the current date dateNow = Date() //Print today's day of the week iToday = Weekday(dateNow) sPrint = "Today is " & dayarray(iToday-1) & "." Response.Write(sPrint + "
") %>