Lite konstigt!

jag har cirka 10 poster i min tabell, och 3 av dem skall hämtas och loopas med denna kod... fast problemet är att den bara hämtar endast 1 enda post, den som är överst och inget mer, och jag får inga felmedelande.. det är meningen att den skall jobba med 2 tabeller!

<%
user = session("user")

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/members.mdb")&";"
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM kompis where vems='"&user&"'"
Set RS = conn.execute(SQL)
if rs.bof and rs.eof then
%>
  <tr>
    <td>Inga vänner!</td>
  </tr>
<%
else
do until rs.eof

kompis = RS("kompis")

SQL = "select username, status FROM members where username='"&kompis&"'"
Set RS = conn.execute(SQL)

%>

  <tr>
    <td width="14> <%=RS("username")%></td>

  </tr>

<%
rs.movenext
loop
end if
rs.close
conn.close
%>

EDIT) Kortade av koden lite

Jag förstår inte ens hur den där koden skulle kunna hämta ut 3 värden? Och vad är det du ska hämta ut 3 av? 3 kompisar?

1. DU använder RS i ett RS.... tror inte de fungerar någe bra då. Byt ut ett av dem mot ex rsKompis eller ngt.
2. Använd Jet OLEDB istället för den kopplingen du kör med... har inte koden i huvudet, ngn annan kanske kan kompletera?

Sebbe skrev:

Jag förstår inte ens hur den där koden skulle kunna hämta ut 3 värden? Och vad är det du ska hämta ut 3 av? 3 kompisar?

japp i huvet ere tänkt att den ska hämta namnet från alla poster som tillhör personen, i detta fall 3 stycken, sedan hämta ut dem från tabellen members, för i tabellen members står det om dem är online eller inte men där står det lixom inte nått som "kompis" grejen i members tabellen

<%
user = session("user")

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databaser/members.mdb")&";"

Set rsKompis = Server.CreateObject("ADODB.Recordset")
Set rsMember = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM kompis where vems = '" & user & "';"
Set rsKompis = conn.execute(SQL, , 1)

If rsKompis.EOF Then
    %><tr><td>Inga vänner!</td></tr><%
Else
    Do Until rsKompis.EOF
        kompis = rsKompis("kompis")

        SQL = "select username, status FROM members where username = '" & kompis & "';"
        Set rsMember = conn.execute(SQL, , 1)
        
        %><tr><td width="14> <%=rsMember("username")%></td></tr><%

        rsKompis.MoveNext
    Loop
End If

Set rsKompis = Nothing
Set rsMember = Nothing
Set conn = Nothing
%>

Tack Engine^ det där fungerade alldeles utmärkt!

EDIT) och alla andra som försökte hjälpa.. uppskattas verkligen!!

Varsågod!