<% Dim rsS Set rsS = Server.CreateObject("ADODB.Recordset") rsS.Open "SELECT * FROM structuur ORDER BY parent", cnH, 3, 3 Do While Not rsS.EOF If Len(rsS.Fields("parent")) = 2 Then %> <% Else i = 0 Do While i <= Len(rsS.Fields("parent")) Response.Write "  " i = i + 1 Loop %> <% End If If rsS.Fields("link") = True Then %>  "><%=rsS.Fields("Beschrijving_NL")%>
<% Else %> <%=rsS.Fields("Beschrijving_NL")%>
<% End If rsS.MoveNext Loop %>