Скрипт удаляет все старые элементы инфоблока

bitrix_del_iblock_el.php

<?
$arSelect = Array("ID", "NAME", "TIMESTAMP_X");
$arFilter = Array("IBLOCK_ID"=>"21", "<TIMESTAMP_X"=>"31.12.2013 23:59:59");
$res = CIBlockElement::GetList(Array(), $arFilter, false, Array("nPageSize"=>1000), $arSelect);
echo $res->SelectedRowsCount();
while($ob = $res->GetNextElement())
{
 echo "<pre>";
 $arFields = $ob->GetFields();
 print_r($arFields);
 CIBlockElement::Delete($arFields["ID"]);
 echo "</pre>";

}
$navString =  $res->GetPageNavStringEx($navComponentObject, "подпись пагинатора", "шаблон пагинатора", "флаг показывать всегда");
echo $navString;
?>