% on error resume next dim rs,sql,imgpath imgpath="uppic/" sql="update news set hits=hits+1 where id="&cstr(request("id")) conn.execute sql set rs=server.createobject("adodb.recordset") sql="select * from news where id="&cstr(request("id")) rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "" response.end else %>