Şimdi ise bir sayaç uygulaması yapalım..
Veri tabanımız yine mdb uzantılı

Sitemizde online kaç kişi var.global.asax dosyamızı açıp şu kodları yazıyoruz.

procedure TGlobal.Application_Start(sender: System.Object; e: EventArgs);
begin
application.Lock;
application['kackisi']:=convert.ToString(0);
application.UnLock;
end;

procedure TGlobal.Session_Start(sender: System.Object; e: EventArgs);
var
kisi:integer;
begin
application.Lock;
kisi:=convert.ToInt32(application['kackisi'])+1;
application['kackisi']:=convert.ToString(kisi);
application.UnLock;
application.Lock;
end;

procedure TGlobal.Session_End(sender: System.Object; e: EventArgs);
var
kisi:integer;
begin
application.Lock;
kisi:=convert.ToInt32(application['kackisi'])-1;
application['kackisi']:=convert.ToString(kisi);
application.UnLock;
application.Lock;
end;
Aşağıdaki gibi bir tasarımla sitemizde online kaç kişi var bugün gelen kişi sayımız toplam ziyaretçi sayısı ve ip adresini bulmak için aşağıdaki kodları yazıyoruz.
Giren Kullanıcı Vt ye Ekleniyor.

online.Text:=application['kackisi'].ToString;
IPAdres.Text:=request.ServerVariables['remote_host'];
baglanti:=oleDbConnection.Create('Provider=microsoft.Jet.OLEDB.4.0;'+'data source='+Server.MapPath('db\Haberler_Lig.mdb'));
baglanti.Open;
SqlCumlesi :='INSERT INTO Sayac'+
'(IpAdres,Tarih) VALUES '+
'('+#39+IPAdres.Text+#39','+
''+#39+system.DateTime.Today.ToString('dd.MM.yyyy')+#39+');';
komut:=oledbCommand.Create(SqlCumlesi,baglanti);
komut.ExecuteNonQuery;
baglanti.Close;

//Bugün Gelen
baglanti:=oleDbConnection.Create('Provider=microsoft.Jet.OLEDB.4.0;'+'data source='+Server.MapPath('db\Haberler_Lig.mdb'));
baglanti.Open;
SqlCumlesi :='SELECT COUNT(Sayacid) FROM Sayac  Where Tarih='+#39+system.DateTime.Today.ToString('dd.MM.yyyy')+#39;
komut:=oledbCommand.Create(sqlCumlesi,baglanti);
bugungelen:=convert.ToInt32(komut.ExecuteScalar);
bugun.Text:=bugungelen.ToString;
baglanti.Close;

//Toplam Sayaç
baglanti:=oleDbConnection.Create('Provider=microsoft.Jet.OLEDB.4.0;'+'data source='+Server.MapPath('db\Haberler_Lig.mdb'));
baglanti.Open;
SqlCumlesi :='SELECT COUNT(*) FROM Sayac';
komut:=oledbCommand.Create(sqlCumlesi,baglanti);
toplam:=convert.ToInt32(komut.ExecuteScalar);
toplamSayac.Text:=toplam.ToString;
baglanti.Close;

Gene döktürmüşsün alper hocam