<% 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 sistem where ay = " & ay & " and sene = " & sene & " and gun = " & gun & "") if not tr.eof then Set rs = zeus.execute("Select sum(hit) as sistembuguntekil, sum(cogul) as sistembuguncogul from sistem where ay = " & ay & " and sene = " & sene & " and gun = " & gun & "") sistembuguntekil = rs("sistembuguntekil") sistembuguncogul = rs("sistembuguncogul") else sistembuguntekil=0 sistembuguncogul=0 end if %> Sayaç - <%=gun%> <%=ayisim%> <%=sene%> Tarihli Sistem Bilgisi

Sistem Bilgisi

<<İstatistikler Ana Sayfasına Dön

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

Siteniz bu gün <%=sistembuguncogul%> çoğul sistem tarafından ziyaret edilmiştir. Bunlardan <%=sistembuguntekil%> tanesi tekil sistemdir.

<% Set RS = zeus.execute("Select * from sistem 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 sistemtoplamsitehit from sistem where sistem = '" & rs("sistem") & "'") %> <% AZ.Close Set AZ = Nothing RS.Movenext Loop Set RS = Nothing %>
 Site  Tekil Hit  Çoğul Hit  Toplam Hit
 <%=rs("sistem")%>  <%=rs("hit")%>  <%=rs("cogul")%>  <%=az("sistemtoplamsitehit")%>