Problem med Kompislista

Hej
(vet att det har varit uppe innan, sökte i forumet men hittade inget, eller så kunde jag inte få ihop det med mitt övriga system.)

Hur kan man göra en fungerande kompis lista? Jag har en kod men den vill inte funka, kanske vil ni kolla på den.

Det enda som jag vill är att lista vilka som man är kompis med.
Jag försökte så:

<%
Set Connect2 = Server.CreateObject("ADODB.Connection") 
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Db/members.mdb")&";pwd=losen"
Set RecSet2 = Server.CreateObject("ADODB.Recordset")

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Db/kompisar.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From kompis Where ID1 = "&Session("id") 

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>

        <%Do Until RecSet.EOF%>
        <%Addera2 = "Select * From members Where id = "&RecSet("ID2")
		RecSet2.Open Addera2, Connect2, adOpenStatic, adLockOptimistic
		%>
       
          <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"> 
            <a href="delete_friend.asp?delID=<%=RecSet("id")%>" ><img src="../images/delete-friend.gif" width="10" height="10" alt="Tabort fr&aring;n listan" border="0" align="absmiddle"></a><a href="send_mess.asp?toID=<%=RecSet("ID2")%>&direct=yes" target="mainFrame"><img src="../images/send-mess.gif" align="absmiddle" alt="Skicka ett meddelande till <% =RecSet("namn")%>" border="0" width="10" height="10"></a><a href="whois.asp?checkid=<%=RecSet("ID2")%>" target="mainFrame"> 
            <%=RecSet("namn")%></a> 
            <%If RecSet2("status") = "offline" Then%>
            <b><font color="#FF0000"><<</font></b> 
            <%Else%>
            <b><font color="#009966"><<</font></b> 
            <%End If%>
            </font></td>
        </tr>
        <%
RecSet2.Close

RecSet.MoveNext
Loop
Connect2.Close
Set RecSet2 = nothing
Set Connect2 = nothing
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>

Men denna kod funkar inte, vad är felet?