ASP Dinamik Menü Oluşturmada Hata

Hayırlı Ramazanlar Arkadaşlar,

ben kontrol panelinden düzenlenebilir bir menü yaptım ama alt menülerde sorun var.

Örnek verirsek A-B-C diye 3 ana menü başlığım var. Bunlardan B ana menü başlığında 4 adet alt menü tanımlı ama nedense kodlarda bir sıkıntı var. Alt menüyü hep en sondaki tanımlamanın altına atıyor, yani C menü başlığına.

Menu.asp kodu, Vt görüntüsü ve son kullanıcı görüntüsü aşağıdadır;

[div id="nav" class="group">
<ul id="menu-main-nav" class="level-1">
<%
Set menuayrinti = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=0 ORDER BY SIRA ASC"
menuayrinti.Open Sorgu, Baglanti, 1, 3
If menuayrinti.Recordcount = 0 Then
Response.Write "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not menuayrinti.EOF


set toplammenu = Server.CreateObject("adodb.recordset")
Sorgu= "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & menuayrinti("ID") & " ORDER BY SIRA ASC"
toplammenu.open Sorgu, Baglanti, 1, 3
toplammenusayisi = toplammenu.RecordCount
toplammenu.Close
Set toplammenu=Nothing
%>
<li>
<a target="<%=menuayrinti("HEDEF")%>" href="<%=menuayrinti("URL")%>" title="<%=menuayrinti("TITLE")%>"<% if toplammenusayisi>0 then %> rel="dropmenu<%=menuayrinti("ID")%>"<% end if %>><%=menuayrinti("AD")%></a>
<%
menuayrinti.MoveNext
Loop
End If
menuayrinti.Close
Set menuayrinti=Nothing
%>


<%
Set anamenu = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=0 ORDER BY SIRA ASC"
anamenu.Open Sorgu,Baglanti,1,3
While Not anamenu.EOF


set alttoplammenu = Server.CreateObject("adodb.recordset")
Sorgu= "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC"
alttoplammenu.open Sorgu, Baglanti, 1, 3
alttoplammenusayisi = alttoplammenu.RecordCount
alttoplammenu.Close
Set alttoplammenu=Nothing


if alttoplammenusayisi>0 then
%>

<ul class="sub-menu">
<%
Set altmenuayrinti = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM MENU WHERE CESIT=1 AND ALT=" & anamenu("ID") & " ORDER BY SIRA ASC"
altmenuayrinti.Open Sorgu, Baglanti, 1, 3
If altmenuayrinti.Recordcount = 0 Then
Response.Write "<font face='Verdana' size='2'>Menü Bulunamadı</font>"
Else
Do While Not altmenuayrinti.EOF
%>


<li>
<a target="<%=altmenuayrinti("HEDEF")%>" href="<%=altmenuayrinti("URL")%>" title="<%=altmenuayrinti("TITLE")%>"><%=altmenuayrinti("AD")%></a>
<!-- üstteki kodu olmassa alttaki li"nin altına koy-->
</li>
<%
altmenuayrinti.MoveNext
Loop
End If
altmenuayrinti.Close
Set altmenuayrinti=Nothing
%>
</ul>
</li>
</ul>
</div>
<%
end if
anamenu.MoveNext
Wend
anamenu.Close
Set anamenu=Nothing
%>