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

ATATÜRK KÖŞESİ

Mustafa Kemal ATATÜRK		Atatürk Diyor ki
Fotoğğraf Albümü		Gençliğe Hitabe
Atatürk'ün Evi (Selanik)		Gençliğin ATA'ya Cevabı

Çalışmadan, yorulmadan

rahat yaşamaya alışmış milletler;

önce haysiyetlerini sonra bağımsızlıklarını

kaybeder.

Mustafa Kemal ATATÜRK

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