Selam arkadaşlar başlıkta belirttiğim gibi asp ile sınırsız kategori sistemi yaptım güzel çalışıyor. Fakat ağaç sistemi oluşturamıyorum. Daha detaylı anlatmak gerekirse bir tane bilgisayar kategorim var altında dell, casper onun altında model1, model2 vs diye kategorilerim var ben model2 ye girince bunun üst kategorilerini yazdırmak istiyorum örneğin,

model2 sayfasına girince

Şu an ; bilgisayar > casper > model2 kategorisindesiniz. gibi yazdırmak istiyorum kullandığım kodlar şöyle

<ul>
<%
subRecursive 0, 0
sub subRecursive(ParentID, intLevel)
dim objRs
dim strSql

 strSql = "SELECT id,ad FROM urunkategori WHERE ustkat = " & ParentID     
set objRs = baglanti.Execute(strSql) 

if Not objRs.EOF then     
do while Not objRs.EOF
if seo=1 then
%>
<li><img src="<%=siteurl%>/images/bosluk.gif" border="0" width="<%= 25 * intLevel %>" height="1"><img src="<%=siteurl%>/tema/<%=tema%>/kat_ico.png">&nbsp;<a href="<%=siteurl%>/kategori/<%=objRs("id")%>/<%=seoyap(objRs("id"))%>.html"><%= objRs("ad")%></a></li>
<%subRecursive objRs("id"), intLevel + 1 %>
<%else%>
<li><img src="<%=siteurl%>/images/bosluk.gif" border="0" width="<%= 25 * intLevel %>" height="1"><img src="<%=siteurl%>/tema/<%=tema%>/kat_ico.png">&nbsp;<a href="kategori.asp?id=<%= objRs("id")%>"><%=objRs("ad")%></a></li>
<%subRecursive objRs("id"), intLevel + 1 %><%
end if
 
objRs.MoveNext
loop
end if 
 
if Not objRs Is Nothing then
 objRs.Close
end if
set objRs = Nothing
    
end sub
%></ul>

Aslında bu ağaç sistemini yönetim panelinde kullanmak istiyorum nedeni ise hem samsung bilgisayar var diyelim hemde televizyon samsung kategorisi açılınca sorun oluyor. Yardımlarınızı bekliyorum.