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