% dim id id=request("id") Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from News where ID="&id rs.open sql,conn,1,3 rs("Hits")=rs("Hits")+1 rs.update %>