<% Dim cnDB ' As ADODB.Connection CheckSecurity Set cnDB = OpenDB() Dim rsData ' As ADODB.Recordset Dim strSQL ' As String Dim lngAccountID ' As Long Dim strContactType ' As String Dim intMyFriend ' As Integer Dim intMyFriendsFriend ' As Integer Dim intSortBy ' As Integer Dim strSortBy ' As String ''''''''''''''''''''''''''''''''''''''' ' Filter by the relationship with your ' contacts ''''''''''''''''''''''''''''''''''''''' If Request("dbtMyFriend") = "" Then intMyFriend = 3 Else intMyFriend = Request("dbtMyFriend") End If ''''''''''''''''''''''''''''''''''''''''' ' Filter by your friends' relationships ''''''''''''''''''''''''''''''''''''''''' If Request("dbtMyFriendsFriend") = "" Then intMyFriendsFriend = 3 Else intMyFriendsFriend = Request("dbtMyFriendsFriend") End If '''''''''''''''''''''''''''''''''' ' sort records by '''''''''''''''''''''''''''''''''' If Request("dbtSortBy") = "" Then intSortBy = 3 Else intSortBy = Request("dbtSortBy") End If lngAccountID = Request.Cookies("mynetwork")("AID") Select Case intSortBy Case 3 strSortBy = "ORDER BY tblOrgs.Organization, tblAccounts.FirstName" Case 2 strSortBy = "ORDER BY tblAccounts.FirstName, tblOrgs.Organization" Case 1 strSortBy = "ORDER BY tblContacts_1.JobTitle, tblOrgs.Organization" Case Else strSortBy = "ORDER BY tblOrgs.Organization, tblAccounts.FirstName" End Select strSQL = "SELECT DISTINCT tblContacts.*, tblContacts_1.*, tblOrgs.*, tblAccounts.* " _ & "FROM (((tblContacts INNER JOIN tblEmails ON tblContacts.pkContactID = tblEmails.pkContactID) " _ & "INNER JOIN tblEmails AS tblEmails_1 ON tblEmails.Email = tblEmails_1.Email) INNER JOIN tblAccounts " _ & "ON tblEmails_1.pkAccountID = tblAccounts.pkAccountID) INNER JOIN (tblContacts AS tblContacts_1 " _ & "INNER JOIN tblOrgs ON tblContacts_1.pkOrgID = tblOrgs.pkOrgID) " _ & "ON tblAccounts.pkAccountID = tblContacts_1.pkAccountID " _ & "WHERE (((tblContacts.pkAccountID)=" & Request.Cookies("mynetwork")("AID") & ") " _ & "AND ((tblContacts.ContactType)=" & intMyFriend & ") " _ & "AND ((tblContacts_1.ContactType)=" & intMyFriendsFriend & ")) " _ & strSortBy Set rsData = cnDB.Execute(strSQL) %> My Power Network

>

My Friend is a:	My Friend's Friend is a:	Sort by:
value="3">Close Personal Friend value="2">Business Associate value="1">Acquaintance	value="3">Close Personal Friend value="2">Business Associate value="1">Acquaintance	value="3">Organization value="2">My Friend value="1">Job Title

<% Do Until rsData.EOF Select Case rsData("tblContacts_1.ContactType") Case 0 strContactType = "Private Contact" Case 1 strContactType = "Acquaintance" Case 2 strContactType = "Business Associate" Case 3 strContactType = "Close Personal Friend" Case Else strContactType = "unknown" End Select WL "" WL "" If rsData("tblContacts_1.JobTitle") <> "" Then WL "" Else WL "" End If WL "" rsData.MoveNext Loop rsData.Close Set rsData = Nothing CloseDB cnDB ' close database connections PrintFooter %>

Friend	Friend's Friend	Job Title	Company
" WL "" _ & rsData("tblAccounts.FirstName") & " " & rsData("tblAccounts.LastName") & "" WL "	has a " & strContactType & "	who is a " & rsData("tblContacts_1.JobTitle") & "		at " & rsData("Organization") & "