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

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"))

Comment out the following lines:


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