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


	İLETİŞİM

	ADRES: ERBAA TİCARET VE ANADOLU TİCARET MESLEK LİSESİ TELFON: (0356) 715 16 33 FAX: (0356) 715 74 40 E-MAİL: www.erbaaticaretlisesi@ttnet.net.tr www.muratozgur60@hotmail.com www.mahmutdogruyol@hotmail.com www.fahrettinkerim61@hotmail.com www.nurettincelep@hotmail.com

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

İLETİŞİM

ADRES:

ERBAA TİCARET VE ANADOLU TİCARET MESLEK LİSESİ

TELFON:

(0356) 715 16 33

FAX:

(0356) 715 74 40

E-MAİL:

www.erbaaticaretlisesi@ttnet.net.tr