quote:

---

Originally posted by Davio

You want to hide admins from the active users page? You mean totally remove them? Or you want them to appear as guests?
You want other admins to see other admins or all admins appear as a guest to ALL members?

---

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
response.write rsAM("M_NAME")
if rsAM("M_LEVEL") = 2 or rsAM("M_LEVEL") = 3 then
  response.write "</font><b>"
end if

if rsAM("M_LEVEL") = 2 then  'If admin or mod, then lets hilight em.
  response.write "<b><font color=""" & strAUModColor & """>"
end if
if rsAM("M_LEVEL") <> 3 then
  response.write rsAM("M_NAME")
end if
if rsAM("M_LEVEL") = 2 then
  response.write "</font><b>"
end if

if rsAM("M_LEVEL") = 2 then
  strActiveMemberList = strActiveMemberList & "<font color=""" & strAUModColor & """>"
elseif rsAM("M_LEVEL") = 3 then
  strActiveMemberList = strActiveMemberList & "<font color=""" & strAUAdminColor & """>"
end if
strActiveMemberList = strActiveMemberList & rsAM("M_NAME")
if rsAM("M_LEVEL") = 2 or rsAM("M_LEVEL") = 3 then
  strActiveMemberList = strActiveMemberList & "</font>"
end if

if rsAM("M_LEVEL") = 2 then
  strActiveMemberList = strActiveMemberList & "<font color=""" & strAUModColor & """>"
end if
if rsAM("M_LEVEL") <> 3 then
   strActiveMemberList = strActiveMemberList & rsAM("M_NAME")
end if
if rsAM("M_LEVEL") = 2 then
  strActiveMemberList = strActiveMemberList & "</font>"
end if

quote:

---

Originally posted by Davio
But why don't you just edit each admin profile and set to not show up on the active users page? That will do the same thing you're asking.

---

'Ls3k- Second order of business, lets update those already-active users
if strNewUser = 0 and mLev <> 4 then 'If already-active
  strSql = "UPDATE " & strTablePrefix & "ACTIVE_USERS SET " & _
           "AU_LASTACTIVETIME='" & Chkstring(strCurrentTime, "SQLString") & "'" & _
           ", AU_LASTPAGE='" & Chkstring(strScriptName, "SQLString") & "'" & _
           ", AU_QUERYSTRING='" & Chkstring(strQueryString, "SQLString") & "' "
  if MemberID=-1 then 'If guest, update based on IP
    strSql = strSql & "WHERE AU_IP = '" & Chkstring(strUserIP, "SQLString") & "' " & _
                      "AND MEMBER_ID = " & MemberID
  else 'Update members based on MemberID
    strSql = strSql & "WHERE MEMBER_ID = " & MemberID
  end if
  my_conn.execute (strSql)
elseif strLoginStatus <> 1 and mLev <> 4 then 'Is a new user, make new record
  strSql = "INSERT INTO " & strTablePrefix & "ACTIVE_USERS (" & _
           "MEMBER_ID, AU_IP, AU_LOGINTIME, AU_LASTACTIVETIME, " & _
           "AU_LASTPAGE, AU_QUERYSTRING, AU_USER_AGENT) VALUES(" & _
           MemberID & ", " & _
           "'" & Chkstring(strUserIP, "SQLString") & "', " & _
           "'" & Chkstring(strCurrentTime, "SQLString") & "', " & _
           "'" & Chkstring(strCurrentTime, "SQLString") & "', " & _
           "'" & Chkstring(strScriptName, "SQLString") & "', " & _
           "'" & Chkstring(strQueryString, "SQLString") & "', " & _
           "'" & Chkstring(strUserAgent, "SQLString") & "')"
  my_conn.execute (strSql)
end if