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