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?

------------------
... *hick*

vad för du för felmess?

------------------
ASP är bäst fuck the rest!!!

Feltyp:
(0x80020009)
Undantag inträffade.
/inloggad/pdefault.asp, line 220

220: <%If RecSet2("status") = "offline" Then%>

------------------
... *hick*

Kan inte hitta den raden i din kod ovanför ...... eller börjar en bli för gammel och bör skaffa ett par synförstärkare :e

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

[Redigerat av PatrikB den 03 jan 2002]

Ahh det löste sig, jag bytade Connect till conn och raderade allt i databasen. Sen så funkade det. =)

------------------
... *hick*