---
title: "Plus & Minus"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39341-plus-minus"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2002-03-09T20:07:09.000Z"
updated: "2002-03-10T00:49:46.000Z"
replies: 1
views: 231
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/39341-plus-minus"
---

# Plus & Minus

## #1 — Asa, 2002-03-09T20:07Z

Hur gör man för att få ett + tecken på alla huvudilägg som har underinlägg?? Sen när den e öppen ska plusset vara ett - och när man klickar på - teckent ska den tråden stängas och minuset byts tillbaka till ett +

Hoppas någon kan!

Som denna - nästan:

<http://www.kanal5.se/popstars/forum.asp>
 

```
<%Function Meny(Conn, HuvudId) 
  If HuvudId <> 0 Then 
     Set RS = Conn.Execute("Select *, (Select Count(*) From forum as SubMeny Where SubMeny.uid = forum.id) as SubMenus From forum Where forum.uid = " & HuvudId & " Order By Datum desc") 
  Else 
     Set RS = Conn.Execute("Select *, (Select Count(*) From forum as SubMeny Where SubMeny.uid = forum.id) as SubMenus From forum Where forum.uid Is Null Order By Datum desc") 
  End If 
  If Not RS.EOF Then 
      Set Id = RS("id") 
      Set UId = RS("uid") 
      Set Rubrik = RS("rubrik") 
      Set SubMenus = RS("SubMenus") 
      Response.Write "<table border='0' cellpadding='0' cellspacing='0'>" 
      Do   
          vID = Id 
          vUID = UId 
          vRubrik = Rubrik 
          vSubMenus = SubMenus 
          RS.MoveNext 
          If RS.EOF Then 
              Response.Write "<tr><td width='12px' height='12' background='bilder/end.gif'></td>" 
          Else 
              Response.Write "<tr><td width='12px' height='12' background='bilder/main.gif'></td>" 
          End If 
          If vUID <> "" Then 
            Response.Write "<td>&nbsp;<a href=index.asp?visa=inlagg&id=" & vID & "&uid=" & vUID & ">" & vRubrik & "</a></td></tr>" 
          Else 
            Response.Write "<td>&nbsp;<a href=index.asp?visa=inlagg&id=" & vID & "&uid=" & vID & ">" & vRubrik & "</a></td></tr>" 
          End If 
          If vSubMenus > 0 Then 
              If RS.EOF Then 
                  Response.Write "<tr><td width='12px' height='12'></td><td>" 
              Else 
                  Response.Write "<tr><td width='12px' height='12' background='bilder/left.gif'></td><td>" 
              End If 
              Meny Conn, vID 
              Response.Write "</td></tr>" 
          End If            
      Loop Until RS.EOF 
      Response.Write "</table>" 
  End if 
End Function%>
```

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

## #2 — Asa, 2002-03-10T00:49Z

Det fixade sig fast med en helt annan kod! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/39341-plus-minus