Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 topic.asp question
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

philsbbs
Junior Member

United Kingdom
397 Posts

Posted - 14 April 2009 :  16:22:03  Show Profile
Hi,

I use the online offline status in topic.asp but I like it to also show icon_smile_cool.gif next to the Online status and icon_smile_sleepy.gif next to Offline status.

What part of the code do I change.


Phil

leatherlips
Senior Member

USA
1838 Posts

Posted - 14 April 2009 :  17:39:30  Show Profile  Visit leatherlips's Homepage
I added the online/offline status quite some time ago so I don't remember exactly what I did. But here is what I have in the inc_func_common.asp file:

'#####Online Offline Status Code#####
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 = "<img valign=""middle"" style=""margin:1 0 1 0"" border=0 src=""" & StrImageURL & "on.gif"">"
            exit function
         end if
      next
   end if
   AUMemberStatus = "<img valign=""middle"" style=""margin:1 0 1 0"" border=0 src=""" & StrImageURL & "off.gif"">"
end function
'#####Online Offline Status Code#####
Note the part in red is the image.

On my site I am only using an image to show the status. Here is a screen shot:



I hope this helps.

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 14 April 2009 :  17:43:49  Show Profile
That depends on what version of the forum that you're using. The portals (ServerHacker's, etc) use different code (on different pages) for that function. If you are running 3.4.06 or .07 with the "active users" mod installed, then the section of code you're looking for is in "inc_func_common.asp".


Look for the following lines:

function AUMemberStatus(OnlineMembers, CurrentMember)
	for intRow = 0 to UBound(OnlineMembers, 2)
		if OnlineMembers(0,intRow) = CurrentMember then
			AUMemberStatus = "online"
			exit function
		end if
	next
	AUMemberStatus = "offline"
end function

Change them to read:

function AUMemberStatus(OnlineMembers, CurrentMember)
	for intRow = 0 to UBound(OnlineMembers, 2)
		if OnlineMembers(0,intRow) = CurrentMember then
			AUMemberStatus = "" & getCurrentIcon(strIconSmileCool,"","align=""absmiddle"" hspace=""0""") & ""
			exit function
		end if
	next
	AUMemberStatus = "" & getCurrentIcon(strIconSmileSleepy,"","align=""absmiddle"" hspace=""0""") & ""
end function
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.28 seconds. Powered By: Snitz Forums 2000 Version 3.4.07