This approach allows consecutive replies after 30 minutes have passed. If you want to change the minimum time (eg. 1440=1 day), change the 30 to your desired time. If you want to eliminate consecutive replies without regard to time passed, then delete this portion of that line:
and intLastPost < 30
"post.asp"
Look for the following lines (appx 233-236):
case "Reply", "ReplyQuote", "TopicQuote"
if ((blnCStatus = 0) or (blnFStatus = 0) or (blnTStatus = 0)) and (AdminAllowed = 0) then
Go_Result "You have attempted to Reply to a Locked Topic"
end if
After them, insert these:
if not mLev>2 then
strSql = "SELECT T_LAST_POST_AUTHOR, T_LAST_POST FROM " & strActivePrefix & "TOPICS WHERE TOPIC_ID = " & strRqTopicID
set rsLP = my_Conn.Execute(strSql)
intLastPost = datediff("n",ChkDate(rsLP("T_LAST_POST"),"",true),strForumTimeAdjust)
if MemberID = rsLP("T_LAST_POST_AUTHOR") and intLastPost < 30 Then
Go_Result "Consecutive replies not allowed, edit your last post in this thread."
end if
rsLP.Close
set rsLP = Nothing
end if
"topic.asp"
Look for the following line (appx 1092):
Sub QuickReply()
After it, insert these:
if not mLev>2 then
strSql = "SELECT T_LAST_POST_AUTHOR, T_LAST_POST FROM " & strActivePrefix & "TOPICS WHERE TOPIC_ID = " & TopicID
set rsLP = my_Conn.Execute(strSql)
intLastPost = datediff("n",ChkDate(rsLP("T_LAST_POST"),"",true),strForumTimeAdjust)
if MemberID = rsLP("T_LAST_POST_AUTHOR") and intLastPost < 30 Then
Go_Result "Consecutive replies not allowed, edit your last post in this thread."
end if
rsLP.Close
set rsLP = Nothing
end if
[MySQL][ODBC 3.51 Driver][mysqld-4.1.22-standard-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1
I think is this strRqTopicID seems to be empty
Never Mind In the topic.asp the variable used is Topic_ID and not strRqTopicID
mutiple replies same user
Posted - 26 November 2010 : 13:56:01
