Sure, it's very easy.
In forum.asp
find these lines additions are in red.
'## Forum_SQL - Get all topics from DB
strSql ="SELECT T.T_STATUS, T.CAT_ID, T.FORUM_ID, T.TOPIC_ID, T.T_VIEW_COUNT, T.T_SUBJECT, T.T_DATE, T.T_MESSAGE, "
strSql = strSql & "T.T_AUTHOR, T.T_STICKY, T.T_REPLIES, T.T_UREPLIES, T.T_LAST_POST, T.T_LAST_POST_AUTHOR, "
strSql = strSql & "T.T_LAST_POST_REPLY_ID, M.M_NAME, MEMBERS_1.M_NAME AS LAST_POST_AUTHOR_NAME, T.T_MSGICON "
And further down,
tT_STATUS = 0
tCAT_ID = 1
tFORUM_ID = 2
tTOPIC_ID = 3
tT_VIEW_COUNT = 4
tT_SUBJECT = 5
tT_DATE = 6 'don't forget to change the number sequence below
tT_MESSAGE =7
tT_AUTHOR = 8
tT_STICKY = 9
tT_REPLIES = 10
tT_UREPLIES = 11
tT_LAST_POST = 12
tT_LAST_POST_AUTHOR = 13
tT_LAST_POST_REPLY_ID = 14
tM_NAME = 15
tLAST_POST_AUTHOR_NAME = 16
tT_MSGICON = 17
tT_NOTELET_STATUS = 18
tT_NOTELET_LAST_DATE = 19
tT_NOTELET_EDITBY = 20
tT_NOTELET_MESSAGE = 21
rec = 1
for iTopic = 0 to iTopicCount
if (rec = strPageSize + 1) then exit for
Topic_Status = arrTopicData(tT_STATUS, iTopic)
Topic_CatID = arrTopicData(tCAT_ID, iTopic)
Topic_ForumID = arrTopicData(tFORUM_ID, iTopic)
Topic_ID = arrTopicData(tTOPIC_ID, iTopic)
Topic_ViewCount = arrTopicData(tT_VIEW_COUNT, iTopic)
Topic_Subject = arrTopicData(tT_SUBJECT, iTopic)
Topic_Date = arrTopicData(tT_DATE, iTopic)
Topic_Message = arrTopicData(tT_MESSAGE, iTopic)
Topic_Author = arrTopicData(tT_AUTHOR, iTopic)
Topic_Sticky = arrTopicData(tT_STICKY, iTopic)
Topic_Replies = arrTopicData(tT_REPLIES, iTopic)
And now add it where you want it. This might help, I put mine above the subject.
if Topic_Sticky and strStickyTopic = "1" then Response.Write("Sticky: ")
strToolTip = ChkString(RemoveForumCode(RemoveHTML(Topic_Message)), "tooltip")
if RTrim(Len(strToolTip)) > 150 then
strToolTip = Left(strToolTip, 150) & "..."
end if
Response.Write " <span class=""post"">Posted on " & chkDate(Topic_Date," at ",true) & "</span><br />" & vbNewline & _
"<hr color=""#bdb76b"" width=""225px"">" & vbNewline & _
"<span class=""spnMessageText""><a href=""topic.asp?" & ArchiveLink & "TOPIC_ID=" & Topic_ID & """><acronym title=""" & strToolTip & """>" & formatStr(ChkString(Topic_Subject,"title")) & "</acronym></a></span> </font>" & vbNewLine
I also gave it a CSS class in the inc_header.asp
".post {" & vbNewline & _
"font-size: 10px;" & vbNewline & _
"font-weight: bold;" & vbNewline & _
"display: inline;" & vbNewline & _
"}" & vbNewline & _
Hope this helps