<% db = Server.MapPath("db.mdb" ) Set baglanti = Server.CreateObject("ADODB.Connection" ) baglanti.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & db & ";" ' veritabanı bağlantımızı yaptık Set Rs = Server.CreateObject("ADODB.RecordSet") 'RecordSetimizi tanımladık Sql = "Select * from sayac" 'sql kodumuz Rs.Open sql,baglanti,1,3 if Rs.eof then 'eğer sayac adlı tablomuzda veri yoksa Rs.AddNew 'yeni bir veri ekle End if ' Siz bu işlemi yapmaktansa elle bir kayıt ekleyebilirsiniz. Rs("sayi") = Rs("sayi") + 1 'sayi adlı alanımızı bir arttırdık Rs.Update Response.Write " Sitemiz "&Rs("sayi")&" kere ziyaret edildi" 'Sitemizin kaç kere ziyaret edildiğini yazdırdık %>