Burada önemli olan HTML kısmı.

<div class="sidebarmenu">
<ul id="sidebarmenu1">
<li><a href="#">Item 1</a></li>
<li><a href="#">Item 2</a></li>
<li><a href="#">Folder 1</a>
  <ul>
  <li><a href="#">Sub Item 1.1</a></li>
  <li><a href="#">Sub Item 1.2</a></li>
  </ul>
</li>
<li><a href="#">Item 3</a></li>

<li><a href="#">Folder 2</a>
  <ul>
  <li><a href="#">Sub Item 2.1</a></li>
  <li><a href="#">Folder 2.1</a>
    <ul>
    <li><a href="#">Sub Item 2.1.1</a></li>
    <li><a href="#">Sub Item 2.1.2</a></li>
    <li><a href="#">Sub Item 2.1.3</a></li>
    <li><a href="#">Sub Item 2.1.4</a></li>
    </ul>
  </li>
</ul>
</li>
<li><a href="#">Item 4</a></li>
</ul>
</div>

kısmını veritabanından okutmak lazım.

Bu da şu şekilde olabilir:

<div class="sidebarmenu">
<ul id="sidebarmenu1">
<%
rs.Open "SELECT * FROM tablo1", Conn, 1, 3

If Not rs.Eof Then

	Do While Not rs.Eof %>

		<li><a href="#"><%=rs("baslik")%></a>
		<% rs1.Open "SELECT * FROM tablo2 WHERE ust_id = "& rs("id") &"", Conn, 1, 3

		If Not rs1.Eof Then

			Response.Write "<ul>"

			Do While Not rs1.Eof %>
				<li><a href="#"><%=rs1("baslik")%></a></li>
				<% rs1.Movenext

			Loop

			Response.Write "</ul>"

		End If

		rs1.Close %></li>
		<% rs.Movenext

	Loop

End If

rs.Close %>
</ul>
</div>

Bağlantı, kayıtsetleri ve tablo isimlerini kendi uygulamanıza uyarlamanız gerekiyor.