Sv:Flera nivåer i en select

Flera nivåer i en select

Postades av 2006-05-10 11:02:05 - Johan Moberg, i forum asp - allmänt, Tråden har 2 Kommentarer och lästs av 451 personer

Har försökt leta här på forumet men inte hittat nått. Jag har en ”select lista” där jag loopar fram kategorier från en databas och det fungerar utmärkt men jag skulle vilja att underkategorierna har ett – tecken framför så de blir något inskjutna. På så sätt blir de ju mer överskådligt. Om det är så att en underkategori har en under kategori så skulle jag vilja att den ha två stycken – osv.

Koden jag har ser ut enligt följande:

<code>
<%
Function WriteMenu(Connect, Parent)
Dim rsTemp, fldID, fldNamn, fldSubMenus, vID, vText, vSubMenus

If Parent <> 0 Then
Set rsTemp = Connect.Execute("Select *, (Select Count(*) From t_categories as SubMenu Where SubMenu.parentID = t_categories.catID) as SubMenus From t_categories Where t_categories.parentID = "& Parent &" Order By sorting asc" )
Else
Set rsTemp = Connect.Execute("Select *, (Select Count(*) From t_categories as SubMenu Where SubMenu.parentID = t_categories.catID) as SubMenus From t_categories Where t_categories.parentID = 0 Order By sorting asc")
End If

If Not rsTemp.EOF Then
Set fldID = rsTemp("catID")
Set fldNamn = rsTemp("catName")
Set fldSubMenus = rsTemp("SubMenus")
Do
vID = fldID
vText = fldNamn
vSubMenus = fldSubMenus
rsTemp.MoveNext
Response.Write "<option>"& vText &"</option>"& vbCrLf
If vSubMenus > 0 Then
WriteMenu Connect, vID
End If
Loop Until rsTemp.EOF
End if
rsTemp.Close
End Function

Call dbOpen(Connect)
Response.Write "<select name=""test"">"& vbCrLf
WriteMenu Connect, 0
Response.Write "</select>"& vbCrLf
Call dbClose(Connect)
%>
</code>

Är det någon som skulle kunna hjälpa mig med detta?

Svara