---
title: "Loopa"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/107412-loopa"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "DiDjo"
published: "2004-07-15T17:16:36.000Z"
updated: "2004-07-15T18:26:53.000Z"
replies: 1
views: 204
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/107412-loopa"
---
# Loopa
## #1 — DiDjo, 2004-07-15T17:16Z
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... :)
Permalänk: https://www.webforum.nu/p/107412
## #2 — DiDjo, 2004-07-15T18:26Z
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")
%>
<%if rs2("admin") = True then%>
<%elseif rs2("vip") = True then%>
<%elseif rs2("vaktare") = True then%>
<%else%>
<%end if%> " style="TEXT-DECORATION: none"><%=rs2("gnamn")%> <%if rs2("sex") = "Kille" then%> P<%else%>
F<%end if%><%=calcMyAge(gammal)%>
<%
end if
rs1.MoveNext
Loop
if rs2.eof then%>
Du har inga kompisar online!
<%
end if
rs1.Close
Connect1.Close
Set rs1 = nothing
Set Connect1 = nothing
%>
```
Permalänk: https://www.webforum.nu/p/1386814
---
Tråden på webben: https://www.webforum.nu/amne/asp/107412-loopa