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)
 MOD: Buddy List		  New Topic  Topic Locked
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 4

RDoGG™
Junior Member

USA
329 Posts
Posted - 20 August 2001 :  21:28:19  Show Profile  Visit RDoGG™'s Homepage
to person with mod_dbsetup.asp error:

you have an old version. try renaming the .dbs file to: dbs_buddylist.asp and download the new admin_mod_dbsetup.asp from HuwR's site or the 3.3.02 version.

RDoGG™
Go to Top of Page

liqu1d
Starting Member

Greece
47 Posts
Posted - 21 August 2001 :  16:32:00  Show Profile  Visit liqu1d's Homepage
I don't know if I have the correct version but the problem must be on the comparison of 2 recordsets...

 '### Returns List of Your Buddies
	strSql = "SELECT " & strMemberTablePrefix & "Buddys.Buddy_ID, " & strMemberTablePrefix & "Buddys.budmemberid, " & strMemberTablePrefix & "Buddys.budbudid, " & strMemberTablePrefix & "members.m_name, " & strMemberTablePrefix & "members.member_id"
	strSql = strSql & " FROM ("& strMemberTablePrefix & "Members INNER JOIN " & strMemberTablePrefix & "Buddys ON " & strMemberTablePrefix & "Members.Member_ID=" & strMemberTablePrefix & "Buddys.budbudID)"
	strSql = strSql & " where ("& strMemberTablePrefix & "Buddys.budmemberid=" & getmemberID(strDBNTUserName) & ")"
	rs.Open strSQL, my_Conn
'###

'### 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
'###


I tried those on the SQL server and they have common records... I guest that the error must be here... 

 ' List buddies
		
			
			do until rs.eof
			
			if not rsOnline.eof then
			if rsOnline("M_NAME")= rs("m_name") then
				onlinestatus = rsonline("M_BROWSE")
				rsOnline.movenext
			else
				onlinestatus = "Offline"
			end if
			end if

			if xx=0 then
				CColor = strAltForumCellColor
				
			else
				CColor = strForumCellColor
				
			End if


Any ideas??? why don't I get the status of my buddies??

thank you..



liqu1d magic
Go to Top of Page

liqu1d
Starting Member

Greece
47 Posts
Posted - 21 August 2001 :  20:03:59  Show Profile  Visit liqu1d's Homepage
The only status I can see is the one of .. myself .. If I add myself to my buddy list... Any ideas how to fix this?
(combined with all other problems i have!)

regards

liqu1d magic

Edited by - liqu1d on 21 August 2001 20:10:22
Go to Top of Page

GeneralChad
Starting Member

15 Posts
Posted - 22 August 2001 :  13:14:03  Show Profile
I get an error when I click on a user name (on the pop_profile.asp)

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rs'

/freaks/pop_profile.asp, line 48


??? The line its choking on is:
<a href="buddy.asp?mode=add&ID=<%=rs("MEMBER_ID")%>"><img src="<%=strImageURL %>icon_add_buddy.gif" height="16" width="14" alt="Add to Buddylist" border="0" align="absmiddle" hspace="6">Add to BuddyList</a>
Go to Top of Page

liqu1d
Starting Member

Greece
47 Posts
Posted - 24 August 2001 :  17:08:59  Show Profile  Visit liqu1d's Homepage
does anyone has the same problem with me?
All my buddies are always offline... Any ideas why this happens?
I think that the sql query that select the buddies is not correct and it does not work correctly...



liqu1d magic
Go to Top of Page

e3stone
Average Member

USA
885 Posts
Posted - 24 August 2001 :  19:07:11  Show Profile
sorry about that error. I looked at the buddy.asp code this afternoon and was asking myself what the #%#$ I was thinking when I wrote that. With a little help from big9erfan, I fixed this major error.

Here's a txt file of the new code. Just save that file as a .asp file and you're set.

http://www.insidewaco.com/forum/buddy.txt

If someone has a more efficient way of doing this mod, I'm all ears.

NOTE: The zip file will be updated with this file

<-- Eric -->
Go to Top of Page

liqu1d
Starting Member

Greece
47 Posts
Posted - 25 August 2001 :  06:55:27  Show Profile  Visit liqu1d's Homepage
Now it works almost perfect... Do this and it is perfect...

Your code is like this

 			if not rsOnline.eof then
			RSonline.Filter = ("UserID = '" & rs("m_name") & "'")
			    if not rsOnline.Eof then
					onlinestatus = rsonline("M_BROWSE")
				else
				    onlinestatus = "Offline"
				END IF
			RSOnline.Filter = ""
			end if


and a line before the last end if add the code highlighted with red...

 
			if not rsOnline.eof then
			RSonline.Filter = ("UserID = '" & rs("m_name") & "'")
			    if not rsOnline.Eof then
					onlinestatus = rsonline("M_BROWSE")
				else
				    onlinestatus = "Offline"
				END IF
			RSOnline.Filter = ""
			else onlinestatus = "Offline"
			end if



This way when everybody is offline you will see it and the cells won't be blank.
Hope this concludes it...

Thank you for the mod. It is very very good!
Keep up the good work

regards

liqu1d magic

Edited by - liqu1d on 25 August 2001 06:57:26
Go to Top of Page
Page: of 4 Previous Topic Topic Next Topic  
Previous 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.24 seconds. Powered By: Snitz Forums 2000 Version 3.4.07