| T O P I C R E V I E W |
| Bassman |
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  < |
| 8 L A T E S T R E P L I E S (Newest First) |
| Shaggy |
Posted - 19 May 2006 : 08:13:29
No worries.
< |
| Bassman |
Posted - 19 May 2006 : 07:20:56
Woops...thanks Shaggy< |
| Shaggy |
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.
< |
| Bassman |
Posted - 19 May 2006 : 04:51:32
I found them David, the direction was great  < |
| Classicmotorcycling |
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...< |
| Bassman |
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< |
| Classicmotorcycling |
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.
< |
| tribaliztic |
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?
< |
|
|
