---
title: "Problem med 2 RS"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/168735-problem-med-2-rs"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "timedia"
published: "2008-02-05T07:15:02.000Z"
updated: "2008-02-05T10:26:01.000Z"
replies: 8
views: 592
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/168735-problem-med-2-rs"
---

# Problem med 2 RS

## #1 — timedia, 2008-02-05T07:15Z

```
Set RS = Server.CreateObject("ADODB.Recordset")

   Visa = "SELECT * FROM Pmiljo WHERE Miljonr = '" & Request.QueryString("miljo") & "' ORDER BY PU"
   RS.Open Visa, Connect 
      
   Set RecSet = Server.CreateObject("ADODB.Recordset")
   Visamil = "SELECT Id, Artikelnr, Namn, Bild FROM Plattor WHERE Artikelnr = '" & RS("Platta") & "' ORDER BY Artikelnr"
   RecSet.Open Visamil, Connect
```

VISA plockar ut en bild på en miljö. 
VISAMIL ska lista alla plattor i miljöen.

Problemet är att den bara visar en platta även om det borde vara flera.  Såhär försöker jag visa plattor:

```
	Do While not RecSet.EOF   
	Response.write "<td><a href='a_present.asp?platta="&RecSet("Id")&"'><img src='bild1/small_"&RecSet("Bild")&"' alt='' width='100' height='100' border='0'><br>"&RecSet("Namn")&"</a></td>"
	RecSet.MoveNext
	Loop
```

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

## #2 — voigtann1, 2008-02-05T07:33Z

Du kan göra en INNER JOIN på din SQL fråga för att bara plocka ut ett Recordset. Men:
Du måste just nu loopa ut ditt RS objekt:

```
Set RS = Server.CreateObject("ADODB.Recordset")

Visa = "SELECT * FROM Pmiljo WHERE Miljonr = '" & Request.QueryString("miljo") & "' ORDER BY PU"
RS.Open Visa, Connect 

Do Until RS.EOF
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	Visamil = "SELECT Id, Artikelnr, Namn, Bild FROM Plattor WHERE Artikelnr = '" & RS("Platta") & "' ORDER BY Artikelnr"
	RecSet.Open Visamil, Connect
	
	Do While not RecSet.EOF   
		Response.write "<td><a href='a_present.asp?platta="&RecSet("Id")&"'><img src='bild1/small_"&RecSet("Bild")&"' alt='' width='100' height='100' border='0'><br>"&RecSet("Namn")&"</a></td>"
		RecSet.MoveNext
	Loop
	
	RecSet.Close
	Set RecSet = Nothing

	RS.MoveNext
Loop
```

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

## #3 — timedia, 2008-02-05T07:54Z

Tack Voigtann! Tror dock det blir smidigare med ett rs då jag ska 'skriva ut' olika värden på många olika sätt på sidan. Försöker fixa en innerjoin.

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

## #4 — timedia, 2008-02-05T08:47Z

Nu har jag klåpat ihop följande:

```
"SELECT Pmiljo.Id, Pmiljo.Miljonr, Pmiljo.Platta, Pmiljo.PU, Pmiljo.Bild, Pmiljo.Brodtxt, Plattor.Artikelnr, Plattor.Bild,Plattor.Namn, Plattor.brodtxt FROM Pmiljo INNER JOIN Plattor ON Pmiljo.Platta = Plattor.Artikelnr WHERE Pmiljo.Miljonr = '" & Request.QueryString("miljo") & "'"
```

sen blir det ju ett problem när jag ska skriva ut t.ex \<%= RS("Bild") %\> Bild finns ju båda i Pmiljo och Plattor (olika bilder)
Betyder detta att man inte kan ha samma namn på kolumner i olika tabeller, eller hur gör man?

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

## #5 — @nders, 2008-02-05T08:49Z

Du får ge fälten alias.

```
Select pmiljo.bild AS miljobild,  plattor.bild AS plattbild....
```

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

## #6 — timedia, 2008-02-05T08:52Z

Ahhh - lysande!!!

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

## #7 — timedia, 2008-02-05T09:24Z

Nu har jag problem med loopen igen :(
Trodde jag löste detta med ett Rs. 

```
"SELECT Pmiljo.Id, Pmiljo.Miljonr, Pmiljo.Platta AS Miljoplatta, Pmiljo.PU, Pmiljo.Bild AS Miljobild, Pmiljo.Brodtxt, Plattor.Id AS Plattid, Plattor.Artikelnr AS Artikelnr, Plattor.Bild AS Plattbild, Plattor.Namn AS Plattnamn, Plattor.brodtxt FROM Pmiljo INNER JOIN Plattor ON Pmiljo.Platta = Plattor.Artikelnr WHERE Pmiljo.Miljonr = '" & Request.QueryString("miljo") & "'"
```

 Nu hämtar inte loopen några alls.

```
Sub Visaplattor

response.write "Plattor som är använda i ovanstående bild:<br>"
response.write "Visamil: "& Visa & "<br>"
	Do While not RS.EOF   
	Response.write "<td><a href='a_present.asp?platta="&RS("Plattid")&"'><img src='bild1/small_"&RS("Plattbild")&"' alt='' width='100' height='100' border='0'><br>"&RS("Plattnamn")&"</a></td>"
	RS.MoveNext
	Loop
	RS.Close: Set RS = nothing
	
 end sub
```

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

## #8 — voigtann1, 2008-02-05T09:47Z

Lägg ditt anrop där du skapar recordsetet i din Sub. 

```
Sub Visaplattor(miljo)
	dim sql
	sql = "SELECT Pmiljo.Id, Pmiljo.Miljonr, Pmiljo.Platta AS Miljoplatta, Pmiljo.PU, Pmiljo.Bild AS Miljobild, Pmiljo.Brodtxt, Plattor.Id AS Plattid, Plattor.Artikelnr AS Artikelnr, Plattor.Bild AS Plattbild, Plattor.Namn AS Plattnamn, Plattor.brodtxt FROM Pmiljo INNER JOIN Plattor ON Pmiljo.Platta = Plattor.Artikelnr WHERE Pmiljo.Miljonr = '" & miljo & "'"
	Set RS = Server.CreateObject("ADODB.Recordset")

	RS.Open sql, Connect 
	Response.Write "Plattor som är använda i ovanstående bild:<br>"
	Response.Write "Visamil: "& Visa & "<br>"
	Do While not RS.EOF   
		Response.Write "<td><a href='a_present.asp?platta="&RS("Plattid")&"'><img src='bild1/small_"&RS("Plattbild")&"' alt='' width='100' height='100' border='0'><br>"&RS("Plattnamn")&"</a></td>"
		RS.MoveNext
	Loop
	RS.Close: Set RS = Nothing
End Sub
```

och Andropar det med:

```
Visaplattor Request.QueryString("miljo")
```

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

## #9 — timedia, 2008-02-05T10:26Z

Tack, tack! Funkar jättebra!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/168735-problem-med-2-rs