<% @language = "vbscript" codepage=1254 %> <% Set yol=Server.CreateObject("Adodb.Connection") yol.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(veritabani) %> <% islem=request.querystring("islem") if islem=1 then call sub1 if islem=2 then call sub2 %> <% sub sub1 AltKategoriNo=request.querystring("AltKategoriNo")*1 Set rs = Server.CreateObject ("ADODB.RecordSet") sql = " Select * from Sayfalar where AltKategoriNo="&AltKategoriNo&"" rs.open sql,yol,1,3 %>


	ETKİNLİKLERİMİZ
	Okulumuz Spor Faaliyetleri 2005-2006 Bilgi Yarışması Soru ve Cevapları 9. SINIFLAR 10.SINIFLAR 11.SINIFLAR ZARARLI ALIŞKANLIKLAR OYUN KUTLU DOĞUM HAFTASI ETKİNLİKLERİ ÇANAKKALE FİLMİ ANİMASYONU ÇANAKKALE SUNUSU Kültür ve Edebiyat Kulübü Okuma Anketi Turizm Haftası Etkinliği (15-22 Nisan) Okul Temsilcisi Seçimleri Yazışma Kuralları 2007 Turizm Haftası Etkinliği (15-22 Nisan)

<% end sub %> <% sub sub2 SayfaNo=request.querystring("SayfaNo") Set rs = Server.CreateObject ("ADODB.RecordSet") sql = " Select * from Sayfalar where SayfaNo="&SayfaNo&"" rs.open sql,yol,1,3 rs.update rs("SayfaHiti")=rs("SayfaHiti")+1 rs.update %>

<% end sub %>

ETKİNLİKLERİMİZ

Okulumuz Spor Faaliyetleri

2005-2006 Bilgi Yarışması Soru ve Cevapları

9. SINIFLAR 10.SINIFLAR 11.SINIFLAR

ZARARLI ALIŞKANLIKLAR

OYUN

KUTLU DOĞUM HAFTASI ETKİNLİKLERİ