Переделать код под Битрикс

global $DB;
    $count = 0;
    
    $res = $DB->Query("SELECT id,company,ancor,href,howmany,date FROM <PREFIX>crosslink
        WHERE id=$id");
    $row = mysql_fetch_object($res->result);
    $keywords = explode("|",$row->ancor);
    foreach($keywords as $key) {
        $res1 = $DB->Query("SELECT id,name,body FROM <PREFIX>article
            WHERE body LIKE '% $key %'");
 
        while($art = mysql_fetch_object($res1->result)) {
            $body = str_replace(" $key "," ".$row->href.$key."</a> ",$art->body, $cnt);
            $count += $cnt;
            $DB->Query("UPDATE <PREFIX>article SET body='".addslashes($body)."' WHERE id=".$art->id);
            }
        }
    echo "<h1>Сделано $count замен</h1>";
    $DB->Query("UPDATE <PREFIX>crosslink SET howmany=".$count." WHERE id=$id");
    echo "<script>document.location.href='http://".$_SERVER['SERVER_NAME']."/admin/index.php?mod=crosslink&s=crosslink';</script>";
}