This is part of a mod as we do not have if SecretAllowed <> 1 and Request.Form("Secret") <> "yes" in the base code:
You have:
strSql = strSql & ", F_LAST_POST_REPLY_ID = " & NawReplyID
Should this not be:
strSql = strSql & ", F_LAST_POST_REPLY_ID = " & NewReplyID
if SecretAllowed <> 1 and Request.Form("Secret") <> "yes" then
'## Forum_SQL
strSql = "UPDATE " & strTablePrefix & "FORUM "
strSql = strSql & " SET F_LAST_POST = '" & DateToStr(strForumTimeAdjust) & "'"
strSql = strSql & ", F_LAST_POST_AUTHOR = " & rs("MEMBER_ID")
strSql = strSql & ", F_LAST_POST_TOPIC_ID = " & Topic_ID
strSql = strSql & ", F_LAST_POST_REPLY_ID = " & NewReplyID
strSql = strSql & ", F_COUNT = F_COUNT + 1 "
strSql = strSql & " WHERE FORUM_ID = " & Forum_ID
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
end if
<