$DIVDATA->execute($S,$D,$DV,$EDV,$DVD,$DVY,$ES) or die $DIVDATA->errstr;