<% IF NOT Session("sifre") = adminsifre THEN Response.Redirect "default.asp" END IF ay = Request.Querystring("ay") if ay = "" then response.write"Lütfen dogru giris yapiniz." if ay = 1 then ayisim = "Ocak" end if if ay = 2 then ayisim = "Şubat" end if if ay = 3 then ayisim = "Mart" end if if ay = 4 then ayisim = "Nisan" end if if ay = 5 then ayisim = "Mayıs" end if if ay = 6 then ayisim = "Haziran" end if if ay = 7 then ayisim = "Temmuz" end if if ay = 8 then ayisim = "Ağustos" end if if ay = 9 then ayisim = "Eylül" end if if ay = 10 then ayisim = "Ekim" end if if ay = 11 then ayisim = "Kasım" end if if ay = 12 then ayisim = "Aralık" end if Set rs = zeus.execute("Select sum(cogul) as hitbuaycogul, sum(hit) as hitbuaytekil from hit where ay = " & ay & " and sene = " & year(date()) & "") hitbuaycogul = rs("hitbuaycogul") hitbuaytekil = rs("hitbuaytekil")%> Sayaç - <%=ayisim%> <%=sene%> Tarihli Hit Bilgisi

<%=ayisim%> Ayının Hit Bilgisi

<<İstatistikler Ana Sayfasına Dön

Siteniz bu ay toplam <%=hitbuaycogul%> çoğul kişi tarafından ziyaret edilmiştir. Bunlardan <%=hitbuaytekil%> tanesi tekil ziyaretçidir.

<% Set RS = zeus.Execute("SELECT * FROM hit WHERE ay="&ay&" and sene="&year(date())&" order by gun ASC") Do While Not RS.eof yuzde = rs("hit")/(hitbuaytekil/100) yuzdecogul = rs("cogul")/(hitbuaycogul/100) %> <% RS.Movenext Loop Set RS = Nothing %>
Tarih Tekil Hit Çoğul Hit Tekil Yüzdesi Çoğul Yüzdesi
<%=rs("gun")%> <%=ayisim%> <%=rs("sene")%> <%=rs("hit")%> <%=rs("cogul")%>  %<%=left(yuzde,4)%>  %<%=left(yuzdecogul,4)%>