Admin and Mod post name color

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/61909?pagenum=1
05 November 2025, 10:21

Topic

Bassman
Admin and Mod post name color
18 May 2006, 08:25


I was thinking of making the names from the admins and moderators in the posts on the left side red and green. After some hours of fiddling around with the following code I can use some help. It looks simple, just not a chance to make it happen.

Code:

	if lcase(strTopicNoWrapLeft) = "1" then Response.Write(" nowrap")
	Response.Write	">" & vbNewLine

if mlev = 4 then
	Response.Write			"                <p><b><span class=""postadminlink"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b><br />" & VbNewLine
end if
if mlev = 3 then
	Response.Write			"                <p><b><span class=""postmodlink"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b><br />" & VbNewLine
end if
if mlev = 2 then
	Response.Write			"                <p><b><span class=""postmodlink"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b><br />" & VbNewLine
end if
if mlev = 1 then
	Response.Write			"                <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""2""><b><span>" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b></font><br />" & VbNewLine
end if
	if strShowRank = 1 or strShowRank = 3 then

All of the first posts user names are in red...sins this is the admin (Mlev4) css code color. Can somebody please kick me in the right direction blush<

 

Replies ...

tribaliztic
18 May 2006, 08:32


In the "active users mod" the moderators and admin have different colors, maybe you can take a look at it? <
Classicmotorcycling
18 May 2006, 15:30


Bassman,

Your code does look simple and I would expect you to see them in red. Maybe something like this would work:
Code:
if Reply_MemberLevel = 4 then
	Response.Write			"                <p><b><span class=""postadminlink"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b><br />" & VbNewLine
elseif Reply_MemberLevel = 3 then
	Response.Write			"                <p><b><span class=""postmodlink"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b><br />" & VbNewLine
elsif Reply_MemberLevel = 2 then
	Response.Write			"                <p><b><span class=""postmodlink"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b><br />" & VbNewLine
elseif Reply_MemberLevel = 1 then
	Response.Write			"                <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""2""><b><span>" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b></font><br />" & VbNewLine
end if
For the replies and this for the 1st post (can not give you the line numbers, but I am sure that you know how to find where).
Code:
if Member_Level = 4 then
	Response.Write			"                <p><b><span class=""postadminlink"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b><br />" & VbNewLine
elsif Member_Level = 3 then
	Response.Write			"                <p><b><span class=""postmodlink"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b><br />" & VbNewLine
elseif Member_Level = 2 then
	Response.Write			"                <p><b><span class=""postmodlink"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b><br />" & VbNewLine
elseif Member_Level = 1 then
	Response.Write			"                <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""2""><b><span>" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b></font><br />" & VbNewLine
end if
I hope that points you in the right direction.

This is untested, but should work. <
Bassman
19 May 2006, 03:47


Indeed the red part was the problem, thanks Classicmotorcycling that code works great cool It was the Reply_MemberLevel not just mlev blush
here the final version:

around line 750

Code:

if  Reply_MemberLevel = 3 then
	Response.Write					"    <p><b><span class=""postadminlink"">" & profileLink(ChkString(Reply_MemberName,"display"),Reply_Author) & "</span></b><br />" & VbNewLine
elseif Reply_MemberLevel = 2 then
	Response.Write					"    <p><b><span class=""postmodlink"">" & profileLink(ChkString(Reply_MemberName,"display"),Reply_Author) & "</span></b><br />" & VbNewLine
elseif Reply_MemberLevel = 1 then
	Response.Write					"    <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""2""><b><span>" & profileLink(ChkString(Reply_MemberName,"display"),Reply_Author) & "</span></b></font><br />" & VbNewLine
end if

Around line 1040
Code:
if  	Member_Level = 3 then
	Response.Write				"   <p><b><span class=""postadminlink"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b><br />" & VbNewLine
elseif 	Member_Level = 2 then
	Response.Write				"   <p><b><span class=""postmodlink"">" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b><br />" & VbNewLine
elseif 	Member_Level = 1 then
	Response.Write				"   <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""2""><b><span>" & profileLink(ChkString(Member_Name,"display"),TMember_ID) & "</span></b></font><br />" & VbNewLine
end if
Edit: delete line Reply_MemberLevel = 4, thanks Shaggy<
Classicmotorcycling
19 May 2006, 03:54


No problems, glad I could help and point you in the right direction... Forgot to change the other items, but was in a hurry at 5:30am (Melbourne, Australia time) this morning before work to point you there...<
Bassman
19 May 2006, 04:51


I found them David, the direction was great smile<
Shaggy
19 May 2006, 06:53


You can remove the first if statment from both those snippets David provided - M_LEVEL will only ever be between 1 & 3, never 4.
<
Bassman
19 May 2006, 07:20


Woops...thanks Shaggy<
Shaggy
19 May 2006, 08:13


No worries.
<
© 2000-2021 Snitz™ Communications