This is cut n paste code:
function customDate(varDate)
if isNull(varDate) OR Trim(varDate) = "" OR varDate = "Null" THEN
customDate = "Null"
else
customDate = MonthName(DatePart("m", varDate), True) & ", " & Day(DateValue(varDate)) & ", " & TimeValue(varDate) & ""
end if
end function
dim dval
dVal = "2006/04/25 02:24:13"
response.write customDate(dVal)
Wind is your friend
Matt
|