---
title: "Tar samma"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11757-tar-samma"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ReloadMaster"
published: "2001-09-24T17:35:00.000Z"
updated: "2001-09-24T18:06:00.000Z"
replies: 1
views: 334
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/11757-tar-samma"
---

# Tar samma

## #1 — ReloadMaster, 2001-09-24T17:35Z

Tjena!
Jag skulle behöva hjälp med en liten sak.

Det är så att denna kod tar ut samma post flera gånger istället för 
att "MoveNext"

```
<%
SQL = "SELECT VID FROM kompisar WHERE DID='"&RecSet("ID")&"'"
Set RecSet2 = Connect.Execute(SQL)

VID = Recset2("VID")

If RecSet2.EOF Then
%>

<% =an%> har inga kompisar just nu 

<%
Else
SQL = "SELECT * FROM medlemmar WHERE ID="&VID&""
Set RecSet3 = Connect.Execute(SQL)
%>
Användarnamn:<p>
<%
Do Until RecSet2.EOF
KID = Recset3("ID")
anvnamn = RecSet3("anvandarnamn")
%>

<a href="community_medlem.asp?ID=<% =ID%>&KID=<% =KID%>"><% =anvnamn%></a><p><p><br>

<%
RecSet2.MoveNext

Loop
%>
```

Vad jag vill är att den ska ta ut olika poster...

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

## #2 — LarsG, 2001-09-24T18:06Z

I så fall måste du lägga den andra sql-satsen innaför loopen

```
<%
SQL = "SELECT VID FROM kompisar WHERE DID='"&RecSet("ID")&"'"
Set RecSet2 = Connect.Execute(SQL)

If RecSet2.EOF Then
%>

<% =an%> har inga kompisar just nu 

<%
Else

%>
Användarnamn:<p>
<%
Do Until RecSet2.EOF
VID = Recset2("VID")
SQL = "SELECT * FROM medlemmar WHERE ID="&VID&""
Set RecSet3 = Connect.Execute(SQL)
KID = Recset3("ID")
anvnamn = RecSet3("anvandarnamn")
%>

<a href="community_medlem.asp?ID=<% =ID%>&KID=<% =KID%>"><% =anvnamn%></a><p><p><br>

<%
RecSet2.MoveNext

Loop
%>
```

Nu skall man helst inte skriva sådan kod, utan det går alldeles utmärkt att få fram allt med hjälp av en sqlsats

```
<%
SQL = "select anvandarnamn from medlemmar where id in (SELECT VID FROM kompisar WHERE DID='"&RecSet("ID")&"'"
Set RecSet2 = Connect.Execute(SQL)
If RecSet2.EOF Then
%>

<% =an%> har inga kompisar just nu 

<%
Else
%>
Användarnamn:<p>
<%
Do Until RecSet2.EOF
KID = Recset2("ID")
anvnamn = RecSet2("anvandarnamn")
%>

<a href="community_medlem.asp?ID=<% =ID%>&KID=<% =KID%>"><% =anvnamn%></a><p><p><br>

<%
RecSet2.MoveNext

Loop
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11757-tar-samma