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

ZÜMRE TOPLANTI TUTANAKLARI

1. DÖNEM	2. DÖNEM
Bilgisayarlı Muhasebe	Bilgisayar 1
Bilgisayar 1-2-3	Bilgisayar 2
Donanım	Donanım
E-Ticaret	Donanım ve Araştırma Teknikleri
Fizik	Elektronik
İnternet ve Ağ Sistemleri	E-Ticaret
Matematik	İnternet ve Ağ Sistemleri
Muhasebe	Girişimcilik
Photoshop	Bilgisayarlı Muhasebe
Ekonomi	Hukuk
İnsan İlişkileri	Rehberlik

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

ZÜMRE TOPLANTI TUTANAKLARI

1. DÖNEM

2. DÖNEM