% db="counter.mdb" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") conn.Open connstr Set rs = Server.CreateObject("ADODB.RecordSet") sql="select * from [counter] where id=8" rs.open sql,conn,1,3 counters=rs("counter") rs("counter")=rs("counter")+1 rs.update %>
|