Snitz Forums 2000

Sure, no problem.

The first edit is around line 948 in my Topic.asp file.


	if strEditedByDate = "1" and Reply_LastEditBy <> "" then
				if Reply_LastEditBy <> Reply_Author then
					Reply_LastEditByName = getMemberName(Reply_LastEditBy)
				else
					Reply_LastEditByName = chkString(Reply_MemberName,"display")
				end if
				Response.Write	"                    <tr>" & vbNewLine & _
						"                      <td valign=""bottom""><hr noshade size=""" & strFooterFontSize & """ color=""" & CColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>"
						if not(isSuggestionBox) then
						   Response.Write "Edited by - " & Reply_LastEditByName & " on " & chkDate(Reply_LastEdit, " " ,true) & "</font></td>" & vbNewLine
						else
							 Response.Write "Edited by - Anonymous on " & chkDate(Reply_LastEdit, " " ,true) & "</font></td>" & vbNewLine
						end if

The second edit is around line 1456 in my Topic.asp file.


if strEditedByDate = "1" and Topic_LastEditBy <> "" then
		if Topic_LastEditBy <> Topic_Author then
			Topic_LastEditByName = getMemberName(Topic_LastEditBy)
		else
			Topic_LastEditByName = chkString(Member_Name,"display")
		end if
		Response.Write	"                    <tr>" & vbNewLine & _
				"                      <td valign=""bottom""><hr noshade size=""" & strFooterFontSize & """ color=""" & strForumFirstCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>"
		 If Not(isSuggestionBox) Then
		 	 	 Response.Write		"Edited by - " & Topic_LastEditByName & " on " & chkDate(Topic_LastEdit, " ", true) & "</font></td>" & vbNewLine
		 else
				 Response.Write "Edited by - Anonymous on " & chkDate(Topic_LastEdit, " " ,true) & "</font></td>" & vbNewLine
		 end if
			 Response.Write	"                    </tr>" & vbNewLine
	end if

Here is one other edit. I noticed that if the user is the sysadmin, every post in other forums will have the "View this topic with user information displayed."

With this edit the message will only show up in forums where the forum type is Suggestion Box. It won't show up in the other forums.

This edit is around line 669 in my Topic.asp file.


 if overrideSuggestionBox <> 0 and isSuggestionBox then
		Response.write	"<br /><a href=""topic.asp?whichpage=" & mypage & SearchLink & ArchiveLink & "&TOPIC_ID=" & TOPIC_ID & "&showID="
		if overrideSuggestionBox = 1 then
			response.write	"true"
		else
			response.write	"false"
		end if
		response.write	"""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>View this topic "
		if overrideSuggestionBox = 1 then
			response.write	"with"
		else
			response.write	"without"
		end if
		response.write	" user information displayed.</font></a>" & vbNewline
	end if

As you can see, all you need to do is add "and isSuggestionBox" to the first line. To make the users show up as anonymous again just click on another topic in the suggestion box forum.

Hope that helps.

Codeman

<