---
title: "Loop i loop"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/40292-loop-i-loop"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Brainbug"
published: "2002-03-26T06:21:08.000Z"
updated: "2002-03-26T06:59:12.000Z"
replies: 1
views: 137
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/40292-loop-i-loop"
---

# Loop i loop

## #1 — Brainbug, 2002-03-26T06:21Z

Hej, 

hur får jag detta att funka.. eller kanske går det inte?

```
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "DSN=MinDsn; UID=; PWD=;"

Set Rs = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT Id1, Namn1 FROM tblKat1"
Rs.Open strSql, objCon
Do Until Rs.EOF
	Response.Write("<H4>" & Rs("Namn1") & "</H4>")
	Set Rs2 = Server.CreateObject("ADODB.Recordset")
	Rs2.Open = "SELECT Id2, Namn2 FROM tblKat2 WHERE Kat1_Id1 = '" & Rs("Id1") & "'", objCon
	Do Until Rs2.EOF
		Response.Write("<A href=default.asp?cId=" & Rs2("Id2") & ">" & Rs2("Namn2") & "</A>&nbsp;&nbsp;")
		Rs2.MoveNext
	Loop
	Response.Write("<BR><BR>")
	Rs.MoveNext
Loop
```

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

## #2 — Brainbug, 2002-03-26T06:59Z

Löste det

Ändrade från

```
WHERE Kat1_Id1 = '" & Rs("Id1") & "'
```

till

```
WHERE Kat1_Id1 = " & Rs("Id1") & "
```

så funkade det :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/40292-loop-i-loop