<% IF NOT Session("sifre") = adminsifre THEN Response.Redirect "admin.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 browser where ay = " & ay & " and sene = " & sene & " and gun = " & gun & "") if not tr.eof then Set rs = zeus.execute("Select sum(hit) as browserbuguntekil, sum(cogul) as browserbuguncogul from browser where ay = " & ay & " and sene = " & sene & " and gun = " & gun & "") browserbuguntekil = rs("browserbuguntekil") browserbuguncogul = rs("browserbuguncogul") else browserbuguntekil=0 browserbuguncogul=0 end if %> Sayaç - <%=gun%> <%=ayisim%> <%=sene%> Tarihli Sistem Bilgisi

Browser Bilgisi

<<İstatistikler Ana Sayfasına Dön

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

Siteniz bu gün <%=browserbuguncogul%> çoğul browser tarafından ziyaret edilmiştir. Bunlardan <%=browserbuguntekil%> tanesi tekil browserdır.

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