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> <a href=index.asp?visa=inlagg&id=" & vID & "&uid=" & vUID & ">" & vRubrik & "</a></td></tr>"
Else
Response.Write "<td> <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%>