% id=request.QueryString("id") set rs=server.CreateObject("adodb.recordset") rs.open "select * from content where id="&id,conn,3,3 rs("browse")=rs("browse")+1 rs.update aclass=rs("smallclass") set rm=server.CreateObject("adodb.recordset") rm.open "select * from content where smallclass='"&aclass&"' and delete='0' order by id desc",conn,1,1 %>