<div id='cssmenu'>
<ul>
<%
Set eski2= Sur.Execute("Select * from kategori;")
%>
<%
do while not eski2.eof
%>
   <li class='has-sub'><a href='index.html'><span><%=eski2("baslik")%></span></a>
 <ul>
<%
Set yeni2= Sur.Execute("Select * from altkategori where kateid="&eski2("id")&";")
%> 
  <%
do while not yeni2.eof
%>
         <li class='<%if not yeni2.eof then%>has-sub<%else%>last<%end if%>'><a href='#'><span><%=yeni2("baslik")%></span></a>

<ul>
<%
Set marka2= Sur.Execute("Select * from markalar where alteid="&yeni2("id")&";")
do while not marka2.eof
%>        
            <li class='last'><a href='#'><span><%=marka2("baslik")%></span></a></li>
            <%
marka2.movenext
loop
%> 
            </ul>
         </li>
<%
yeni2.movenext
loop
%>         
         </ul></li>
  

<%
eski2.movenext
loop
%>  </ul></div>