Topics you've started or replied to

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/70375?pagenum=1
05 November 2025, 07:27

Topic

Webbo
Topics you've started or replied to
04 January 2013, 17:40


How easy would it be to add a fifth folder image to identify topics that you have started or replied to in forum.asp similar to some php boards where the topic shows a star at the side of it if you have previously posted in that topic?
Currently forum.asp shows images for:
New posts since last logon. Old Posts. ( 25 replies or more.)
Locked topic.
The fifth image would be: Topics you have contributed to

 

Replies ...

Carefree
05 January 2013, 04:30


That's a fairly easy one, Webbo. I'll write it today for you.
Webbo
05 January 2013, 16:16


That would be appreciated [^]
Webbo
05 January 2013, 16:47


If it helps, here is a folder icon that could be used:

icon_folder_contributed.gif

Carefree
06 January 2013, 05:33


OK, here it is. I placed a copy on SnitzBitz.
1. Copy Webbo's image from above to your image directory, titled "icon_folder_contributed.gif". Here's an alternative image:
[IMG]http://i1308.photobucket.com/albums/s611/RetVetnPI/icon_folder_contributed_zpsb8ce639b.gif[/IMG]
2. Make the following code changes.
"forum.asp"
Code:

Look for the following lines (appx 490-497):

				' DEM --> Added code for topic moderation
				if Topic_Status = 2 then
					UnApprovedFound = "Y"
					Response.Write 	getCurrentIcon(strIconFolderUnmoderated,"Topic Not Moderated","hspace=""0""")
				elseif Topic_Status = 3 then
					HeldFound = "Y"
					Response.Write 	getCurrentIcon(strIconFolderHold,"Topic on Hold","hspace=""0""")
					' DEM --> end of code Added for topic moderation

Below those, insert these:

				'	##	Contributed Below
				elseif intPart = 1 then
					Response.Write	getCurrentIcon(strIconFolderContributed,"Contributed","hspace=""0""")
				'	##	Contributed Above

Look for the following lines (appx 477-479):

		if AdminAllowed = 1 and Topic_UReplies > 0 then
			Topic_Replies = Topic_Replies + Topic_UReplies
		end if

Below those, insert these:

		'	##	Contributed Below
		intPart=0
		strSqlP="SELECT R_AUTHOR, TOPIC_ID FROM " & strTablePrefix & "REPLY WHERE TOPIC_ID=" & TOPIC_ID & " AND R_AUTHOR=" & MemberID
		Set rsPart=my_Conn.Execute(strSqlP)
		If not rsPart.EOF Then
			intPart=1
			rsPart.Close
		End If
		Set rsPart=Nothing
		strSqlP="SELECT T_AUTHOR, TOPIC_ID FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & TOPIC_ID & " AND T_AUTHOR=" & MemberID
		Set rsPart=my_Conn.Execute(strSqlP)
		If not rsPart.EOF Then
			intPart=1
			rsPart.Close
		End If
		Set rsPart=Nothing
		'	##	Contributed Above

"inc_iconfiles.asp"
Code:

Look for the following line (appx 64):

Const strIconFolderClosedTopic = "icon_folder_closed_topic.gif|15|15"

Below that, insert these:

'	##	Contributed Below
Const strIconFolderContributed = "icon_folder_Contributed.gif|15|15"
'	##	Contributed Above
Webbo
06 January 2013, 17:20


Nice work Carefree

The following needs adding to forum.asp

Code:
      '  ## Contributed Below
Response.Write"         " & getCurrentIcon(strIconFolderContributed,"Contributed","align=""absmiddle""") & " Topics you have contributed to.<br />" & vbNewLine
            '  ## Contributed Above


After:

Code:
Response.Write "                " & getCurrentIcon(strIconFolderLocked,"Locked Topic","align=""absmiddle""") & " Locked topic.<br />" & vbNewLine

in order to show the folder description at the bottom of forum.asp



Also, some code changes need to be made to active.asp to show topics contributed to. I'll have a look at that shortly unless you beat me to it bigsmile
Webbo
06 January 2013, 17:37


In active.asp find:

Code:
               Response.Write    getCurrentIcon(strIconFolderUnmoderated,"Topic Not Moderated","hspace=""0""") & "</a>" & vbNewline
            elseif Topic_Status = 3 then
               HeldFound = "Y"
               Response.Write    getCurrentIcon(strIconFolderHold,"Topic on Hold","hspace=""0""") & "</a>" & vbNewline


Look for the following lines (appx 490-497):

Code:
				' DEM --> Added code for topic moderation
				if Topic_Status = 2 then
					UnApprovedFound = "Y"
					Response.Write 	getCurrentIcon(strIconFolderUnmoderated,"Topic Not Moderated","hspace=""0""")
				elseif Topic_Status = 3 then
					HeldFound = "Y"
					Response.Write 	getCurrentIcon(strIconFolderHold,"Topic on Hold","hspace=""0""")
					' DEM --> end of code Added for topic moderation

Below those, insert these:

Code:
'	##	Contributed Below
				elseif intPart = 1 then
					Response.Write	getCurrentIcon(strIconFolderContributed,"Contributed","hspace=""0""")
				'	##	Contributed Above


Find:
Code:
      if canView then
         if ModerateAllowed = "Y" and Topic_UReplies > 0 then
            Topic_Replies = Topic_Replies + Topic_UReplies
         end if

Below those, insert these:

Code:
		'	##	Contributed Below
		intPart=0
		strSqlP="SELECT R_AUTHOR, TOPIC_ID FROM " & strTablePrefix & "REPLY WHERE TOPIC_ID=" & TOPIC_ID & " AND R_AUTHOR=" & MemberID
		Set rsPart=my_Conn.Execute(strSqlP)
		If not rsPart.EOF Then
			intPart=1
			rsPart.Close
		End If
		Set rsPart=Nothing
		strSqlP="SELECT T_AUTHOR, TOPIC_ID FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & TOPIC_ID & " AND T_AUTHOR=" & MemberID
		Set rsPart=my_Conn.Execute(strSqlP)
		If not rsPart.EOF Then
			intPart=1
			rsPart.Close
		End If
		Set rsPart=Nothing
		'	##	Contributed Above


Find:
Code:
Response.Write "                " & getCurrentIcon(strIconFolderLocked,"Locked Topic","align=""absmiddle""") & " Locked topic.<br />" & vbNewLine


Below those, insert these:

Code:
            '  ## Contributed Below
Response.Write"         " & getCurrentIcon(strIconFolderContributed,"Contributed","align=""absmiddle""") & " Topics you have contributed to.<br />" & vbNewLine
            '  ## Contributed Above


I haven't included line numbers as a lot of my code has been modified so the line numbers would be irrelevant to many
Webbo
06 January 2013, 17:58


A better folder image to the one I originally posted is below:


Webbo
06 January 2013, 18:10


My OCD is now taking over - what about a 'New posts since last logon that you've contributed to' folder purple one with a yellow star cool
It's late, I'm off to bed clown
HuwR
07 January 2013, 06:23


Originally posted by Webbo
My OCD is now taking over - what about a 'New posts since last logon that you've contributed to' folder purple one with a yellow star cool
It's late, I'm off to bed clown
Isn't that already in your profile
© 2000-2021 Snitz™ Communications