Script til Menu driller
Jeg har sidet og bakset med denne kode et stykke tid, men kan ikke få det til at virke.Det er en \"tree\"-menu, som skal folde en underliggende undermenu ud når der klikkes på menupunkt.
Problemet er at den folder alle undermenu\'er ud når der klikkes på menupunkt, men den skal kun tage en adgangen.
Jeg har vedlagt kode til menuen, som også kan ses på følgende link:
http://www.digitalweb.dk/menu2.asp
Håber der er nogen af jer der kan hjælpe.
############## SCRIPT SOURCE #########################
<% @LANGUAGE=\"VBSCRIPT\" %>
<%
\' Variabler erklæres Explicit
Option Explicit
Response.Buffer = True
On Error Resume Next
\' Variabler erklæres (Explicit)
Dim oConn, strRequest
strRequest=Request.QueryString(\"Foldud\")
\' Connection til DSN
Set oConn = Server.CreateObject(\"ADODB.Connection\")
oConn.Open \"DSN=DigitalwebShop;UID=sa\"
Response.Write \"<HTML>\" & chr(13)
Response.Write \"<BODY>\" & chr(13)
Response.Write ShowMenu(Null,0)
oConn.Close
Set oConn = Nothing
Response.Write \"</BODY>\" & chr(13)
Response.Write \"</HTML>\"
%>
<%
Function ShowMenu(ParentID,Level)
Dim oRS, strSQL, SubMenu, Menu, i
\'Recordsæt fra database oprettes
Set oRS = Server.CreateObject(\"ADODB.Recordset\")
If IsNull(ParentID) Then
strSQL=\"SELECT KategoriID, Kategorinavn, HarSubKategori FROM Kategorier2 WHERE SubkategoriAf=0\"
Else
strSQL=\"SELECT KategoriID, Kategorinavn, HarSubKategori FROM Kategorier2 WHERE SubkategoriAf=\" & ParentID & \"\"
End If
oRS.Open strSQL, oConn
WHILE NOT oRS.EOF
SubMenu=ShowMenu(oRS(\"KategoriID\"),Level+1)
For i = 1 To Level
Menu = Menu & \" \"
Next
If oRS(\"HarSubKategori\")=False Then
Menu = Menu & \"<a href=menu2.asp?Vis=\" & oRS(\"KategoriID\") & \">\" & oRS(\"Kategorinavn\") & \"</a><br>\" & chr(13)
Else
If strRequest<>\"\" Then
Menu = Menu & \"<a href=menu2.asp?Foldud=\" & oRS(\"KategoriID\") & \">\" & oRS(\"Kategorinavn\") & \"</a><br>\" & chr(13) & SubMenu
Else
Menu = Menu & \"<a href=menu2.asp?Foldud=\" & oRS(\"KategoriID\") & \">\" & oRS(\"Kategorinavn\") & \"</a><br>\" & chr(13)
End If
End If
oRS.MOVENEXT
WEND
oRS.Close
Set oRS = Nothing
ShowMenu=Menu
End Function
%>
