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

YILLIK PLANLAR

 


10. Sınıf Bilgisayarlı Muhasebe
İnternet
10. Sınıf Bilgisayar Programlama
Maliye
10. Sınıf Donanım
Microişlemciler
10. Sınıf E-Ticaret
Muhasebe Teknikleri 1
10. Sınıf Hukuk
Muhasebe Teknikleri 2
10. Sınıf Matematik
Muhasebe Teknikleri 3
10. Sınıf Mikroişlemciler
PowerPoint
10. Sınıf Sunu Hazırlama
Modern Sayfa Tasarımı(QuarkXpress)
10. Sınıf Veri Tabanı ve Hesap Tab
Reklam
10. Sınıf Web Tasarımı
Sosyal Güvenlik Hukuku
11. Sınıf Bilgisayar Programlama
Türk Dili ve Edebiyatı 1
Bilgisayar 1
Türk Dili ve Edebiyatı 2
Bilgisayarlı Muhasebe
Türk Dili ve Edebiyatı 3
Donanım
Visual Basic
Ekonomi
Veri Tabanı
Girişimcilik
Web Tasarımı
Güzel Konuşma ve Yazma
 
Halkla İlişkiler
 
İngilizce 1
 
İnsan
 

 

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