<%
dil=request("lisan")
if dil<>"" then
set rsBaslik=conn.execute("select * from tblMenu where altmenuid=0 and dilID=" & dil & " order by sira")
While not rsBaslik.eof
%>
<%
rsBaslik.MoveNext
Wend
set rsBaslik=nothing
else
set rsDilAdet=conn.execute("select count(*) as Adet from tblDil")
if rsDilAdet("Adet")<>1 then
set rsDiller=conn.execute("select * from tblDil")
While not rsDiller.eof
%>
<%
rsDiller.MoveNext
Wend
set rsDilAdet=nothing
altMenu=1
else
set rsBaslik=conn.execute("select * from tblMenu where altmenuid=0 and dilID=1 order by sira")
While not rsBaslik.eof
%>