| Author |
 Topic  |
|
Gargoyle
Junior Member
USA
280 Posts |
|
|
stwilson
Junior Member
USA
385 Posts |
 Posted - 19 September 2004 : 23:14:16
|
quote:
Originally posted by Gargoyle
Um.... stwilson
Do you have the active users MOD installed ??
Yes, I do and it works fine. I can see active users, the page they are on, IP, etc. Not sure what is up. I have stared at the code for two days and cannot figure it out. Thanks for any help you can shed
on this. |
Shannon
RidingArizona.com |
 |
|
|
Gargoyle
Junior Member
USA
280 Posts |
|
|
stwilson
Junior Member
USA
385 Posts |
Posted - 21 September 2004 : 01:27:45
|
Gargoyle,
Here is a test login: guest/test
I have the active user panel set as active for registered members. Thanks for your help. |
Shannon
RidingArizona.com |
|
|
|
Gargoyle
Junior Member
USA
280 Posts |
|
|
stwilson
Junior Member
USA
385 Posts |
Posted - 28 September 2004 : 01:28:05
|
| Anyone else have the issue with their Buddy List showing all buddies as Offline? |
Shannon
RidingArizona.com |
|
|
|
Etymon
Advanced Member
United States
2385 Posts |
Posted - 28 September 2004 : 02:47:39
|
quote:
Originally posted by stwilson
Anyone else have the issue with their Buddy List showing all buddies as Offline?
Here! Here! |
Edited by - Etymon on 28 September 2004 02:48:40 |
|
|
|
stwilson
Junior Member
USA
385 Posts |
Posted - 29 September 2004 : 02:26:53
|
| Anyone have a fix for this? Anyone on 3.4.04 with SQL have this working? |
Shannon
RidingArizona.com |
|
|
|
Gargoyle
Junior Member
USA
280 Posts |
|
|
Mur
Zapped Profile
24 Posts |
Posted - 17 October 2004 : 07:44:39
|
quote:
Originally posted by stwilson
Anyone have a fix for this? Anyone on 3.4.04 with SQL have this working?
stwilson,
Edited: "Just checked this fix and it seems to be working fine on my site. "
Version: 3.4.04 on SQL 2000
Here's what I added to the standard buddy.asp page.
First off for testing comment out everything that is using "rsonline" example:
quote:
set rsonline = server.CreateObject("ADODB.RecordSet")
Change that to:
set rsactive_users = server.CreateObject("ADODB.RecordSet")
Below that add line:
'## Get online users into an array
arrOnlineMembers = AUGetOnlineMembers()
'## end
Next find the code:
quote:
'### Returns Buddies Who Are Online
' strSqlOnline = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME," & strMemberTablePrefix & "ONLINE.M_BROWSE"
' strSqlOnline = strSqlOnline & " FROM (" & strMemberTablePrefix & "ONLINE INNER JOIN " & strMemberTablePrefix & "MEMBERS ON " & strMemberTablePrefix & "ONLINE.UserID =" & strMemberTablePrefix & "MEMBERS.M_NAME) INNER JOIN " & strMemberTablePrefix & "BUDDYS ON " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strMemberTablePrefix & "BUDDYS.BUDMEMBERID"
' rsOnline.open strSqlonline, my_Conn
'###
Comment it out or replace it with this
'### Returns Buddies Who Are Online version 4.0 Active Users
strSqlactive_users = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME," & strMemberTablePrefix & "ACTIVE_USERS.AU_LASTPAGE"
strSqlactive_users = strSqlactive_users & " FROM (" & strMemberTablePrefix & "ACTIVE_USERS INNER JOIN " & strMemberTablePrefix & "MEMBERS ON " & strMemberTablePrefix & "ACTIVE_USERS.MEMBER_ID =" & strMemberTablePrefix & "MEMBERS.MEMBER_ID) INNER JOIN " & strMemberTablePrefix & "BUDDYS ON " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strMemberTablePrefix & "BUDDYS.BUDMEMBERID"
'response.write strsql
rsactive_users.open strSqlactive_users, my_Conn
'###
After that find where it says
quote:
Response.Write "<TD bgcolor=" & CColor & " align=center><font face=" & strDefaultFontFace & " color=" & strForumFontColor & " size=2>" & OnlineStatus & "</td>"
and replace that with this:
Response.Write "<TD bgcolor=" & CColor & " align=center><font face=" & strDefaultFontFace & " color=" & strForumFontColor & " size=2>"& AUMemberStatus(arrOnlineMembers, rs("BudbudID")) &"</td>"
next find this line:
quote:
set rsOnline = nothing
and replace it with:
set rsactive_users = nothing
Now I really haven't totally tested it but it feels good. lol
The site I placed this on only has a few members (personal site) so I'll have to wait till the morning and ask someone to stop by to test.
But if you read this post prior to me finishing the test and patched your buddy.asp page and see it working please drop a note here to confirm the method I posted is OK. (And not just me seeing Online because I am online).
Hope this helps, and I really hope it works and not just reading me online because I am. Again it's on SQL2000 Snitz 3.04.5 with Active Users Mod.
Regards,
Mur
|
Edited by - Mur on 17 October 2004 12:14:09 |
|
|
|
stwilson
Junior Member
USA
385 Posts |
Posted - 17 October 2004 : 13:13:24
|
Mur,
That did fix my Online/Offline status. THANK YOU!!! One last question, how would I bold the word Online for those buddies that are online, so it stands out from the Offline members? |
Shannon
RidingArizona.com |
|
|
|
Mur
Zapped Profile
24 Posts |
Posted - 17 October 2004 : 16:06:34
|
quote:
Originally posted by stwilson
Mur,
That did fix my Online/Offline status. THANK YOU!!! One last question, how would I bold the word Online for those buddies that are online, so it stands out from the Offline members?
I'll go one step beyond BOLD.. Seeing that you do allot of Offroad stuff I bet you can come up with a little icon of of a ATV offline and one kicking up dust for being online.
Here's what I use to jazz things up>
Open up your inc_func_common.asp page.
Get your two little graphics ready and run down to the line that says:
quote:
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
replace all that with the code below:
'##############################################
'## Placing Icon next to Online Status ##
'##############################################
function AUMemberStatus(OnlineMembers, CurrentMember)
if IsArray(OnlineMembers) then
for intRow = 0 to UBound(OnlineMembers, 2)
if OnlineMembers(0,intRow) = CurrentMember then
AUMemberStatus = "<img src="""& strImageURL & "icon_online.gif"" alt=""Send a private Message."" border=""0"" hspace=""0""> <font color=green><b>online</b></font>"
exit function
end if
next
end if
AUMemberStatus = "<img src="""& strImageURL & "icon_offline.gif"" alt=""Member is offline but you still can send a private message."" border=""0"" hspace=""0""> <b><font color=red>offline</b></font>"
end function
'##############################################
'## End Placing Icon next to Online Status ##
'##############################################
And that's it, every place in your site that you put the Online Status line...
"& AUMemberStatus(arrOnlineMembers, rs("BudbudID")) &"
or just anything pulling the same information from the inc_func_common page you will see the status online/offline and the images.
I use to little flashing computers.
You can see the buddy.asp page at http://www.mursplace.com/ just login if you want. Or the forums will show the same type of status that the buddy's list does.
Change the ALT to what you want to say on the mouseover image.
Change the online/offline font color to match your site better and
leave the <b>BOLD</b> or if you need later make it <font size=2> that should do it for you.
I posted this up on my little site so you can see the picture of the buddy.asp page.
http://www.mursplace.com/topic.asp?TOPIC_ID=44
Have fun!
Regards,
Mur |
Edited by - Mur on 17 October 2004 16:25:42 |
|
|
|
Topic |
|
Topic Locked
