Hi all. I encounter this kind of error when i modify the name of members. For example i change the color of Administrator adding this code <font color="red">Administrator</font> in the Ranking Option in Admin page
The fact is that: the registered users view that:Administrator
but the unregisterde view that: <font color="red">Administrator</font id="red"> note the new part of code in green.
Well, i worked on the code instead of writing html in the Admin Rankgin Option. The example is the code written in red. I've tested it but i'm not sure to be right. Infact i don't know if "strRankLevel0" is STARTING LEVEL in ranks and "strRankLevel1" is the second etc..Am I right? In the example you find "starting level", "first level" but my porpose is to add colour and breaking rulers and additional nicks..
function getMember_Level(fM_TITLE, fM_LEVEL, fM_POSTS) dim Member_Level
Member_Level = "" if Trim(fM_TITLE) <> "" then Member_Level = fM_TITLE else select case fM_LEVEL case "1" if (fM_POSTS <cLng(intRankLevel1))then Member_Level = Member_Level & strRankLevel0 &"<br>" &"Starting level" if (fM_POSTS >= cLng(intRankLevel1)) and (fM_POSTS < cLng(intRankLevel2)) then Member_Level = Member_Level & strRankLevel1 &"<br>" &"First level" if (fM_POSTS >= cLng(intRankLevel2)) and (fM_POSTS < cLng(intRankLevel3)) then Member_Level = Member_Level & strRankLevel2 if (fM_POSTS >= cLng(intRankLevel3)) and (fM_POSTS < cLng(intRankLevel4)) then Member_Level = Member_Level & strRankLevel3 if (fM_POSTS >= cLng(intRankLevel4)) and (fM_POSTS < cLng(intRankLevel5)) then Member_Level = Member_Level & strRankLevel4 if (fM_POSTS >= cLng(intRankLevel5)) then Member_Level = Member_Level & strRankLevel5 case "2" Member_Level = Member_Level & strRankMod case "3" Member_Level = Member_Level & strRankAdmin case else Member_Level = Member_Level & "Error" end select end if
Topic Locked
Posted - 26 September 2005 : 12:49:18
