'************************************** ' Name: [ Long Date : March 8, 2002 ] ' Description:This writes out the full d ' ate with the month as a word. If there i ' s a better way to do this let me know. L ' eave comments if you want. ' By: snowboardr (from psc cd) ' ' ' Inputs:None ' ' Returns:None ' 'Assumes:PWS / IIS ' 'Side Effects:None '************************************** Function WriteLongDate() '//By Jason Howard '//March 8, 2002 Dim ThisMonth Dim ThisDay Dim ThisYear ThisMonth = month(date) ThisDay = day(date) ThisYear = year(date) Select Case ThisMonth Case 1 ThisMonth = "January" Case 2 ThisMonth = "February" Case 3 ThisMonth = "March" Case 4 ThisMonth = "April" Case 5 ThisMonth = "May" Case 6 ThisMonth = "June" Case 7 ThisMonth = "July" Case 8 ThisMonth = "August" Case 9 ThisMonth = "September" Case 10 ThisMonth = "October" Case 11 ThisMonth = "November" Case 12 ThisMonth = "December" End Select Response.write(ThisMonth) & " " & ThisDay & ", " & ThisYear set ThisMonth = Nothing set ThisDay = Nothing set ThisYear = Nothing End Function 'To output this just do this anywhere on ' your page: <% WriteLongDate %>