Thanks, Dave.
I can't access the site either. But I will check it out later.
I have sort of managed to get it like this....
If ChkDate(Reply_Date, " : " ,false) = ChkDate(DateToStr(Date), " : " ,false) Then
Response.Write "Today" & chkTime(Reply_Date)
Else
Response.Write ChkDate(Reply_Date, " : " ,true)
End If
it looks a little clumsey. Is There a better way?
Edit: Its ok, I'm a divvy, getting to carried away with the snitz functions and forgetting VB!
If Left(Reply_Date, 8) = Left(DateToStr(Date), 8) Then
...would be a better solution!!! Lol!