[script language = "vbscript" runat = "server"]
'/*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*
'* FUNCTION:
'    fnFormatDate
'* DESCRIPTION:
'    This function reformats a date into the format
'    d mmm yyyy (eg: 7 June 2000)
'* STATUS:
'* DOCUMENTED AT:
'    http://www.geocities.com/matth3wbishop/eg/asp/
'* CODE LOCATION:
'    http://www.geocities.com/matth3wbishop/eg/asp/
'* NOTES: I think I wrote this in Vbscript because I could
'    not find the equivalent functions in Jscript.
'    This function is used by fnShowRecord()
'*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*--*/


function fnFormatDate(dtSome)
  dim strF
  if (isDate(dtSome)) then
	  strF = cstr(Day(dtSome)) + " "
	  strF = strF + MonthName(Month(dtSome), true) + " "
	  strF = strF + cstr(Year(dtSome))
  else
    strF = dtSome  
  end if 
  fnFormatDate = strF
end function
[/script]