Snitz Forums 2000 - Thanks Mod Revisited

Author

Topic

Page: of 4

MaGraham
Senior Member

USA
1297 Posts

Posted - 29 March 2013 : 23:15:16

This just sounds super exciting!

I especially like the thought of an option to change from "thanks" to "like" with this!

"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Giumer
Junior Member

Italy
163 Posts

Posted - 12 April 2013 : 05:11:49

anyone have solotuion ?

=======================
http://www.Giumer.it/forum

=======================

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 12 April 2013 : 11:49:37

Working on it, Giumer. Taking longer than I thought it would, keep interrupting myself with other short-termed projects.

Giumer
Junior Member

Italy
163 Posts

Posted - 12 April 2013 : 12:04:51

ok mate thx !

=======================
http://www.Giumer.it/forum

=======================

golfmann
Junior Member

United States
450 Posts

Posted - 08 May 2013 : 10:34:29

Any "luck" ?

If you ever get it I say we name it the Carefree Thanks Mod

Edited by - golfmann on 09 May 2013 14:55:12

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 09 May 2013 : 22:05:02

I'll finish it sooner or later. I suppose I should try and concentrate on it more. Don't know what it is about this one, I work on it a few minutes and do almost anything else to get away.

golfmann
Junior Member

United States
450 Posts

Posted - 09 May 2013 : 22:47:24

If I can help beta test or something, let me know. I am sure others are willing to pitch in as well.

You're not alone, ya' know...

AnonJr
Moderator

United States
5768 Posts

Posted - 10 May 2013 : 08:49:42

quote:
Originally posted by Carefree

I'll finish it sooner or later. I suppose I should try and concentrate on it more. Don't know what it is about this one, I work on it a few minutes and do almost anything else to get away.

I've got a project or two like that myself.

Giumer
Junior Member

Italy
163 Posts

Posted - 03 October 2013 : 22:37:46

Carefree mate have news for this mod ?

=======================
http://www.Giumer.it/forum

=======================

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 06 March 2015 : 07:06:46

I had forgotten this project. I'm really good at forgetting now. At any rate, I finished this idea before I forgot about it. This allows all members to express "Thanks" for a topic/reply, only once each. Members cannot "Thank" their own post. It displays the count beside the icon. I chose NOT to have it display names of thanking users. The link is disabled if not a member or if a member has already "Thanked" a topic/reply. There is also prevention to preclude someone creating the link for an automatic script.

Get an updated copy on SnitzBitz or follow instructions below.

Super easy to install, maybe a 1 out of 10.

1. Save the following as "dbs_thanks.asp" in your forum folder, run it from the admin console.


Thanks 1.0
[CREATE]
THANKS

TOPIC_ID#INT##0
REPLY_ID#INT##0
MEMBER_ID#INT##0
[END]

2. Modify the following two files as indicated:

"inc_iconfiles.asp"


Look for the following line (appx 148):

Const strIconZap = "icon_zap.gif|16|16"

Below it, insert this:

Const strIconThanks = "icon_thanks.png|23|22"

"topic.asp"


Look for the following lines (appx 842-844):

	Response.Write	"                      <hr noshade size=""" & strFooterFontSize & """></td>" & vbNewLine & _
			"                    </tr>" & vbNewLine & _
			"                    <tr>" & vbNewLine & _

Above those, insert these:

	
	'	##	Thanks Below
	intCnt = 0 : intTY = 0
	strSqlTY = "SELECT * FROM " & strTablePrefix & "THANKS WHERE TOPIC_ID=" & Request("TOPIC_ID") & " AND MEMBER_ID=" & MemberID & " AND REPLY_ID = 0"
	Set rsTY=my_Conn.Execute(strSqlTY)
	If (rsTY.BOF Or rsTY.EOF) And (TMember_ID <> MemberID) And (mLev > 0) Then
	If (Request("Thanks") > "") And (Request("REPLY_ID")<1) Then
		my_Conn.Execute("INSERT INTO " & strTablePrefix & "THANKS (MEMBER_ID, TOPIC_ID) VALUES (" & MemberID & ", " & ChkString(Request("TOPIC_ID"), "SQLString") & ")")
		End If
	Else
		intTY=1
		rsTY.Close
	End If
	Set rsTY = Nothing
	strSqlTY = "SELECT COUNT(MEMBER_ID) AS CNT FROM " & strTablePrefix & "THANKS WHERE REPLY_ID=0 AND TOPIC_ID=" & TOPIC_ID
	Set rsTY=my_Conn.Execute(strSqlTY)
	If Not rsTY.EOF Then
		intCnt = rsTY("CNT")
		rsTY.Close
	End If
	Set rsTY = Nothing		
	If (TMember_ID <> MemberID) And (intTY = 0) And (mLev > 0) Then
		Response.Write	"                       <a href=""topic.asp?Thanks=" & MemberID & "&method=" & Request("method") & "&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "</a> <font color=""" & strHiLiteFontColor & """>" & intCnt & "</font>" & vbNewLine
	Else
		Response.Write	getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "<font color=""" & strHiLiteFontColor & """>" & intCnt & "</font>" & vbNewLine										
	End If
	'	##	Thanks Above


Next, look for the following lines (appx 641-643):

			Response.Write	"                      <hr noshade size=""" & strFooterFontSize & """></td>" & vbNewLine & _
					"                    </tr>" & vbNewLine & _
					"                    <tr>" & vbNewLine & _


Above those, insert these:


			'	##	Thanks Below
			intCnt = 0 : intTY = 0
			strSqlTY = "SELECT * FROM " & strTablePrefix & "THANKS WHERE TOPIC_ID=" & Reply_TopicID & " AND MEMBER_ID=" & MemberID & " AND REPLY_ID=" & Reply_ReplyID
			Set rsTY=my_Conn.Execute(strSqlTY)
			If (rsTY.BOF Or rsTY.EOF) And (Reply_MemberID <> MemberID) And (mLev > 0) Then
				If Request("Thanks") > "" Then
					my_Conn.Execute("INSERT INTO " & strTablePrefix & "THANKS (MEMBER_ID, TOPIC_ID, REPLY_ID) VALUES (" & MemberID & ", " & ChkString(Request("TOPIC_ID"), "SQLString") & ",  " & ChkString(Request("REPLY_ID"), "SQLString") & ")")
				End If
			Else
				intTY = 1
				rsTY.Close
			End If
			Set rsTY = Nothing
			strSqlTY = "SELECT COUNT(MEMBER_ID) AS CNT FROM " & strTablePrefix & "THANKS WHERE TOPIC_ID=" & Reply_TopicID & " AND REPLY_ID=" & Reply_ReplyID
			Set rsTY=my_Conn.Execute(strSqlTY)
			If Not rsTY.EOF Then
				intCnt = rsTY("CNT")
				rsTY.Close
			End If
			Set rsTY = Nothing		
			If (Reply_MemberID <> MemberID) And (intTY = 0) And (mLev > 0) Then
				Response.Write	"                       <a href=""topic.asp?Thanks=" & MemberID & "&method=" & Request("method") & "&REPLY_ID=" & Reply_ReplyID & "&TOPIC_ID=" & Reply_TopicID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "</a> <font color=""" & strHiLiteFontColor & """>" & intCnt & "</font>" & vbNewLine
			Else
				Response.Write	getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "<font color=""" & strHiLiteFontColor & """>" & intCnt & "</font>" & vbNewLine											
			End If
			'	##	Thanks Above

3. Finally, save the following image (or make your own) in your images folder, titled "icon_thanks.png".

To display names in a popup, here's what you need:

Use this code INSTEAD of the one above for "topic.asp"


Look for the following lines (appx 842-844):

	Response.Write	"                      <hr noshade size=""" & strFooterFontSize & """></td>" & vbNewLine & _
			"                    </tr>" & vbNewLine & _
			"                    <tr>" & vbNewLine & _

Above those, insert these:

	
	'	##	Thanks Below
	intCnt = 0 : intTY = 0
	strSqlTY = "SELECT * FROM " & strTablePrefix & "THANKS WHERE TOPIC_ID=" & Request("TOPIC_ID") & " AND MEMBER_ID=" & MemberID & " AND REPLY_ID = 0"
	Set rsTY=my_Conn.Execute(strSqlTY)
	If (rsTY.BOF Or rsTY.EOF) And (TMember_ID <> MemberID) And (mLev > 0) Then
		If (Request("Thanks") > "") And (Request("REPLY_ID")<1) Then
			my_Conn.Execute("INSERT INTO " & strTablePrefix & "THANKS (MEMBER_ID, TOPIC_ID) VALUES (" & MemberID & ", " & ChkString(Request("TOPIC_ID"), "SQLString") & ")")
		End If
	Else
		intTY=1
		rsTY.Close
	End If
	Set rsTY = Nothing
	strSqlTY = "SELECT COUNT(MEMBER_ID) AS CNT FROM " & strTablePrefix & "THANKS WHERE REPLY_ID=0 AND TOPIC_ID=" & TOPIC_ID
	Set rsTY=my_Conn.Execute(strSqlTY)
	If Not rsTY.EOF Then
		intCnt = rsTY("CNT")
		rsTY.Close
	End If
	Set rsTY = Nothing		
	If (TMember_ID <> MemberID) And (intTY = 0) And (mLev > 0) Then
		Response.Write	"                       <a href=""topic.asp?Thanks=" & MemberID & "&method=" & Request("method") & "&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "</a> <font color=""" & strHiLiteFontColor & """><a style=""text-decoration:none;"" href=""JavaScript:openWindowThanks('pop_thanks.asp?TID=" & Topic_ID & "&RID=0')"">" & intCnt & "</a></font>" & vbNewLine
	Else
		Response.Write	getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "<font color=""" & strHiLiteFontColor & """><a style=""text-decoration:none;"" href=""JavaScript:openWindowThanks('pop_thanks.asp?TID=" & Topic_ID & "&RID=0')"">" & intCnt & "</a></font>" & vbNewLine										
	End If
	'	##	Thanks Above


Next, look for the following lines (appx 641-643):

			Response.Write	"                      <hr noshade size=""" & strFooterFontSize & """></td>" & vbNewLine & _
					"                    </tr>" & vbNewLine & _
					"                    <tr>" & vbNewLine & _


Above those, insert these:


			'	##	Thanks Below
			intCnt = 0 : intTY = 0
			strSqlTY = "SELECT * FROM " & strTablePrefix & "THANKS WHERE TOPIC_ID=" & Reply_TopicID & " AND MEMBER_ID=" & MemberID & " AND REPLY_ID=" & Reply_ReplyID
			Set rsTY=my_Conn.Execute(strSqlTY)
			If (rsTY.BOF Or rsTY.EOF) And (Reply_MemberID <> MemberID) And (mLev > 0) Then
				If Request("Thanks") > "" Then
					my_Conn.Execute("INSERT INTO " & strTablePrefix & "THANKS (MEMBER_ID, TOPIC_ID, REPLY_ID) VALUES (" & MemberID & ", " & ChkString(Request("TOPIC_ID"), "SQLString") & ",  " & ChkString(Request("REPLY_ID"), "SQLString") & ")")
				End If
			Else
				intTY = 1
				rsTY.Close
			End If
			Set rsTY = Nothing
			strSqlTY = "SELECT COUNT(MEMBER_ID) AS CNT FROM " & strTablePrefix & "THANKS WHERE TOPIC_ID=" & Reply_TopicID & " AND REPLY_ID=" & Reply_ReplyID
			Set rsTY=my_Conn.Execute(strSqlTY)
			If Not rsTY.EOF Then
				intCnt = rsTY("CNT")
				rsTY.Close
			End If
			Set rsTY = Nothing		
			If (Reply_MemberID <> MemberID) And (intTY = 0) And (mLev > 0) Then
				Response.Write	"                       <a href=""topic.asp?Thanks=" & MemberID & "&method=" & Request("method") & "&REPLY_ID=" & Reply_ReplyID & "&TOPIC_ID=" & Reply_TopicID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "</a> <font color=""" & strHiLiteFontColor & """><a style=""text-decoration:none;"" href=""JavaScript:openWindowThanks('pop_thanks.asp?TID=" & Reply_TopicID & "&RID=" & Reply_ReplyID & "')"">" & intCnt & "</a></font>" & vbNewLine
			Else
				Response.Write	getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "<font color=""" & strHiLiteFontColor & """><a style=""text-decoration:none;"" href=""JavaScript:openWindowThanks('pop_thanks.asp?TID=" & Reply_TopicID & "&RID=" & Reply_ReplyID & "')"">" & intCnt & "</a></font>" & vbNewLine
			End If
			'	##	Thanks Above

"inc_header.asp"


Look for the following lines (appx 256-258):

		"function openWindowHelp(url) {" & vbNewLine & _
		"	popupWin = window.open(url,'new_page','width=470,height=200,scrollbars=yes')" & vbNewLine & _
		"}" & vbNewLine & _

Below those, insert these:


		"function openWindowThanks(url) {" & vbNewLine & _
		"	popupWin = window.open(url,'new_page','width=800,height=600,scrollbars=yes,resizable=yes')" & vbNewLine & _
		"}" & vbNewLine & _

Save the following as "pop_thanks.asp". Set the value on line 11 to who you wish to allow to view.


<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_header_short.asp" -->
<%
'	##	Set value for intTYReaders below.
	'	0 = Author only
	'	1 = Author, Admins
	'	2 = Author, Admins, Moderators
	'	3 = All members
	'	4 = Anyone

intTYReaders = 0 : intTYAllowed=0
If Request("RID") > "0" Then
	strSqlTY = "SELECT R_AUTHOR FROM " & strTablePrefix & "REPLY WHERE REPLY_ID=" & Request("RID")
	Set rsTY=my_Conn.Execute(strSqlTY)
	If Not rsTY.EOF Then
		intRID=rsTY("R_AUTHOR")
		rsTY.Close
	End If
	Set rsTY = Nothing
	Select Case intTYReaders
		Case 0
			If (MemberID = intRID) Then
				Call TY_Replies
			End If
		Case 1
			If (MemberID = intRID) Or (mLev > 2) Then
				Call TY_Replies
			End If
		Case 2
			If (MemberID = intRID) Or (mLev > 1) Then
				Call TY_Replies
			End If
		Case 3
			If (MemberID = intRID) Or (mLev > 0) Then
				Call TY_Replies
			End If
		Case Else
			Call TY_Replies
	End Select
End If
If Request("RID") = "0" Then
	strSqlTY = "SELECT T_AUTHOR FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & Request("TID") & " AND REPLY_ID=0)
	Set rsTY=my_Conn.Execute(strSqlTY)
	If Not rsTY.EOF Then
		intTID=rsTY("T_AUTHOR")
		rsTY.Close
	End If
	Set rsTY = Nothing
	Select Case intTYReaders
		Case 0
			If (MemberID = intTID) Then
				Call TY_Topics
			End If
		Case 1
			If (MemberID = intTID) Or (mLev > 2) Then
				Call TY_Topics
			End If
		Case 2
			If (MemberID = intTID) Or (mLev > 1) Then
				Call TY_Topics
			End If
		Case 3
			If (MemberID = intTID) Or (mLev > 0) Then
				Call TY_Topics
			End If
		Case Else
			Call TY_Topics
	End Select
End If

Sub TY_Replies
	strSqlTY = "SELECT * FROM " & strTablePrefix & "THANKS WHERE TOPIC_ID=" & Request("TID") & " AND REPLY_ID=" & Request("RID")
	Set rsTY=my_Conn.Execute(strSqlTY)
	If Not rsTY.EOF Then
		rsTY.MoveFirst
		Do While Not rsTY.EOF
			strSqlTYM = "SELECT M_NAME FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID = " & rsTY("MEMBER_ID")
			Set rsTYM=my_Conn.Execute(strSqlTYM)
			If Not rsTYM.EOF Then
				Response.Write	rsTYM("M_NAME")
				rsTYM.Close
			End If
			Set rsTYM = Nothing
			rsTY.MoveNext
			If Not rsTY.EOF Then Response.Write	", "
		Loop
		rsTY.Close
	End If
	Set rsTY=Nothing
	intTYAllowed=1
End Sub

Sub TY_Topics
	strSqlTY = "SELECT * FROM " & strTablePrefix & "THANKS WHERE TOPIC_ID=" & Request("TID")
	Set rsTY=my_Conn.Execute(strSqlTY)
	If Not rsTY.EOF Then
		rsTY.MoveFirst
		Do While Not rsTY.EOF
			strSqlTYM = "SELECT M_NAME FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID = " & rsTY("MEMBER_ID")
			Set rsTYM=my_Conn.Execute(strSqlTYM)
			If Not rsTYM.EOF Then
				Response.Write	rsTYM("M_NAME")
				rsTYM.Close
			End If
			Set rsTYM = Nothing
			rsTY.MoveNext
			If Not rsTY.EOF Then Response.Write	", "
		Loop
		rsTY.Close
	End If
	Set rsTY=Nothing
	intTYAllowed=1
End Sub
If intTYAllowed = 0 Then Response.Write	"Not authorized to view names.<br />"
WriteFooterShort
%>

Edited by - Carefree on 10 March 2015 19:27:53

Classicmotorcycling
Development Team Leader

Australia
2084 Posts

Posted - 07 March 2015 : 18:43:40

Hi Carefree,

I hope that you do not mind, but I did a slight change to stop non-members/not signed in members from clicking the thanks button as I got a few robots clicking the links shortly after putting it up.

Small change to iconfiles.asp:



Look for the following line (appx 148):
		
Const strIconZap = "icon_zap.gif|16|16"

Below it, insert this:

Const strIconThanks = "icon_thanks.png|16|16"

Small change to topic.asp:




Look for the following lines (appx 842-844):

		Response.Write	"                      <hr noshade size=""" & strFooterFontSize & """></td>" & vbNewLine & _
				"                    </tr>" & vbNewLine & _
				"                    <tr>" & vbNewLine & _

Above those, insert these:

		'	##	Thanks Below
			intCnt = 0 : intTY = 0
			strSqlTY = "SELECT * FROM " & strTablePrefix & "THANKS WHERE TOPIC_ID=" & Request("TOPIC_ID") & " AND MEMBER_ID=" & MemberID & " AND REPLY_ID = 0"
			Set rsTY=my_Conn.Execute(strSqlTY)
			If (rsTY.BOF Or rsTY.EOF) And TMember_ID <> MemberID Then
				If Request("Thanks") > "" Then
					my_Conn.Execute("INSERT INTO " & strTablePrefix & "THANKS (MEMBER_ID, TOPIC_ID) VALUES (" & MemberID & ", " & ChkString(Request("TOPIC_ID"), "SQLString") & ")")
				End If
			Else
				intTY=1
				rsTY.Close
			End If
			Set rsTY = Nothing
			strSqlTY = "SELECT COUNT(MEMBER_ID) AS CNT FROM " & strTablePrefix & "THANKS WHERE REPLY_ID=0 AND TOPIC_ID=" & TOPIC_ID
			Set rsTY=my_Conn.Execute(strSqlTY)
			If Not rsTY.EOF Then
				intCnt = rsTY("CNT")
				rsTY.Close
			End If
			Set rsTY = Nothing		
			If (TMember_ID <> MemberID) And (intTY = 0) Then
				if mlev > 0 then
					Response.Write	"                       <a href=""topic.asp?Thanks=" & MemberID & "&method=" & Request("method") & "&TOPIC_ID=" & Topic_ID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "</a> <font color=""" & strHiLiteFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize  & """>(" & intCnt & ")</font>" & vbNewLine
				else
					Response.Write	getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "<font color=""" & strHiLiteFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize  & """>(" & intCnt & ")</font>" & vbNewLine										
				end if
			Else
				Response.Write	getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "<font color=""" & strHiLiteFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize  & """>(" & intCnt & ")</font>" & vbNewLine										
			End If
		'	##	Thanks Above

Next, look for the following lines (appx 641-643):

			Response.Write	"                      <hr noshade size=""" & strFooterFontSize & """></td>" & vbNewLine & _
					"                    </tr>" & vbNewLine & _
					"                    <tr>" & vbNewLine & _

Above those, insert these:

			'	##	Thanks Below
			intCnt = 0 : intTY = 0
			strSqlTY = "SELECT * FROM " & strTablePrefix & "THANKS WHERE TOPIC_ID=" & Reply_TopicID & " AND MEMBER_ID=" & MemberID & " AND REPLY_ID=" & Reply_ReplyID
			Set rsTY=my_Conn.Execute(strSqlTY)
			If (rsTY.BOF Or rsTY.EOF) And (Reply_MemberID <> MemberID) Then
				If Request("Thanks") > "" Then
					my_Conn.Execute("INSERT INTO " & strTablePrefix & "THANKS (MEMBER_ID, TOPIC_ID, REPLY_ID) VALUES (" & MemberID & ", " & ChkString(Request("TOPIC_ID"), "SQLString") & ",  " & ChkString(Request("REPLY_ID"), "SQLString") & ")")
				End If
			Else
				intTY = 1
				rsTY.Close
			End If
			Set rsTY = Nothing
			strSqlTY = "SELECT COUNT(MEMBER_ID) AS CNT FROM " & strTablePrefix & "THANKS WHERE TOPIC_ID=" & Reply_TopicID & " AND REPLY_ID=" & Reply_ReplyID
			Set rsTY=my_Conn.Execute(strSqlTY)
			If Not rsTY.EOF Then
				intCnt = rsTY("CNT")
				rsTY.Close
			End If
			Set rsTY = Nothing		
			If (Reply_MemberID <> MemberID) And (intTY = 0) Then
				if mlev > 0 then
					Response.Write	"                       <a href=""topic.asp?Thanks=" & MemberID & "&method=" & Request("method") & "&REPLY_ID=" & Reply_ReplyID & "&TOPIC_ID=" & Reply_TopicID & "&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "</a> <font color=""" & strHiLiteFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize  & """>(" & intCnt & ")</font>" & vbNewLine
				else
					Response.Write	getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "<font color=""" & strHiLiteFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize  & """>(" & intCnt & ")</font>" & vbNewLine
				end if
			Else
				Response.Write	getCurrentIcon(strIconThanks,"Thanks","align=""absmiddle"" hspace=""6""") & "<font color=""" & strHiLiteFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize  & """>(" & intCnt & ")</font>" & vbNewLine
			End If
			'	##	Thanks Above

I also created a new icon if that is OK:

I kinda went like the Farcebook like icon, but the other way and darker.

Cheers,

David Greening

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 07 March 2015 : 20:33:25

I incorporated anti-spammer/anti-hacker into the previous post now. Didn't think about bots before, thanks. You need to do one additional step, though, to prevent an automatic script from adding to the count - look at my code.

As for the icon and sizing, that's entirely up to you, it doesn't affect performance.

Edited by - Carefree on 07 March 2015 20:37:34

golfmann
Junior Member

United States
450 Posts

Posted - 08 March 2015 : 14:42:55

I'd really like to have the members who thanked pop up upon hovering on the number.
Would that be too much of a problem to do?

(hopefully not)

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 08 March 2015 : 19:16:52

See previous page for instructions on displaying names.

Webbo
Average Member

United Kingdom
982 Posts

Posted - 10 March 2015 : 02:36:13

I got the following error message when running the dbs file...

quote:

Creating table(s)...
CREATE TABLE FORUM_THANKS( THANKS_ID INT (11) DEFAULT '' NOT NULL auto_increment , TOPIC_ID int NOT NULL DEFAULT 0, REPLY_ID int NOT NULL DEFAULT 0, MEMBER_ID int NOT NULL DEFAULT 0,KEY FORUM_THANKS_THANKS_ID(THANKS_ID))
CREATE TABLE FORUM_THANKS( THANKS_ID INT (11) DEFAULT '' NOT NULL auto_increment , TOPIC_ID int NOT NULL DEFAULT 0, REPLY_ID int NOT NULL DEFAULT 0, MEMBER_ID int NOT NULL DEFAULT 0,KEY FORUM_THANKS_THANKS_ID(THANKS_ID))
-2147467259 | [MySQL][ODBC 5.1 Driver][mysqld-5.1.73-community]Invalid default value for 'THANKS_ID'

Edited by - Webbo on 10 March 2015 02:36:57

Page: of 4

Topic