<%
Set KategoriTem = Conn.Execute("SELECT * FROM Kategori Where onay = True order by ad asc")
%>
<%If KategoriTem.Eof Then%>
Sistemde Kayıtlı Kategori Yok.
<%Else%>
<%
i=0
Do while not KategoriTem.eof
i=i+1
No = KategoriTem("id")
Set kac=server.createobject("adodb.recordset")
kac.open "SELECT * FROM Emlaklar WHERE KatID ="&No&" and ofisonay = True and onay = true ",Conn,1,3
say = kac.RecordCount
katdilx3 = Request.Cookies("lang")
if katdilx3 = "TR" or katdilx3 = "" or katdilx3 = " " then
katdil3 = KategoriTem("TR")
end if
if katdilx3 = "EN" then
katdil3 = KategoriTem("EN")
end if
if katdilx3 = "DE" then
katdil3 = KategoriTem("TR")
end if
%>
<%=rastgele%>