Script deneme

Ana Sayfa

<%
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
%>