<% IF NOT Session("sifre") = adminsifre THEN Response.Redirect "default.asp" END IF gun = Request.Querystring("gun") ay = Request.Querystring("ay") sene = Request.Querystring("sene") if gun = "" or ay = "" or sene = "" 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 tr = zeus.execute("Select * from gelen where ay = " & ay & " and sene = " & sene & " and gun = " & gun & "") if not tr.eof then Set rs = zeus.execute("Select sum(hit) as gelenbuguntekil, sum(cogul) as gelenbuguncogul from gelen where ay = " & ay & " and sene = " & sene & " and gun = " & gun & "") gelenbuguntekil = rs("gelenbuguntekil") gelenbuguncogul = rs("gelenbuguncogul") else gelenbuguntekil=0 gelenbuguncogul=0 end if %> Sayaç - <%=gun%> <%=ayisim%> <%=sene%> Tarihli Referans Bilgisi

Referans Bilgisi

<<İstatistikler Ana Sayfasına Dön

<%=gun%> <%=ayisim%> <%=sene%> Tarihli Referans Bilgisi

Siteniz bu gün toplam <%=gelenbuguncogul%> çoğul kişi tarafından linklerle ziyaret edilmiştir. Bunlardan <%=gelenbuguntekil%> tanesi tekil ziyaretçidir.

<% Set RS = zeus.execute("Select * from gelen where ay = " & ay & " and sene = " & sene & " and gun = " & gun & " order by hit desc") Do While Not rs.eof Set AZ = zeus.execute("Select sum(hit) as gelentoplamsitehit from gelen where site = '" & rs("site") & "'") %> <% AZ.Close Set AZ = Nothing RS.Movenext Loop Set RS = Nothing %>
 Site  Tekil Hit  Çoğul Hit  Toplam Hit
 " target="_blank"><%=rs("site")%>  <%=rs("hit")%>  <%=rs("cogul")%>  <%=az("gelentoplamsitehit")%>