Minimum number of posts for signatures

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

Minimum number of posts for signatures - Posted 29 Dec 2008 11:48 (1361 Views)

bobby131313

Senior Member

Posts: 1163

1163

I've searched and can't find this addressed anywhere.
I'm starting to get a lot of signature spam. Members are signing up, putting thier link in their signature and making BS posts just so it shows. It's really starting to tick me off.

I would like to not have signatures available till a user reaches say, 100 posts. Then these numbnuts would probably just go away.

Has this been done before and I just can't find it?<

Switch the order of your title tags

Posted 29 Dec 2008 13:36

SiSL

Average Member

Posts: 671

671

I don't think it has been done, however, easy to do with a few steps :)<

Posted 29 Dec 2008 22:09

Carefree

Advanced Member

Posts: 4224

4224

This should do what you want:

In "inc_profile.asp", look for the following (appx lines 512-515):

Code:



			Response.Write	"                      </select></font></td>" & vbNewLine & _
					"                    </tr>" & vbNewLine
		end if
	end if

Change them to say:

Code:



			Response.Write	"                      </select></font></td>" & vbNewLine & _
				"                    </tr>" & vbNewLine
		end if
	'	######## Signature On Post Count ########
	else
		Response.Write "Signature disabled until you have posted at least "& intPosts & "."
	end if
	'	######## Signature On Post Count ########
	end if

Next, look for the following (appx line 457):

Code:



	if strSignatures = "1" then

After it, insert the following:

Code:



		'	######## Signature On Post Count ########
		intTotalPosts = 0
		strSql="SELECT M_POSTS FROM  " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & MEMBERID
		Set rsPosts = Server.CreateObject("ADODB.Recordset")
		rsPosts.open strSql, my_Conn
		if rsPosts.EOF or rsPosts.BOF then
			'do nothing
		else
			intTotalPosts = rsPosts("M_POSTS")
		end if
		rsPosts.close
		set rsPosts = Nothing
		if intTotalPosts > intPosts then
		'	######## Signature On Post Count ########

Finally, look for the following (appx line 38):

Code:



Sub DisplayProfileForm

Above it, insert the following:

Code:



'	######## Signature On Post Count ########
intPosts=100
'	######## Signature On Post Count ########

Simply change the 100 to whatever quantity of posts are going to be required.<

Last edited by Carefree on 29 December 2008, 22:10

Posted 29 Dec 2008 22:46

bobby131313

Senior Member

Posts: 1163

1163

Awesome! Seems to be working great. I've been playing with it with no luck so this is greatly appreciated!
Thanks!<

Switch the order of your title tags

Posted 29 Dec 2008 23:02

Carefree

Advanced Member

Posts: 4224

4224

You're welcome.<