<%
sub subRecursive(ParentID, intLevel)
	dim objRs
	dim strSql
	strSql = "SELECT id, baslik FROM kategoriler WHERE ust_id = " & ParentID     
	set objRs = objConn.Execute(strSql) 
	if Not objRs.EOF then
		If intLevel <> 0 Then Response.Write vbNewLine & "<ul>" & vbNewLine
		do while Not objRs.EOF
 			Response.Write "<li><a href=""#"">" & objRs("baslik") & "</a>"
 			subRecursive objRs("id"), intLevel + 1
			Response.Write "</li>" & vbNewLine
 			objRs.MoveNext
		loop
		Response.Write "</ul>" & vbNewLine
	end if 
 
	if Not objRs Is Nothing then
 		objRs.Close
	end if
	set objRs = Nothing
    
End sub %>
<div class="sidebarmenu">
<ul id="sidebarmenu1">
<% subRecursive 0, 0 %>
</ul>
</div>