<%
dim dby,dsn
dby = Server.MapPath("stat/stats.mdb")
dsn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dby
Set conn=CreateObject("Adodb.Connection")
conn.open (dsn)
Set Rst=CreateObject("Adodb.Recordset")
Rst.Open "SELECT * FROM sayac", conn, 3, 3
rst("sayac")=rst("sayac")+1
rst.update
%>
Mr Mutfak Banyo