%
dim conn1,connstr
connstr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & SERVER.MAPPATH("count/count.mdb")
set conn1=server.createobject("adodb.connection")
conn1.open connstr
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from counts where id=1",conn1,3,3
application.lock
rs("counts")=cint(rs("counts"))+1
rs.update
application.unlock
%>