<% @language = "vbscript" codepage=1254 %> MESLEKİ EĞİTİMİN HEDEF  VE AMAÇLARI <% 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 %>

OKULUMUZ HAKKINDA
 


  TİCARET VE ANADOLU TİCARET MESLEK LİSESİNİN AMAÇLARI
(okul müdürünün yazısı)

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