<% session("ip")= Request.ServerVariables("remote_addr") %> <% response.write sayac("gizli") 'sag_tik_engelle() 'on error resume next %> <% = alan_getir (0,veri_tabani,"ayarlar","aciklama","id=2") %>
<% ust = 0 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 ust_menu order by sira " bilgi.open sql,bag bilgi.movefirst do while not bilgi.eof %> <% ust = ust + 1 bilgi.movenext loop bilgi.close bag.close %>
| "> <% = bilgi("baslik") %>
<% = alan_getir (0,sol_alt,"metin","aciklama","id=1") %>
Öğrenciler
Öğretmenler