$Subs{'CorantoSQL_InsertDB'} = <<'END_SUB';
sub CorantoSQL_InsertDB {
    my $sthc = $corantosql_dbh->prepare("INSERT INTO coranto_csql
    (Coranto_Subject,Coranto_User,Coranto_Text,Coranto_newsid,Coranto_newstime,
    Coranto_Category,Coranto_CustomField_newssnippit,
    Coranto_CustomField_url_link) VALUES (?,?,?,?,?,?,?,?)");

    $sthc->bind_param(1, $Subject);
    $sthc->bind_param(2, $User);
    $sthc->bind_param(3, $Text);
    $sthc->bind_param(4, $newsid);
    $sthc->bind_param(5, $newstime);
    $sthc->bind_param(6, $Category);

    $sthc->bind_param(7, $CustomField_newssnippit);
    $sthc->bind_param(8, $CustomField_url_link);

    $sthc->execute();
    $sthc->finish();
}
END_SUB