<code>
<%
call connOpen()

strSQL = "SELECT * FROM siteMenu WHERE pParent = 0 ORDER BY pId ASC"
Set rsMenu = dbConn.Execute(strSQL)

Do Until rsMenu.EOF
If rsMenu("pSub") = True Then
Response.Write ",""&nbsp;" &rsMenu("pHeadline") &"&nbsp;"",""show-menu=" &rsMenu("pId") &""",,"""",1"
Else
Response.Write ",""&nbsp;" &rsMenu("pHeadline") &"&nbsp;"",""" &rsMenu("pUrl") &""",,"""",1"
End If
rsMenu.MoveNext
Loop

call connClose()
%>

])

<%
call connOpen()

strSQL = "SELECT * FROM siteMenu"
Set rsMenu = dbConn.Execute(strSQL)

Do Until rsMenu.EOF
%>
addmenu(menu=["<%=rsMenu("pId")%>",,,200,1,"",stylesub,,"left",,,,,,,,,,,,,
<%

strSQL = "SELECT * FROM siteMenu WHERE pParent = " &rsMenu("pId")
Set rsSubMenu = dbConn.Execute(strSQL)

Do Until rsSubMenu.EOF
Response.Write ",""" &rsSubMenu("pHeadline") &""",""" &rsSubMenu("pUrl") &""",,,1"
rsSubMenu.MoveNext
Loop
%>
])
<%
rsMenu.MoveNext
Loop

call connClose()
%>
</code>
Någon som vill / kan hjälpa mig ?