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.
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
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
Posted
That's a fairly easy one, Webbo. I'll write it today for you.
Posted
That would be appreciated [^]
Posted
If it helps, here is a folder icon that could be used:
icon_folder_contributed.gif
icon_folder_contributed.gif
Posted
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"
"inc_iconfiles.asp"
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
Posted
Nice work Carefree
The following needs adding to forum.asp
After:
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
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 />" & vbNewLinein 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
