Dim monthName(12)
				monthName(0)=""
				monthName(1)="January"
				monthName(2)="February"
				monthName(3)="March"
				monthName(4)="April"
				monthName(5)="May"
				monthName(6)="June"
				monthName(7)="July"
				monthName(8)="August"
				monthName(9)="September"
				monthName(10)="October"
				monthName(11)="November"
				monthName(12)="December"

				function GetDate(anyDate)
				if not isDate(anyDate) then Exit Function
				varMonth=monthName(Month(anyDate)) & " "
				varDay=Day(anyDate) & ", "
				varYear=Year(anyDate)
				GetDate=varMonth & varDay & varYear
				end function
				 	Document.Write(GetDate(Date()))