Hit Saydırma

<% Set Sur = Server.CreateObject("ADODB.Connection" ) Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabanimiz.mdb" ) %> <% 'Baglanty dosyamyzy include etti?imize göre artyk veritabanyndan bilgilerimizi alabiliriz Set rs = Server.CreateObject("ADODB.Recordset" ) sor = "Select * from tablo" frestons.Open sor,Sur,1,3 ' veritabanimizla baglantımızı kurduk.. rs("hit" ) = rs("hit" ) + 1 rs.update %> Evet ozellikle webmaster arkadaslara cok yarıyacak bir kod. Bu kod ile dosyamızın kac defa gosterildigini yani kac kisinin baktıgını ogreniyoruz.. Tabiki veritabanınızda tablo isimli tablo da ise hit diye bir alan olmak zorunda.. Kolay Gelsin.