Dubbelsidig relation

Hur ska jag spara till databasen och hämta för att skapa en dubbelsidid vänrelation i en community.

Så har jag nu:

Set Van=Conn.Execute("Select * From vanner Where anvId=" & Request.QueryString("id") & " And relId=" & Rel("id") & " And verify=1")

Men gör jag så här så hämtas både min relation och min kompis relation så han och jag står i kompislistan.

Set Van=Conn.Execute("Select * From vanner Where anvId=" & Request.QueryString("id") & " Or vanId=" & Request.QueryString("id") & " And relId=" & Rel("id") & " And verify=1")

Vad gör jag? Fälten i databasen är:
id, relId, vanId, anvId och verify.
Alla är Int förrutom id som är räknare.

Flyttas från ASP

HAr denna kod där jag hämtar relationer och vänner! Då är ju detta en ensidig relation och så vill jag ju inte ha. Vill att om jag vill bli vän med ex Kalle så väljer jag relation m.m och skickar förfrågan och om han godtar den har jag Kalle i min lista och Kalle har mig i sin lista!

AnvId är DU som medlemm och vanId de som du vill va vän med!

Har man sedan ingen vän in en relation ska den relationen inte finnas med i sin VÄnnerlista!

  <table cellspacing="0" cellpadding="5" border="0" width="100%">
        <%Set Rel=Conn.Execute("SELECT * From relationer Order By kategori")
        If Rel.EOF Then%>
          <tr>
            <td colspan="3"><b>Inga relationer inlagda</b></td>
          </tr>
        <%Else
        Z=0        
        Do Until Rel.EOF
        Z=Z+1
	Set Van=Conn.Execute("Select * From vanner Where anvId=" & Request.QueryString("id") & " And relId=" & Rel("id") & " And verify=1")

        If Not Van.EOF Then%>  
          <tr>
            <td width="59%" bgcolor="#efe9ea"><b><%=Rel("kategori")%></b></td>
            <td width="15%" valign="top" align="center" bgcolor="#efe9ea"><b>Status</b></td>
            <td width="26%" valign="top" align="center" bgcolor="#efe9ea"><b>Senast inloggad</b></td>
          </tr> 
        <%Y = 0 
        Do Until Van.EOF
        Y = Y + 1
        Set User=Conn.Execute("Select * From users Where userId=" & Van("VanId"))
        birthday = CStr(Left(User("pNr"),2) & "-" & Mid(User("pNr"),3,2)& "-" & Mid(User("pNr"),5,2))%>
          <tr>
            <td valign="top"><%=User("alias")%>"></td>
            <td valign="top" align="center"><b>Status</b></td>
            <td valign="top" align="center">Datum</td>
          </tr>
        <%Van.MoveNext
        Loop%>
        <tr>
          <td colspan="3"> </td>
        </tr>
        <%End If
      Rel.MoveNext
      Loop
      End If%>
      </table>