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

FOTOĞRAF GALERİSİ

Anastas'ın Konağı -(Eski ERBAA)

Canik Dağlarından Bir Görünüm

Cumhuriyet Meydanı

Çamlık Dinlenme Tesisleri (Şahin Tepesi)

Çamlık

Erbaa'nın Güneyinden Çekilen Bir Görünüm

Fidiköy (AKÇA) Ömer Paşa Camii Genel Görünüşü

Şehir Merkezi Genel Görünüm

Gökbel (Gökal) Çevresi Ormanlar - Düden Gölü

Hüseyin Şahin Olimpik Yüzme Havuzu

Cumhuriyet Meydanı Karlar Altında

Cumhuriyet Meydanı Gece Görünümü

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