Microsoft.AspNetCore.Mvc.Localization.LocalizedHtmlStringmutiple replies same user

mutiple replies same user

Printed from: Snitz™ Forums 2000
URL: https://forum.snitz.com/forumTopic/Posts/69757?pagenum=1
Printed on: 05 November 2025, 03:32

Topic

Author : Rbrtpch
Subject : mutiple replies same user
Posted : 26 November 2010, 13:56
Message :

I know I saw the code somewhere but I can't find it:
I have users that make 2 consecutive replies to the same post. I want to prevent that.

Replies ...

Reply Author: Carefree
Replied on: 26 November 2010, 14:51
Message:

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:

Code:

and intLastPost < 30

"post.asp"

Code:


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"

Code:


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

Reply Author: Rbrtpch
Replied on: 26 November 2010, 17:40
Message:

Thanks!

Reply Author: Rbrtpch
Replied on: 27 November 2010, 20:09
Message:

actually I am getting an error

error '80040e14'

[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

sorry