<% If Not Session("Admin")="Girdi" Then Response.Write "



Bu sayfayý görme yetkiniz yok...


" Else Set Rs = Vt.Execute("Select Count(fldID) From tblKategori") Kategori = Rs(0) Rs.Close : Set Rs = NoThing Set Rs = Vt.Execute("Select Count(fldID) From tblResimler") Resim = Rs(0) Rs.Close : Set Rs = NoThing Set Rs = Vt.Execute("Select Sum(fldHit) From tblResimler") Hit = Rs(0) Rs.Close : Set Rs = NoThing %>



Toplam kategori: <%=Kategori%>
Toplam resim: <%=Resim%>
Toplam hit: <%=Hit%>




Admin Oturumunu Kapat
<% End If %>