'Ls3k- First Order of business, is this person new?
  if MemberID="-1" then 'If this is a Guest, check by IP
    strSql = "SELECT AU_LASTACTIVETIME FROM " & strTablePrefix & "ACTIVE_USERS WHERE AU_IP = '" & Chkstring(strUserIP, "SQLString") & "' AND MEMBER_ID = -1"
  else 'If this is a Member, check by Member_ID
    strSql = "SELECT AU_LASTACTIVETIME FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID = " & MemberID & " AND MEMBER_ID <> " & intAdminMemberID
  end if

    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 & " AND MEMBER_ID <> " & intAdminMemberID
    end if
    my_conn.execute (strSql)
  else 'Is a new user, make new record
   If strLoginStatus = 0 AND MemberID <> intAdminMemberID then

quote:

---

Originally posted by masterao

To hide superadmin in active_users, edit profile and choose No on Show on Active Users (if you have allowed that option in the AU Config). If you haven't, or you want the superadmin to not even show up as an anonymous member, open up inc_func_common.asp.

Look for the following about line 56 and add the code marked red (it is located inside Sub ActiveUserTracker()):

  'Ls3k- First Order of business, is this person new?
  if MemberID="-1" then 'If this is a Guest, check by IP
    strSql = "SELECT AU_LASTACTIVETIME FROM " & strTablePrefix & "ACTIVE_USERS WHERE AU_IP = '" & Chkstring(strUserIP, "SQLString") & "' AND MEMBER_ID = -1"
  else 'If this is a Member, check by Member_ID
    strSql = "SELECT AU_LASTACTIVETIME FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID = " & MemberID & " AND MEMBER_ID <> " & intAdminMemberID
  end if

Then look for the following code starting on line 83:

    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 & " AND MEMBER_ID <> " & intAdminMemberID    end if
    my_conn.execute (strSql)
  else 'Is a new user, make new record
   If strLoginStatus = 0 AND MemberID <> intAdminMemberID then

This will make the superadmin totally invisible to the active users mod, although I must say that I haven't tested this 100%. If you encounter any errors, please let know and I'll take a look.

---