First create a backup of your forum.asp before you do anything else.
Here's what I did to get it working:
Edit line 237 from
strSql = strSql & "T.T_AUTHOR, T.T_STICKY, T.T_REPLIES, T.T_UREPLIES, T.T_LAST_POST, T.T_LAST_POST_AUTHOR, "
to by adding the red code
strSql = strSql & "T.T_AUTHOR, T.T_STICKY, T.T_REPLIES, T.T_UREPLIES, T.T_LAST_POST, T.T_DATE, T.T_LAST_POST_AUTHOR, "
lines 451 to 455 now look like this:
tT_LAST_POST = 10
tT_LAST_POST_AUTHOR = 11
tT_LAST_POST_REPLY_ID = 12
tM_NAME = 13
tLAST_POST_AUTHOR_NAME = 14
Change them to this (one line added and the numbers are changed):
tT_LAST_POST = 10
tT_TOPIC_POST = 11
tT_LAST_POST_AUTHOR = 12
tT_LAST_POST_REPLY_ID = 13
tM_NAME = 14
tLAST_POST_AUTHOR_NAME = 15
line 473 should look like this:
Topic_LastPost = arrTopicData(tT_LAST_POST, iTopic)
Add this below that line:
Topic_TopicPost = arrTopicData(tT_DATE, iTopic)
Line 535 looks like this:
Response.Write "<span class=""spnMessageText""><a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & """>" & ChkString(Topic_Subject,"title") & "</a></span> </font>" & vbNewLine
Change it to this:
Response.Write "<span class=""spnMessageText""><a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & """>" & ChkString(Topic_Subject,"title") & "</a><br />" & vbNewline & _
"<font size=""" & strFooterFontSize & """>Posted on <strong>" & ChkDate(Topic_TopicPost,"</strong> at<strong>",true) & "</strong></font></span> </font>" & vbNewLine
That ought to do the trick.