LiveCode Forums.

Code: Select all

on sendMail
   if the hilite of button "IAgree" then
      put empty into myFormData
      put libUrlMultipartFormData(myFormData, \
            "rcpnt", ("recipient@economy-x-talk.com"), \
            "subj","LoanApp", \
            "cu",(the selectedText of button "CUlist"), \
            "mn",(field "MembNmbr"), \
            "ff",(field "FirstField"), \
            "lf",(field "LastField"), \
            "tf",(field "teleField"), \
            "af",(field "AltField"), \
            "ef",(field "EmailField"), \
            "if",(field "IncomeField")) \
            into myError
      if myError is empty then
         set the httpHeaders to line 1 of myFormData
         post line 2 to -1 of myFormData to URL "http://economy-x-talk.com/rae/rae.php"
         put the result into rslt
         put the urlResponse
         if rslt is empty then
            beep
            // answer information "Submitted successfully"
         else
            beep
            // answer rslt
         end if
      else
         beep
         answer error "Can't submit data because of error:" && myError
      end if
   end if
end sendMail

Code: Select all

<?php
$rcpnt = $_POST['rcpnt'];
$subj = $_POST['subj'];
$cu = $_POST['cu'];
$mn = $_POST['mn'];
$ff = $_POST['ff'];
$lf = $_POST['lf'];
$tf = $_POST['tf'];
$af = $_POST['af'];
$ef = $_POST['ef'];
$if = $_POST['if'];
$s = ' ';
//space
$msg = $cu . $s . $mn . $s . $ff . $s . $lf . $s . $tf . $s . $af . $s . $ef . $s . $if;
$header = "From: Your Name <mail@economy-x-talk.com>\r\n" . "MIME-Version: 1.0\r\n" . "Content-type: text/plain; charset=latin-1\r\n" . "\r\n";

$rslt = mail($rcpnt, $subj, $msg, $header);
if (!$rslt)
    echo "An error occurred in: $msg\r\n$rcpnt\r\n$subj";
else
    echo 'Mail sent';
?>

Code: Select all

<?php
$rcpnt = $_POST['rcpnt'];
$subj = $_POST['subj'];
$cu = $_POST['cu'];
$mn = $_POST['mn'];
$ff = $_POST['ff'];
$lf = $_POST['lf'];
$tf = $_POST['tf'];
$af = $_POST['af'];
$ef = $_POST['ef'];
$if = $_POST['if'];
$s = ' ';
//space
$msg = $cu . $s . $mn . $s . $ff . $s . $lf . $s . $tf . $s . $af . $s . $ef . $s . $if;
$header = "MIME-Version: 1.0\r\n" . "Content-type: text/plain; charset=latin-1\r\n" . "\r\n";

$rslt = mail($rcpnt, $subj, $msg, $header);
if (!$rslt)
    echo "An error occurred in: $msg\r\n$rcpnt\r\n$subj";
else
    echo 'Mail sent';
?>