Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 mutiple replies same user

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
Rbrtpch Posted - 26 November 2010 : 13:56:01
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.
3   L A T E S T    R E P L I E S    (Newest First)
Rbrtpch Posted - 27 November 2010 : 20:09:09
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
Rbrtpch Posted - 26 November 2010 : 17:40:02
Thanks!
Carefree Posted - 26 November 2010 : 14:51:55
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

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.04 seconds. Powered By: Snitz Forums 2000 Version 3.4.07