Date formatting in VBScript

A cheat sheet for people who want to format dates using VBScript

Use of concatentation to customise date display:

<% Response.Write WeekDayName(WeekDay(Now())) & _ ", " & MonthName(Month(Now())) & _ " " & Day(Now()) & ", " & Year(Now()) %>

To write out the ordinal suffix for the day:

<% Select Case Day(Now()) Case 1,21,31 ordsuffix = "st" Case 2,22 ordsuffix = "nd" Case 3,23 ordsuffix = "rd" Case else ordsuffix = "th" End select Response.Write (WeekDayName(WeekDay(Now()))) Response.Write (", ") Response.Write (MonthName(Month(Now()))) Response.Write (" ") Response.Write (Day(Now()) Response.Write (ordsuffix) Response.Write (" ") Response.Write (Year(Now()) %>