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

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Active Users add-on (User Status)		  New Topic  Topic Locked
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 6

altisdesign
Junior Member

United Kingdom
357 Posts
Posted - 25 November 2003 :  11:22:39  Show Profile
Faizan,

Havn't tested this so backup your files as usual with any mod installation.. but looked at your file and edit the following lines to add the mod to topic.asp, assumeing of course that you have installed the functions in the right place in inc_func_common.asp (see first page of topic). This is more of an implementation of the mod issue.

Find:


if strSignatures = "1" and strDSignatures = "1" then
	if ViewSig(MemberID) <> "0" then
		CanShowSignature = 1
	end if
end if


Replace with:

if strSignatures = "1" and strDSignatures = "1" then
	if ViewSig(MemberID) <> "0" then
		CanShowSignature = 1
	end if
end if

'## Get online users into an array
arrOnlineMembers = AUGetOnlineMembers()
'## end


Find:


                        '#######Gender Start##########
                        if strSex = "1" and trim(Reply_MemberSex) <> "" then
				Response.Write	"                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberSex & "</small></font><br />" & vbNewLine
			end if       
			'#######Gender End##########


Replace with:

                        '#######Gender Start##########
                        if strSex = "1" and trim(Reply_MemberSex) <> "" then
				Response.Write	"                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberSex & "</small></font><br />" & vbNewLine
			end if       
			'#######Gender End##########
			response.write "                <br><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>Status: "& AUMemberStatus(arrOnlineMembers, Reply_MemberID) &"</small></font></p></td>" & vbNewLine


Find:

	if strSex = "1" and trim(Member_Sex) <> "" then
		Response.Write	"                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Sex & "</small></font><br />" & vbNewLine
	end if


Replace with:

	if strSex = "1" and trim(Member_Sex) <> "" then
		Response.Write	"                <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Sex & "</small></font><br />" & vbNewLine
	end if
 response.write "                <br><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>Status: "& AUMemberStatus(arrOnlineMembers, TMember_ID) &"</small></font></p></td>" & vbNewLine


Hope this helps
-Altis

[edit]code formatting[/edit]
Altis Design offers all manner of web design services to a variety of commercial and personal clients
Edited by - altisdesign on 25 November 2003 11:26:47
Go to Top of Page

Faizan
Average Member

United Kingdom
592 Posts
Posted - 25 November 2003 :  13:36:44  Show Profile  Visit Faizan's Homepage  Send Faizan an AOL message  Send Faizan an ICQ Message  Send Faizan a Yahoo! Message
Thanks Altis, I made the above changes and will see them working once I get inc_function_common fixed now..

I put in the code David posted in his first post, it did not work, I then tried all of the codes which different members posted in this topic, none of them work. Oh and by the way, I put the code after the following line:

sub AUHandleLoging()


And before the following..

strSql = "DELETE FROM " & strTablePrefix & "ACTIVE_USERS WHERE AU_IP = '" & Chkstring(request.ServerVariables("REMOTE_ADDR"), "SQLString") & "'"
  my_conn.execute (strSql)
end sub


I will post my inc_func_common here in a minute..


»Snitz Graphics
Go to Top of Page

altisdesign
Junior Member

United Kingdom
357 Posts
Posted - 25 November 2003 :  15:24:58  Show Profile
quote:
Originally posted by DavidRhodes


Put the following code in inc_func_common.asp underneath the AUHandleLoging() function


Faizan.. do not put the new functions for this mod within another function for the AU mod. What you need to do, is put the functions after the entire of the AuHandleLoging() function, so it is a separate function in it's own right (if that makes any sense at all?). This is what is causing your problem. Paste in the code DavidRhodes posted after the "End Function" line.
Altis Design offers all manner of web design services to a variety of commercial and personal clients
Go to Top of Page

xx ENIGMA xx
Junior Member

166 Posts
Posted - 25 November 2003 :  16:22:42  Show Profile  Send xx ENIGMA xx an AOL message
I just installed it on my forum, works great
so far that I can tell.

thanks for the nice mod!

my little forum playground
Go to Top of Page

Faizan
Average Member

United Kingdom
592 Posts
Posted - 25 November 2003 :  22:10:11  Show Profile  Visit Faizan's Homepage  Send Faizan an AOL message  Send Faizan an ICQ Message  Send Faizan a Yahoo! Message
Thanks Altis, that works really well now! Thanks a lot!



»Snitz Graphics
Go to Top of Page

altisdesign
Junior Member

United Kingdom
357 Posts
Posted - 26 November 2003 :  10:27:20  Show Profile
You're welcome
Altis Design offers all manner of web design services to a variety of commercial and personal clients
Go to Top of Page

proeder
Junior Member

Australia
230 Posts
Posted - 09 January 2004 :  00:06:38  Show Profile  Visit proeder's Homepage
Great Mod - and it works very fine for me!

In addition: I put it also in pop_profile.asp and members.asp - someone asked for that as well.

Here's the way to get it working:

In pop_profile.asp...

...go to the >> case "display" << section (somewhere around line 160) and look for the start of the Forum_SQL Code.
Put the array definition just before the SQLForum Code starts, after the Forum_SQL code
ad a line to define the TMember_ID, so it looks like


		end if

		'## Get online users into an array

		arrOnlineMembers = AUGetOnlineMembers()

		'## end

		'## Forum_SQL
		strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_NAME"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_USERNAME"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_EMAIL"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_FIRSTNAME"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LASTNAME"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_TITLE"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PASSWORD"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AIM"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_ICQ"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_MSN"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_YAHOO"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_POSTS"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_CITY"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_STATE"
'		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HIDE_EMAIL"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_RECEIVE_EMAIL"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DATE"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK1"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK2"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AGE"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DOB"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_MARSTATUS"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_SEX"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_OCCUPATION"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HOBBIES"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_QUOTE"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LNEWS"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_BIO"
		'#########Avatar Start###########
		if StrShowAvatar = "1" then
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AVATAR"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AVATAR_WIDTH"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AVATAR_HEIGHT"
		end if
		'#########Avatar End#############
		strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
		strSql = strSql & " WHERE MEMBER_ID=" & ppMember_ID

		set rs = my_Conn.Execute(strSql)

		TMember_ID = rs("MEMBER_ID")


(I marked the changes in red, actually it's only the first
lines and the last one)

Then you can put the online / offline indicator whereever you would
like in the displayed profile.
Just ad whereever you want the following:

"<font>"Status: " & AUMemberStatus(arrOnlineMembers, TMember_ID) &"</font>


Certainly you have to change the font tag (etc...) to your values

In members.asp...

...go to the beginning and put after all the includes are made the array definition so it looks like this:

<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<%

'## Get online users into an array

	arrOnlineMembers = AUGetOnlineMembers()

'## end


Then got to somewhere around line 507 and look for something like

Response.Write	ChkString(Members_MemberName,"display") & "</a></span></font>


Just behind that piece of code put the following (that puts the indicator in the same table row than the username)

<div align=""right""><font size=""1"">" & AUMemberStatus(arrOnlineMembers, Members_MemberID) & "</font></div>


I'm pretty sure, that this will work elsewhere too. It is just important
to define the TMember_ID or the variable that is used by your specific page and to be sure that SQL reads the memberID value
of the members table.

Thats it.
Have fun.
Looking for german Snitz forum? Suchst Du ein deutsches Snitz Forum?
Hier findest Du eins...

Hosting with ASP Support available: http://www.sharepointing.com
Edited by - proeder on 09 January 2004 02:05:19
Go to Top of Page

GenEdge
Starting Member

7 Posts
Posted - 09 January 2004 :  12:14:56  Show Profile  Visit GenEdge's Homepage
Great MOD! Have it install and working. Has anyone got it working yet on the privateread.asp and privatesent.asp?

Thanks,
Jason
Go to Top of Page

Chuck McB
Junior Member

WooYay
196 Posts
Posted - 09 January 2004 :  13:13:27  Show Profile  Visit Chuck McB's Homepage  Send Chuck McB an ICQ Message
This should do the job for privateread.asp

Just before the SQL about line 53:

'## Get online users into an array
arrOnlineMembers = AUGetOnlineMembers()
'## end


Then about line 156 change this:
			"    <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMCountry & "</font><br>" & vbNewLine & _
			"    <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMPosts & " Posts</font></p></td>" & vbNewLine & _

to this:
			"    <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMCountry & "</font><br>" & vbNewLine & _
      "    <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>"& AUMemberStatus(arrOnlineMembers, Reply_MemberID) &"</small></font><br>" & vbNewLine & _
			"    <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMPosts & " Posts</font></p></td>" & vbNewLine & _
Go to Top of Page

GenEdge
Starting Member

7 Posts
Posted - 10 January 2004 :  10:21:38  Show Profile  Visit GenEdge's Homepage
quote:
Originally posted by Chuck McB

This should do the job for privateread.asp

Just before the SQL about line 53:

'## Get online users into an array
arrOnlineMembers = AUGetOnlineMembers()
'## end


Then about line 156 change this:
			"    <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMCountry & "</font><br>" & vbNewLine & _
			"    <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMPosts & " Posts</font></p></td>" & vbNewLine & _

to this:
			"    <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMCountry & "</font><br>" & vbNewLine & _
      "    <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>"& AUMemberStatus(arrOnlineMembers, Reply_MemberID) &"</small></font><br>" & vbNewLine & _
			"    <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMPosts & " Posts</font></p></td>" & vbNewLine & _

Thanks Chuck but I had already applied this before and it didn't work. However I did find out why after looking closer.

Your code for privteread.asp:
"    <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>"& AUMemberStatus(arrOnlineMembers, Reply_MemberID) &"</small></font><br>" & vbNewLine & _


Needs to be:
"    <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>"& AUMemberStatus(arrOnlineMembers, strMID) &"<small></font><br>" & vbNewLine & _


Same goes for privatesent.asp if you want it to show on that page. Needs to be:

"    <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>"& AUMemberStatus(arrOnlineMembers, strPMfromID) &"</small></font><br>" & vbNewLine & _


Thanks,
Jason
Edited by - GenEdge on 10 January 2004 10:27:29
Go to Top of Page

MRWebmaster
New Member

76 Posts
Posted - 15 February 2004 :  19:41:38  Show Profile  Visit MRWebmaster's Homepage
Nice MOD David, worked like a charm.
Matt Brown, MCP
MetalReview.com Discussion Board
Go to Top of Page

adslonline
Starting Member

Netherlands
38 Posts
Posted - 16 February 2004 :  04:55:52  Show Profile  Visit adslonline's Homepage
'A small step in code, a giant step for a forum'

Very nice add-on!
www.adslforum.nl
Go to Top of Page

giorgiusx
Starting Member

28 Posts
Posted - 30 March 2004 :  11:06:06  Show Profile
Please, help me...i'm very, very confused...
I try to explain my problem...
I have Active Users Mod installed on my forum but, in inc_func_common.asp, I don't have this:
sub AUHandleLoging()

how is it possible??? :-O
Edited by - giorgiusx on 30 March 2004 11:06:53
Go to Top of Page

masterao
Senior Member

Sweden
1678 Posts
Posted - 30 March 2004 :  14:47:32  Show Profile  Visit masterao's Homepage
Perhaps you have the Active Users Lite mod installed? Do you have a page which lists all members and guests online?
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod
Go to Top of Page

giorgiusx
Starting Member

28 Posts
Posted - 31 March 2004 :  06:47:55  Show Profile
NO, no...No Lite...Normal...
look here:
www.lv-art.net/sgforum
Go to Top of Page
Page: of 6 Previous Topic Topic Next Topic  
Previous Page | Next Page
 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.16 seconds. Powered By: Snitz Forums 2000 Version 3.4.07