Friend Mod Question - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

Friend Mod Question - Postet den 06 Feb 2012 (1107 Views)

MaGraham

Senior Member

Innlegg: 1297

1297

Isn't there SOMEONE out there who'd like to write an add-on for the Friend Mod so that members could SEE other member's friends and/or at least a member would KNOW when someone placed them on their friend list?
Come on, guys! Pretty PLEASE!!!

"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Postet den 16 Feb 2012

Carefree

Advanced Member

Innlegg: 4224

4224

OK - I wrote it for you.
In "pop_profile.asp"

Code:


Look for the following lines (appx 711-719):

			Response.Write	"                  </table>" & vbNewLine & _
					"                </td>" & vbNewLine & _
					"              </tr>" & vbNewLine & _
					"            </table>" & vbNewLine & _
					"          </td>" & vbNewLine & _
					"        </tr>" & vbNewLine & _
					"      </table>" & vbNewLine & _
					"    </td>" & vbNewLine & _
					"  </tr>" & vbNewLine


Above those, insert the following:


			'	##	User Space Below
				'	##	User Space Friends Below
							If Request.QueryString("mode")="display" Then
								If strUSFriendSwitch = "1" Then
									strSql = "SELECT F_FRIEND, F_MEMBER FROM " & strTablePrefix & "FRIENDS WHERE F_MEMBER=" & Request.QueryString("id")
									Set rsFriends=my_Conn.Execute(strSql)
									If not rsFriends.EOF Then
										Response.Write    "                    <tr>" & vbNewLine & _
											"                      <td bgcolor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Friends: </font></b></td>" & vbNewLine & _
											"                      <td bgColor=""" & strPopUpTableColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
										rsFriends.MoveFirst
										Do While not rsFriends.EOF
											intFriend = rsFriends("F_FRIEND")
											strSql1 = "SELECT M_NAME FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID = " & intFriend
												Set rsMember = my_Conn.Execute(strSql1)
											If not rsMember.EOF Then
												Response.Write	"<a href=""pop_profile.asp?mode=display&id=" & intFriend & """" & dWStatus("View " & ChkString(rsMember("M_Name"),"display") & "'s Profile") & ">" & rsMember("M_Name") & "</a>"
												rsMember.Close
											End If
											Set rsMember = Nothing
											rsFriends.MoveNext
											If not rsFriends.EOF Then
												Response.Write	", "
											End If
										Loop
										rsFriends.Close
									End If
									Set rsFriends = Nothing
									Response.Write    "</font></td>" & vbNewLine & _
										"                    </tr>" & vbNewLine
								Else
									Response.Write    "                    <tr>" & vbNewLine & _
										"                      <td bgcolor=""" & strPopUpTableColor & """ valign=""top"" align=""right"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Friends: </font></b></td>" & vbNewLine & _
										"                      <td bgColor=""" & strPopUpTableColor & """ valign=""top"">" & vbNewLine & _
										"												<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Friends not Active!" & vbNewLine & _
										"												</font></td>" & vbNewLine & _
										"                    </tr>" & vbNewLine
								End If
							End If
				'	##	User Space Friends Above
			'	##	User Space Above

In "pop_user_space.asp"

Code:


Look for the following lines (appx 841-847):

        if err.description <> "" then
                getErrMsg err.description, 0
        else
                bTmp = true
        end if

        addFriend = bTmp

Below those, insert the following:


       	if strEmail = "1" then
					strRecipientsName = FriendName
					strRecipients = FriendMail
					strFrom = strSender
					strFromName = strForumTitle
					strsubject = strForumTitle & " Friends' List "
					strMessage = "Hello " & FriendName & vbNewline & vbNewline
					strMessage = strMessage & "You received this message from " & strForumTitle & " because " & strDBNTUserName & " wishes to befriend you on the forums at " & strForumURL & vbNewline & vbNewline
					strMessage = strMessage & "To ignore " & strDBNTUserName & "'s request, simply do nothing." & vbNewline & vbNewline
					strMessage = strMessage & "To befriend " & strDBNTUserName & ", click here:  "  & strForumURL & "pop_user_space.asp?mode=friends&action=add&id=" & MemberID & vbNewline & vbNewline
					strMessage = strMessage & "or, if you have already added " & strDBNTUserName & " as a friend, you can remove " & strDBNTUserName & " from your friends' list here:  " & strForumURL & "pop_user_space.asp?mode=friends&action=delete&id=" & MemberID & vbNewline & vbNewline
					%>
					<!--#INCLUDE FILE="inc_mail.asp" -->
					<%
				end if


Next, look for the following line (appx 527):

                                                        FriendName = rs("M_NAME")

Below it, insert the following:


                                                        FriendMail = rs("M_EMAIL")


Next, look for the following line (appx 514):

                                                strSql = "SELECT M_NAME FROM " & strMemberTablePrefix & "MEMBERS " & _


Change it to say:


                                                strSql = "SELECT M_NAME, M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS " & _


Last in this program, look for the following lines (appx 496-497):

                                if trim(Request.Form("id")) <> "" and isNumeric(Request.Form("id")) = true then
                                        FriendID = cLng(Request.form("id"))

Below those, insert the following:


                                elseif trim(Request.Querystring("id")) <> "" and isNumeric(Request.Querystring("id")) = true then
                                		FriendID = cLng(Request.Querystring("id"))

In "admin_user_space.asp"

Code:


Comment out the following lines:


147
                if trim(strUSBookmarkSwitch) <> "" then
155
                end if
160
                if trim(strUSFriendSwitch) <> "" then
168
                end if

Postet den 17 Feb 2012

MaGraham

Senior Member

Innlegg: 1297

1297

Carefree, you are Sooooo incredible!!

Love; love; LOVE IT!!!!
THANK YOU SO MUCH!!!!

"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Postet den 18 Feb 2012

MaGraham

Senior Member

Innlegg: 1297

1297

Mission Accomplished!
Thank you again, Carefree!!!

"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Postet den 18 Feb 2012

Carefree

Advanced Member

Innlegg: 4224

4224

You're welcome, lady.