<% @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 %>

TARIHÇE
 


      Okulumuz 1980-1981 Ögretim yilinda Erbaa Lisesi Pansiyon Binasinda Ögretime açilmistir.Açildigi yil imtihanla 121 ögrenci alinmis, Üç derslikte ögretime baslanmistir. Ayni yil üç meslek dersleri ögretmeni atanmis bunun disindaki branslar mahallinde ögretmenlerle doldurulmustur. 1991-1992 Ögretim yilinda Erbaa Lisesi simdiki kendi binasina tasindiktan sonra, Eski Erbaa Lisesi binasinin tamami yeni okul binasi yapilmak üzere Ticaret Turizm Ögretim Genel Müdürlügüne devri saglanmistir.

Bütün girisimlere ragmen yeni binanin yapilmasi çesitli imkansizliklar nedeniyle yatirim programina alinamamistir.Erbaa Lisesinin binadan ayrilma ve yeni bina yapilma nedeni mevcut bu binanin egitim-ögretime müsait olmadigi düsüncesi ile Erbaa Lisesi yeni binaya kavusturulmustur. Okulumuz ise yatirim programina aldiramadigimizdan hiç olmazsa onarimdan geçirelim düsüncesi ile büyük onarim kesif özeti çikartilarak 1993 yilinda onarimdan geçirilerek bu günkü haline kavusturulmustur.
1992-1993 Egitim-Ögretim yilindan bu yana A-blok ve B-blok'larda okulumuz 14 derslik 1 daktilo,2 bilgisayar,1 Fen laboratuari,1 kütüphane ile egitim ögretime devam etmektedir.
  
<% 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 %>