Select box som lister ut underkategorier via threds
Hei!Jeg sitter å lager et admin interface til en menu.
Nå brukeren skal endre menu oppbyggningen så skal man kunne velge fra en select boks feks hvor man skal legge menupunktet under.
Det jeg vil er at man skal se hva som hør under hva i select bokse.
Feks:
Biler
-Ford
--Escort
--Mondeo
-Opel
Osv.
Koden ser slik ut! Er det noen som har noen andre gode ideer eller kan hjelpe meg med scriptet?
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<body>
<%
dim strConn
strConn = "Provider=SQLOLEDB;Initial Catalog=xxxxxx; Server=xxx.xxx.xxx.xxx;User ID=;Password="
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn
Set rsEntries = adoCn.Execute("SELECT * FROM TOC ORDER BY seq desc, label asc")
'Set rsEntries = adoCn.Execute("SELECT * FROM TOC")
'Set rsEntries = adoCn.Execute("selectTBLDOCUMENTSroot") 'Stored procedures
If rsEntries.EOF Then
Response.Write "<font size=1 face=verdana><ul>Ingen poster!<br></ul></font>"
Response.Write"<font size=1 face=verdana><ul><a href=add.asp?Action=main>Legg til på rotnivå</a></ul></font>"
Response.End
End if
Do
arrID = arrID & "," & rsEntries("id")
arrRE = arrRE & "," & rsEntries("parent")
arrSU = arrSU & "," & rsEntries("label")
arrSUB = arrSUB & "," & rsEntries("sub")
arrSEQ = arrSEQ & "," & rsEntries("seq")
rsEntries.MoveNext
Loop while not rsEntries.eof
arrID = Split(arrID,",")
arrRE = Split(arrRE,",")
arrSU = Split(arrSU,",")
arrSUB = Split(arrSUB,",")
arrSEQ = Split(arrSEQ,",")
adoCn.Close
Function Threads(intID)
For m = 1 to Ubound(arrID)
If Cint(arrRE(m)) = Cint(intID) Then
Threads = Threads & "<font size=1 face=verdana><ul><b>" & arrSU(m) & "</b> <a href=add.asp?Action=sub&Sub=" & arrSub(m) & "&ID=" & arrID(m) & ">(Legg til undermeny)</a> <a href=add.asp?Action=change&Sub=" & arrSub(m) & "&ID=" & arrID(m) & "&Name=" & arrSU(m) & "&Seq="& arrSEQ(m) & ">(Endre)</a> <a href=add.asp?Action=delete&ID=" & arrID(m) & ">(Slett)</a>" & Threads(arrID(m)) & "</ul></font>"
End If
Next
End Function
Function Options(intID)
For m = 1 to Ubound(arrID)
If Cint(arrRE(m)) = Cint(intID) Then
Options = Options & "<option value=" & arrID(m) & ">" & arrSU(m) & "</option>" & Options(arrID(m))
End If
Next
End Function
Response.Write"<font size=1 face=verdana><ul><a href=add.asp?Action=main>Legg til på toppnivå</a></ul></font>"
'Skriver ut menyen korrekt
Response.Write Threads(0)
'Select boksen
Response.Write "<select name=test size=22>"
Response.Write "<option value=0>På toppnivå</option>"
Response.Write Options(0)
Response.Write "</select>"
%>
</body>
</html>
