Hele menuen lukkes
Jeg skal have lidt hjælp med min kode:Dim kID
Dim ukID
Dim parentID
parentID = session("parentID")
Sub RtrnKat(pid)
Dim rs
Dim rs_sql
Set rs = Server.CreateObject("ADODB.Recordset")
rs_sql = "SELECT * FROM Kategorier WHERE ParentID = " & pid & " Order By Prioritet asc, Navn asc"
rs.Open rs_sql, Conn, 1, 1
Do While Not rs.EOF
If rs("parentID") = 0 Then kID = rs("parentID")
Response.Write "<tr>" & _
"<TD width=18 height=15></TD>" & _
"<TD width=10 height=15>"
If CInt(session("Kategorie")) = CInt(rs("Id")) Then
Response.Write "<IMG height=5 src=""Pics/firkant_fyld.gif"" width=5></TD>"& _
"<TD bgColor=#dfebc8 height=15><B>"
Else
Response.Write "</TD>" & _
"<TD height=15><B>"
End If
If rs("Nr") = 1 Then
Response.Write "<A href=""index.asp?Size=" & session("Sizex") & "&parentid=" & rs("parentID") & "&Kategorie=" & rs("Id") & "&Forside=" & rs("Id") &""">" & rs("Navn")
End If
If rs("Nr") = 2 Then
Response.Write "<A href=""index.asp?Size=" & session("Sizex") & "&parentid=" & rs("parentID") & "&Kategorie=" & rs("Id") & "&Forside=" & rs("Id") &""">" & " " & rs("Navn")
End If
If rs("Nr") = 3 Then
Response.Write "<A href=""index.asp?Size=" & session("Sizex") & "&parentid=" & rs("parentID") & "&Kategorie=" & rs("Id") & "&Forside=" & rs("Id") &""">" & " " & rs("Navn")
End If
Response.Write "</A></B></TD>" & _
"</tr>"
If CInt(Session("Kategorie")) = CInt(rs("ID")) Then RtrnKat(rs("ID"))
If CInt(parentID) = CInt(rs("ID")) Then RtrnKat(rs("id"))
'If CInt(kID) = rs("") Then RtrnKat(rs("ID"))
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
Call RtrnKat(0)
conn.close
set conn=Nothing
Når den udskriver en kategori hvor rs("Nr") = 3 så hvis man trykker på den så lukker den hele menuen. Er der en der kan hjælpe?
Check fælgende link for at se hvad jeg mener:
http://www.just2funny.dk/1/index.asp?Size=&parentid=12&Kategorie=15&Forside=15
