Help for this page

Select Code to Download

Select or download this

while ($CONTENDS=~/(\d{10})/g) {
    $match=$1;
...
                 $rc=$db->Sql($sqlinsert);
                die qq(SQL fail "$rc":), $db->Error(),qq(n) if $rc;
}