<% Set bilgi = Server.CreateObject("Adodb.Recordset")
bilgi.CursorType = 3
bilgi.LockType = 3
Set bag=Server.CreateObject("Adodb.Connection")
bag.Open="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath(veri_tabani) & ";" & "Persist Security Info=False"
sql= "SELECT * FROM yazarlar where ogretmen = false order by isim"
bilgi.open sql,bag
do while not bilgi.eof
session("y_") = bilgi("isim")
session("l_") = alan_getir (0,veri_tabani,"yazilar","id","yazar=" & bilgi("id")& " order by id*-1" )
%>
<%
bilgi.movenext
loop
bilgi.close
bag.close
%>
