---
title: "Problem med Kompislista"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13526-problem-med-kompislista"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Qimen"
published: "2002-01-03T19:06:00.000Z"
updated: "2002-01-03T21:35:00.000Z"
replies: 4
views: 241
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13526-problem-med-kompislista"
---

# Problem med Kompislista

## #1 — Qimen, 2002-01-03T19:06Z

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?

Permalänk: https://www.webforum.nu/p/13526

## #2 — jboy_87, 2002-01-03T19:13Z

vad för du för felmess?

Permalänk: https://www.webforum.nu/p/302500

## #3 — Qimen, 2002-01-03T19:16Z

> Feltyp:
> (0x80020009)
> Undantag inträffade. 
> /inloggad/pdefault.asp, line 220
>
> 220:   \<%If RecSet2("status") = "offline" Then%\>

Permalänk: https://www.webforum.nu/p/302501

## #4 — PatrikB, 2002-01-03T19:55Z

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

Permalänk: https://www.webforum.nu/p/302502

## #5 — Qimen, 2002-01-03T21:35Z

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

Permalänk: https://www.webforum.nu/p/302503

---

Tråden på webben: https://www.webforum.nu/amne/asp/13526-problem-med-kompislista