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)
 Topics you've started or replied to

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
Webbo Posted - 04 January 2013 : 17:40:47
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

9   L A T E S T    R E P L I E S    (Newest First)
HuwR Posted - 07 January 2013 : 06:23:38
quote:
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

It's late, I'm off to bed


Isn't that already in your profile
Webbo Posted - 06 January 2013 : 18:10:48
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

It's late, I'm off to bed
Webbo Posted - 06 January 2013 : 17:58:57
A better folder image to the one I originally posted is below:



Webbo Posted - 06 January 2013 : 17:37:11
In active.asp find:

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):

				' 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



Find:
if canView then
         if ModerateAllowed = "Y" 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



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



Below those, insert these:

'  ## 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 Posted - 06 January 2013 : 17:20:08
Nice work Carefree

The following needs adding to forum.asp

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



After:

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
Carefree Posted - 06 January 2013 : 05:33:44
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:


2. Make the following code changes.

"forum.asp"


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"


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 Posted - 05 January 2013 : 16:47:20
If it helps, here is a folder icon that could be used:


icon_folder_contributed.gif

Webbo Posted - 05 January 2013 : 16:16:49
That would be appreciated
Carefree Posted - 05 January 2013 : 04:30:48
That's a fairly easy one, Webbo. I'll write it today for you.

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