quote:

---

Originally posted by HolyOutlaw

DavidRhodes,

Could you post the mod code for the Private Message section? You made reference to it at the beginning of this post. I have tried to get it to work but only get the Offline status even if the user is online. It works everywhere else except in the PMs... Great mod BTW.

Thanks in advance.

---

quote:

---

Originally posted by blues

where i had to put the code if i wont the online status under the members stars???

---

			if strShowRank = 2 or strShowRank = 3 then
				Response.Write	"                " & getStar_Level(Reply_MemberID, Reply_MemberLevel, Reply_MemberPosts) & "<br />" & vbNewLine
			end if

quote:

---

Originally posted by DavidRhodes

i'll make a zip over the weekend for this mod, and try and get the pm bit done too

---

function AUGetOnlineMembers()
	strSql ="SELECT " & strTablePrefix & "ACTIVE_USERS.MEMBER_ID " 
	strSql = strSql & " FROM " & strTablePrefix & "ACTIVE_USERS "
	if strAUAnon and not(bolOverride) then
	    strSql = strSql & ", " & strTablePrefix & "MEMBERS WHERE "
	    strSql = strSql & strTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "ACTIVE_USERS.MEMBER_ID "
	    strSql = strSql & "AND " & strTablePrefix & "MEMBERS.M_AUHIDE <> '0'"
	end if
	set rsOnline = my_Conn.Execute(strSql)
	If NOT rsOnline.EOF Then AUGetOnlineMembers = rsOnline.GetRows()
	rsOnline.close
	set rsOnline = nothing
end function

function AUMemberStatus(OnlineMembers, CurrentMember)
	if IsArray(OnlineMembers) then
		for intRow = 0 to UBound(OnlineMembers, 2)	
			if OnlineMembers(0,intRow) = CurrentMember then
				AUMemberStatus = "<font color=green><b>online</b></font>"
				exit function
			end if
		next
	end if
	AUMemberStatus = "<font color=red>offline</font>"
end function

quote:

---

Originally posted by Heynow777

I am trying to add this to Private Messages and it is showing as Offline..any help?

I added at the top of privateread.asp
'## Get online users into an array
arrOnlineMembers = AUGetOnlineMembers()
'## end

---