---
title: "Blir galen!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/106773-blir-galen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bosse168"
published: "2004-07-05T18:06:05.000Z"
updated: "2004-07-05T22:21:27.000Z"
replies: 4
views: 314
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/106773-blir-galen"
---

# Blir galen!

## #1 — Bosse168, 2004-07-05T18:06Z

Jag får inte mitt forum att funka...
Om det finns några inlägg i en kategori så loopas underkategorin om igen alltså bara namnet. Har stirrat blind och försökt med alla konstens medel att få det att funka men jag fattar noll när det kommer till inner/left join i SQL-satser.
Så om det finns någon vänlig själ som vet hur jag på bästa sätt kan loopa ut forumet?

```
                      <tr> 
                        <td colspan="4" height="1" bgcolor="#CCCCCC"></td>
                      </tr>
<%
Dim SQL,Rs,strNamn,Rs2

SQL="SELECT c1.id,c1.namn,c1.beskriv,c2.id as subid, " & _
       "c2.namn as namn2,c2.beskriv as beskriv2, " & _
       "c2.inlagg as inlagg,c2.tradar as tradar , " & _
       "slaf,datum " & _
"FROM forum_cat c1 left join forum_cat c2  " & _
"on c2.sub=c1.id left join forum_inlagg " & _
"on catID = c1.id and subId = c2.id " & _
"where c1.sub=0  " & _
"order by datum, c1.namn,c2.namn"

'SQL="SELECT c1.id,c1.namn,c1.beskriv,c2.id as subid,c2.namn as namn2,c2.beskriv as beskriv2,c2.inlagg as inlagg,c2.tradar as tradar FROM forum_cat c1 left join forum_cat c2 on c2.sub=c1.id where c1.sub=0 order by c1.namn,c2.namn"

Set Rs = Connect.Execute(SQL)

Do until Rs.eof
%>

                      <tr> 
                        <td colspan="4" class="rubrik2" bgcolor="#EFEFEF">

<%=Rs("namn")%>

						</td>
                      </tr>
                      <tr> 
                        <td colspan="4" height="1" bgcolor="#CCCCCC"></td>
                      </tr>
<%

strNamn = Rs("id")
Do
  If Rs.EOF Then Exit Do
  If rs("id") <> clng(strNamn) Then Exit Do

%>					  
                      <tr> 
                        <td width="53%">
<%
Response.Write(""& Rs("id") &" - <a href=""visa.asp?catid="& Rs("id") &"&subid="& Rs("subid") &""">"& Rs("namn2") &"</a><br>" & _
Rs("beskriv2") &"")
%>
</td>
                        <td width="11%">

<%=Rs("tradar")%>
						</td>
                        <td width="6%">
<%=Rs("inlagg")%>
						</td>

                        <td width="30%" align="center">
<%
If isNull(Rs("datum")) Then
Response.Write("-")
Else
Response.Write Day(Rs("datum")) & " " & MonthName(Month(Rs("datum")),True) &" kl "& FormatDateTime(Rs("datum"), 4) &"<br>"& Rs("slaf") &""
End If
%>
						</td>
                      </tr>
					  
                      <tr> 
                        <td colspan="4" height="1" bgcolor="#CCCCCC"></td>
                      </tr>
<%
  rs.MoveNext
Loop

Loop

Rs.Close : Set Rs = Nothing
%>
                    </table>
```

/red looparna ;)

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

## #2 — Jesper T, 2004-07-05T18:50Z

[Tänk på hur du namnger rubrikerna... :)](http://www.webforum.nu/showthread.php?s=&threadid=55116&forumid=22)
Riktlinjer punkt II

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

## #3 — Bosse168, 2004-07-05T20:43Z

Det går alltså inte att lösa den loop i samma?
Jag blir alltså tvungen att sätta två RecSet, ett som loopar ut huvudkategorierna och i den loopen en annan RecSet som loopar ut underkategorierna. Men kan aldrig tänka mig att detta är det optimeraste sättet att göra det på.

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

## #4 — solbulle, 2004-07-05T21:19Z

Lägg namnet i en variabel, kolla om det är samma namn i din variabel som i ditt RS, är det så, skriv inte ut, om inte så är det en ny underkategori: skriv ut.

Tjong.

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

## #5 — Bosse168, 2004-07-05T22:21Z

Jag vet ju inte hur man gör detta.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/106773-blir-galen