$ObjTuple->SetAdr1(ProtectApos($ValAdr1));
$ObjTuple->SetAdr2(ProtectApos($ValAdr2));
$ObjTuple->SetCP($ValCP);
$ObjTuple->SetVille(ProtectApos($ValVille));
$ObjTuple->SetTelR($ValTelR);
$ObjTuple->SetMailR($ValMailR);
$ObjTuple->SetFaxR($ValFaxR);
$ObjTuple->SetPresentEntreprise($ValPresentEntreprise);
if (substr($ValSiteEntreprise, 0, 7) != 'http://') {
$ValSiteEntreprise = 'http://' . $ValSiteEntreprise;
}
$ObjTuple->SetSiteEntreprise($ValSiteEntreprise);
if ($ValPK_Entreprise == 0) {
$ObjTuple->Insert();
} else {
$ObjTuple->Update();
}
?>
<script>location.replace("?Trait=List&SlxTable=<?php
echo $NomTabEntreprises;
?>
");</script>
<?php
die;
}
break;
}
if ($IdentPK == 0) {
$Titre = 'Création d\'une nouvelle entreprise';
} else {
$Titre = 'Modification de l\'entreprise ' . $IdentPK;
