---
title: "Inner Join problem,"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/49066-inner-join-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "CatZ"
published: "2002-07-30T15:00:41.000Z"
updated: "2002-07-31T15:54:43.000Z"
replies: 10
views: 293
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/49066-inner-join-problem"
---

# Inner Join problem,

## #1 — CatZ, 2002-07-30T15:00Z

```
<%
Case "info"
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT klubbar.*, klubbdag.*" &_
" FROM Klubbar INNER JOIN KlubbDag ON Klubbar.KrID = KlubbDag.KrID " &_
" WHERE Klubbar.KrID = " & Request.Querystring("ID")
rs.Open SQL, OBJdbConnection, 3, 3
%>
 <%=rs("KrNamn")%>
<%=rs("KrGata")%><br><%=rs("KrPostnr")%> <%=rs("KrStad")%><br>
<%=rs("KrTele")%>

' Koden nedan ger problem'
<%=rs("dag")%> - <%=rs("tid")%>
```

 

\<%=rs("dag")%\> och \<%=rs("tid")%\> hämtas från tabellen klubbdag... men enbart ett värde hämtas, om jag har måndag, tisdag onsdag hämtas bara ett värde :( 

Vad har jag gjort för fel ?

Antar att jag måste skapa en funktion för det? 

```
<% For All rs("dag") 
response.write("<%=rs("dag")%> - <%=rs("tid")%><br>")
```

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

## #2 — LarsG, 2002-07-30T15:19Z

Du behöver en loop

```
<%Case "info"Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT klubbar.*, klubbdag.*" &_
" FROM Klubbar INNER JOIN KlubbDag ON Klubbar.KrID = KlubbDag.KrID " &_
" WHERE Klubbar.KrID = " & Request.Querystring("ID")
rs.Open SQL, OBJdbConnection, 3, 3
if not rs.eof then
 response.write rs("KrNamn") & " " & rs("KrGata") & "<br>" & _
rs("KrPostnr") & " " & rs("KrStad") & "<br>" & rs("KrTele")
' Koden nedan ger problem'
while not rs.eof
 response.write rs("dag") &  "-"  & rs("tid") & "<br>"
 rs.movenext
wend
else
response.write "Det fanns inga poster <br>"
end if
```

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

## #3 — CatZ, 2002-07-30T15:32Z

Tack det funkar :) nu kommer bara det svåra med att skriva alla \<td\> och \<tr\> och sånt i response.write :e

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

## #4 — CatZ, 2002-07-30T16:14Z

...

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

## #5 — CatZ, 2002-07-30T16:31Z

```
<%
if not rs.eof then
response.write rs("KrNamn") & _
"</td>" & "</tr>" & "<tr class=td2 valign=top>" & "<td>" & _ 
"<strong>" & "Adress:" & "</strong>" & "<br>" & _
rs("KrGata") & "<br>" & _
rs("KrPostnr") & " " & rs("KrStad") & "<br>" & _
rs("KrTele") & _
"</td>" & "<td>" & _
"<strong>" & "Länkar" & "</strong>" & "<br>" & _
"<a href=http://db.bridgefederation.se/Klubb.asp?KlubbID" & rs("KrMpnID") & " target=_blank>" & "Medlem på Nätet" & "</a>" & "<br>" & _
"<a href=http://" & rs("KrLank") & " target=_blank>" &  "Hemsida" & "</a>" & _
"</td>" & "<td>" & _
"<strong>" & "Spelkvällar:" & "</strong>" & "<br>" & _
while not rs.eof		
response.write rs("dag") &  " - "  & rs("tid") & "<br>"
rs.movenext
wend
response.write "</td>" & "<td>" & "</td>" & "</tr>" & "</table>" &_
response.write "</td>" & "<td>" & "</td>" & "</tr>" & "</table>" 
Else
response.write "Inga Spelkvällar"
end if
```

Får det inte att fungera :( får upp:
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A03EA)
Syntaxfel
/sydostra/klubbar/TMP36fcr2ldq.asp, line 60
while not rs.eof

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

## #6 — doggelito, 2002-07-30T16:49Z

ta bort slutdelen på raden ovanför:
"\<strong\>" & "Spelkvällar:" & "\</strong\>" & "\<br\>"

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

## #7 — CatZ, 2002-07-30T18:04Z

of course, tack så mycket :)

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

## #8 — CatZ, 2002-07-30T18:15Z

Finns det något annat sätt att loopa ut värden på? Går det med DO loopen istället ?

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

## #9 — CatZ, 2002-07-30T19:44Z

```
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT KrNamn, klubbdag.KrID, dag, tid" &_
" FROM Klubbar INNER JOIN Klubbdag ON Klubbar.KrID = KlubbDag.KrID " &_
" WHERE dag = " & Request.Querystring("dag") &_
" ORDER BY KlubbDag.dag, Klubbar.KrNamn"
rs.Open SQL, OBJdbConnection, 3, 3
while not rs.eof
response.write rs("dag") & " - " & rs("tid") & " - " & rs("KrNamn") & " - " & "<br>"
rs.movenext
wend
```

Ger följande fel:
Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] För få parametrar angavs. 1 förväntades.
/klubbar/klubbar.asp, line 77

1 fråga till!
Kan man göra en INSERT i 2 tabeller samtidigt? I så fall hur? Tänkte mig lite som INNER JOIN typ

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

## #10 — LarsG, 2002-07-31T07:52Z

```
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT KrNamn, klubbdag.KrID, dag, tid" &_
" FROM Klubbar INNER JOIN Klubbdag ON Klubbar.KrID = KlubbDag.KrID " &_
" WHERE dag = '" & replace(Request.Querystring("dag"),"'","''") &_
"' ORDER BY KlubbDag.dag, Klubbar.KrNamn"
```

Om du behöver göra operationer mot olika tabeller så får du använda ett statement per operation och tabell. Om du vill att de skall ske som en operation så får du göra dom inom en transaktion.

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

## #11 — CatZ, 2002-07-31T15:54Z

Tack återigen LarsG :) Jag förstår nu varför du blev vald till årets medlem 2001 :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/49066-inner-join-problem