<% Session.LCID = 1033 tarih1 = now() tarih2 = DateAdd("n" , -5, Now()) set RS3 = server.createobject("ADODB.Recordset") sql3 = "select * from uyeler where songiris between #" & tarih1 & "# and #" & tarih2 & "# " RS3.open sql3,baglanti,1,3 if RS3.eof and RS3.bof then toplamuye="0" else while not rs3.eof toplamuye=toplamuye+1 rs3.movenext wend end if %> <% set encokdogrula = server.createobject("ADODB.Recordset") sql_en = "select * from encok where tarih= # " & date & " # " encokdogrula.open sql_en,baglanti,1,3 if encokdogrula.eof and encokdogrula.bof then set enkayit = server.createobject("ADODB.Recordset") sql_enk = "select * from encok " enkayit.open sql_enk,baglanti,1,3 enkayit.addnew enkayit("tarih")=date enkayit("hit")=bugun enkayit.update enkayit.close set enkayit =nothing else set enupdate = server.createobject("ADODB.Recordset") sql_enk = "select * from encok where tarih=#"&date&"# " enupdate.open sql_enk,baglanti,1,3 enupdate("hit")=bugun enupdate.update enupdate.close set enkayit =nothing end if %> <% set rekor = server.createobject("ADODB.Recordset") sql_r = "select * from encok order by hit desc " rekor.open sql_r,baglanti,1,3 %>
Saat :
Aktif Kulanıcı : <% response.Write(""&Application("AktifZiyaretci")&"") tarih7=date-2 tarih8=date-1 set RS5 = server.createobject("ADODB.Recordset") sql5 = "select * from toplam where tarih between #" & tarih8 & "# and #" & tarih7 & "# " RS5.open sql5,baglanti,1,3 while not rs5.eof dun=dun+1 rs5.movenext wend %>
Dün Giris : <%= dun %>
<% tarih1=date tarih2=tarih1+1 set RS6 = server.createobject("ADODB.Recordset") sql6 = "select * from toplam where tarih between #" & tarih1 & "# and #" & tarih2 & "# " RS6.open sql6,baglanti,1,3 while not rs6.eof bugun=bugun+1 rs6.movenext wend %> Bugün Giris : <%= bugun %> <% set topp = server.createobject("ADODB.Recordset") sql4 = "select * from toplam" topp.open sql4,baglanti,1,3 do while not topp.eof j=j+1 topp.movenext loop %>
Toplam Giris : <%= J %>
Ip : <%= strIp %>
Rekor
Kişi <%= rekor("hit") %> İle <%= rekor("tarih") %> Tarihinde