Snitz Forums 2000 - font-color in active

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

font-color in active_users.aps

New Topic

Topic Locked

Printer Friendly

Author

Topic

Rykker
Starting Member

17 Posts

Posted - 12 August 2003 : 08:33:07

hiho,

how can i change the fontcolor of the "member name" and the "current page"?
it seems that for this no fontcolor is defined so its displayed in defaultfontcolor

i can not find where i have to add a fontcolor tag to change the font color of the names and current pages

can you help me?

Rykker
Starting Member

17 Posts

Posted - 13 August 2003 : 08:19:45

nobody?

OneWayMule
Dev. Team Member & Support Moderator

Austria
4969 Posts

Posted - 13 August 2003 : 08:23:00

post a link to a txt version of your active_users.asp

My MODs:
Birthdays - Custom Policy - F.A.Q. Administration - Forum Rules - Guestbook
Links Manager - MyOwnGoogle - Profile Views - Search Log - WebSearch

Useful stuff:
Forum and MOD Installation - MOD Installation Guide - Snitz v3.4.05 Readme - Free ASP Hosts - Support Snitz

Rykker
Starting Member

17 Posts

Posted - 13 August 2003 : 08:35:42

http://mv.freeforums.instantnetworks.net/active_users.txt

OneWayMule
Dev. Team Member & Support Moderator

Austria
4969 Posts

Posted - 13 August 2003 : 09:12:20

Find the following code in active_users.asp:

if (rsAM("M_AUHIDE")="1" or isNull(rsAM("M_AUHIDE"))) or strAUAnon = 0 or bolOverride then
      profileOptions()
    else
      response.write " "
    end if
    response.write "                </td>" & VBNewLine & _
                   "                <td bgcolor=""" & CColor & """ valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & VBNewLine
    if (rsAM("M_AUHIDE")="1" or isNull(rsAM("M_AUHIDE"))) or strAUAnon = 0 or bolOverride then 'If not anonymous, then lets show em.

Change the red code to the color of your choice for the usernames.

Then find the following code:

if bolAULocal then
      response.write "                <td bgcolor=""" & CColor & """ align=center valign=middle nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & WhatPage(strLastPage,strQS) & "</font></td>" & VBNewLine
    end if

Change the red code to the color of your choice for the current pages.

Rykker
Starting Member

17 Posts

Posted - 13 August 2003 : 09:52:53

i've already changed this. ForumFontColor is the color that i want for it

but the names und current pages are still in DefaultFontColor

you can see it here: http://mv.freeforums.instantnetworks.net/default.asp

login: Guest
pw: mv

OneWayMule
Dev. Team Member & Support Moderator

Austria
4969 Posts

Posted - 13 August 2003 : 10:35:31

OK, find the following code in active_users.asp:

if strUseExtendedProfile then
        response.write "                  <a href=""pop_profile.asp?mode=display&id="& rsAM("MEMBER_ID") & """>"
      else
        response.write "                  <a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & rsAM("MEMBER_ID") & "')"">"
      end if
	  if rsAM("M_LEVEL") = 2 then  'If admin or mod, then lets hilight em.
        response.write "<b><font color=""" & strAUModColor & """>"
      elseif rsAM("M_LEVEL") = 3 then
        response.write "<b><font color=""" & strAUAdminColor & """>"
      end if

and change the red code to strForumFontColor

Rykker
Starting Member

17 Posts

Posted - 13 August 2003 : 10:46:54

this two colortags highlights mods and admins

what about this? i think these lines display normal user:

if strUseExtendedProfile then
response.write " <a href=""pop_profile.asp?mode=display&id="& rsAM("MEMBER_ID") & """>"
else
response.write " <a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & rsAM("MEMBER_ID") & "')"">"
end if

but i don't know how to insert a colortag

OneWayMule
Dev. Team Member & Support Moderator

Austria
4969 Posts

Posted - 13 August 2003 : 10:51:34

Argh, silly me.
Here you go:

if (rsAM("M_AUHIDE")="1" or isNull(rsAM("M_AUHIDE"))) or strAUAnon = 0 or bolOverride then 'If not anonymous, then lets show em.
      if strUseExtendedProfile then
        response.write "                  <a href=""pop_profile.asp?mode=display&id="& rsAM("MEMBER_ID") & """>"
      else
        response.write "                  <a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & rsAM("MEMBER_ID") & "')"">"
      end if
	  if rsAM("M_LEVEL") = 2 then  'If admin or mod, then lets hilight em.
        response.write "<b><font color=""" & strAUModColor & """>"
      elseif rsAM("M_LEVEL") = 3 then
        response.write "<b><font color=""" & strAUAdminColor & """>"
      else
	response.write "<font color=""" & strForumFontColor & """>"
      end if
      response.write rsAM("M_NAME")
      if rsAM("M_LEVEL") = 2 or rsAM("M_LEVEL") = 3 then
        response.write "</font></b>"
      end if
	  response.write "</a>"
    else

Add the green code and remove the red code.