| Author |
 Topic  |
|
|
Bassman
Junior Member
Netherlands
256 Posts |
 Posted - 18 May 2006 : 08:25:18
|
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.
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  < |
|
|
tribaliztic
Senior Member
Sweden
1532 Posts |
Posted - 18 May 2006 : 08:32:04
|
In the "active users mod" the moderators and admin have different colors, maybe you can take a look at it?
< |
/Tribaliztic
- www.gotlandrace.se -
|
 |
|
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
Posted - 18 May 2006 : 15:30:09
|
Bassman,
Your code does look simple and I would expect you to see them in red. Maybe something like this would work: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).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.
< |
Cheers,
David Greening |
|
|
|
Bassman
Junior Member
Netherlands
256 Posts |
Posted - 19 May 2006 : 03:47:15
|
Indeed the red part was the problem, thanks Classicmotorcycling that code works great  It was the Reply_MemberLevel not just mlev
here the final version:
around line 750
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
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< |
Edited by - Bassman on 19 May 2006 07:19:06 |
|
|
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
Posted - 19 May 2006 : 03:54:34
|
| 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...< |
Cheers,
David Greening |
|
|
|
Bassman
Junior Member
Netherlands
256 Posts |
Posted - 19 May 2006 : 04:51:32
|
I found them David, the direction was great  < |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 19 May 2006 : 06:53:13
|
You can remove the first if statment from both those snippets David provided - M_LEVEL will only ever be between 1 & 3, never 4.
< |
 Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
|
Bassman
Junior Member
Netherlands
256 Posts |
Posted - 19 May 2006 : 07:20:56
|
| Woops...thanks Shaggy< |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 19 May 2006 : 08:13:29
|
No worries.
< |
Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
| |
Topic |
|
|
|
Admin and Mod post name color
