Snitz Forums 2000 - PM doesnt show up on Active Users table

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Snitz Forums 2000 MOD-Group

MOD Add-On Forum (W/Code)

PM doesnt show up on Active Users table

New Topic

Topic Locked

Printer Friendly

Author

Topic

ikalota
Starting Member

37 Posts

Posted - 29 August 2004 : 18:15:04

I have Active users installed, and I installed Private Messages 3.5
Followed the instructions, and works like a champ, except the following:
When I click on the Active Users, I see a table of Active users i.e (Active_users.asp), their IP, location, etc, and also see little gifs about profile, Yahoo, ICQ, and MSN.. in this table but I dont see PM here.
However, I see PM in the members.asp.

Can anyone tell me what I need to do to get PM to show up in this table?

Thanks.

GarethMoore1979
Junior Member

United Kingdom
220 Posts

Posted - 29 August 2004 : 19:27:52

Find the following code at the bottom of 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:openWindow3('pop_profile.asp?mode=display&id=" & rsAM("MEMBER_ID") & "')"">"
  end if
  response.write getCurrentIcon(strIconProfile,fLang(strLangMOD_Ls3kAU_01460) & " " & rsAM("M_NAME") & fLang(strLangMOD_Ls3kAU_01470)," align=""absmiddle"" hspace=""0""") & "</a>" & VBNewLine

then directly underneath that add the following:

	If strPMStatus = "1" Then
         Response.Write " <a href=""privatesend.asp?method=Topic&mname=" & rsAM("M_NAME") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & rsAM("M_NAME") & " a Private Message","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
      End If

ikalota
Starting Member

37 Posts

Posted - 29 August 2004 : 20:21:52

Thanks very much... that worked liked a charm...

masterao
Senior Member

Sweden
1678 Posts

Posted - 31 August 2004 : 17:20:53

A small addition to Gareth's post.

If you add the green-marked code, the PM status will only show if the member accepts PMs.

quote:

Originally posted by GarethMoore1979

	If strPMStatus = "1" and rsAM("M_PMRECEIVE") = "1" Then
         Response.Write " <a href=""privatesend.asp?method=Topic&mname=" & rsAM("M_NAME") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & rsAM("M_NAME") & " a Private Message","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
      End If

Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod

GarethMoore1979
Junior Member

United Kingdom
220 Posts

Posted - 31 August 2004 : 17:51:50

ah!!!!! I wondered about that! thanks matserao!

if you do that you also need to add M_PMRECEIVE into the top part of the page:

'## Ls3k - Get Online Members information, and print whatever we get
strSql = "SELECT ME.MEMBER_ID, ME.M_NAME, ME.M_AUHIDE, AU.AU_IP, AU.AU_LOGINTIME,
AU.AU_LASTACTIVETIME, AU.AU_LASTPAGE, ME.M_ICQ, ME.M_YAHOO, ME.M_AIM,
ME.M_MSN, ME.M_LEVEL, AU.AU_QUERYSTRING, M_PMRECEIVE, AU.AU_USER_AGENT " & _

Edited by - GarethMoore1979 on 31 August 2004 17:59:07

masterao
Senior Member

Sweden
1678 Posts

Posted - 01 September 2004 : 15:41:04

That is very true, Gareth. Thanks for catching that