ipek pismaniye - Ziyaretçi defteri

<% 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 baglantimizi kurduk.. rs("hit" ) = rs("hit" ) + 1 rs.update %>