<% dim rs,mid,smonth,rs2 public conn dim connstr on error resume next connstr="DBQ="+server.mappath("count.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr Server.ScriptTimeOut = 15 set rs=server.CreateObject("ADODB.RecordSet") sql = "update count set count=count+1 where id=1" conn.execute(sql) sql = "select count from count where id=1" rs.Open sql,conn,1 count = rs("count") %>document.write("");<% rs.close response.end %>