Loopa

Hejsan, jag har suttit och försökt tänka ut hur det ska fungera, men jag lyckades inte >.<... Detta är vad jag skulle villja uppnå:

Hämta ut alla poster där "vems = gnamn" från tabellen "kompis", sedan öppna en ny koppling till tabellen "gaster" där kolumnen "gnamn = rs1("vem") (Från tabellen kompis alltså...)" och där inne = true... sen loopa ut allt!

gnamn = Request.Cookies("gnamn")

Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM kompis where vems = '"&gnamn&"' "
rs1.Open Addera, Connect, 3, 3

Set rs2 = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From gaster Where gnamn = '"& rs1("vem") & "' AND inne = true ORDER BY kom DESC, gnamn"
rs2.Open SQL, Connect, 3, 3

Och sen loopa ut alla poster den hittar där allt stämmer...

Och ifall det inte finns någon post där "inne = true" så ska de stå "Du har ingen kompis online" eller nått... :)

Okej, jag löste det på det här sättet:

<%
Set Connect1 = Server.CreateObject("ADODB.Connection")
Connect1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("****")

Set rs1 = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From kompis Where vems = '"&gnamn&"'"

rs1.Open SQL, Connect1, 3, 3

DO Until rs1.EOF OR X = 30
X=X+1
Set rs2 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM gaster where gnamn = '"&rs1("vem")&"' and inne = true"
rs2.Open Addera, Connect, 3, 3
if not rs2.eof then
gammal = rs2("fodd")
%>
<font face="Verdana" style="font-size: 8pt">&nbsp;<%if rs2("admin") = True then%><img border="0" src="bilder/online_admin.jpg" width="8" height="8"><%elseif rs2("vip") = True then%><img border="0" src="bilder/online_vip.jpg" width="8" height="8"><%elseif rs2("vaktare") = True then%><img border="0" src="bilder/online_polis.jpg" width="8" height="8"><%else%><img border="0" src="bilder/online.jpg" width="8" height="8"><%end if%>&nbsp;</u><b><a target="_top" href="hem.asp?vem=<%=rs2("gnamn")%>" style="TEXT-DECORATION: none"><%=rs2("gnamn")%></a>  <%if rs2("sex") = "Kille" then%>  P<%else%> 
F<%end if%><%=calcMyAge(gammal)%></b><br>
</font>
<%
end if
rs1.MoveNext
Loop
if rs2.eof then%>
<font face="Verdana" style="font-size: 8pt">Du har inga kompisar online!
<%
end if
rs1.Close
Connect1.Close
Set rs1 = nothing
Set Connect1 = nothing
%>