<% dmbugun="DMBUGUN" Set sayac=server.createObject("ADODB.Recordset") sorbakalim = "select * from sayac" sayac.open sorbakalim,baglanti,1,3 sayac.movefirst if sayac("tarih") = date then sayac("ziyaret") = sayac("ziyaret") + 1 saybuguncanim=sayac("ziyaret") else sayac("tarih")=date sayac("ziyaret") = 1 saybugun=1 end if sayac("tarih") = date sayac("ziyaret") = sayac("ziyaret") + 1 saytoplam=sayac("ziyaret") sayac.update sayac.Close %> <% sure=1 ip=Request.ServerVariables("REMOTE_ADDR") %> <% set topgosterim = Server.CreateObject("ADODB.Recordset") sql = "Select * from toplamhit" topgosterim.open SQL, baglanti,1,3 topgosterim("hit") = topgosterim("hit") +1 topgosterim.update %>

Online Ziyaretçi	:
Günlük Gösterim	:	<%Response.Write "" & saybuguncanim & ""%>
Toplam Gösterim	:	<%=topgosterim("hit")%>