function send_email($from, $to, $subject, $textMsg, $htmlMsg = ''){
 $from = stripslashes($from);
 $subject = stripslashes($subject);
 $textMsg = stripslashes($textMsg);
 if (eregi("\r",$from) || eregi("\n",$from)){
    die("Sorry, the from addess is invalid.  If you feel you have gotten this message in error, please contact the system administrator.");
 }
 if (eregi("\r",$to) || eregi("\n",$to)){
    die("Sorry, the to addess is invalid.  If you feel you have gotten this message in error, please contact the system administrator.");
 }
 if (eregi("\r",$subject) || eregi("\n",$subject)){
    die("Sorry, the subject is invalid.  If you feel you have gotten this message in error, please contact the system administrator.");
 }
  
 if($htmlMsg > ''){
   $body = "\r\n--gc0p4Jq0M2Yt08j34c0p\r\n" .
           "Content-Type: text/plain; charset=us-ascii; format=flowed\r\n" .
           "Content-Transfer-Encoding: 7bit\r\n\r\n" .
           "$textMsg\r\n\r\n" .
           "--gc0p4Jq0M2Yt08j34c0p\r\n" .
           "Content-Type: text/html; charset=us-ascii;\r\n" .
           "Content-Transfer-Encoding: 7bit\r\n\r\n" .
           "$htmlMsg\r\n";
 }else{
    $body = "\r\n--gc0p4Jq0M2Yt08j34c0p\r\n" .
           "Content-Type: text/plain; charset=us-ascii; format=flowed\r\n" .
           "Content-Transfer-Encoding: 7bit\r\n\r\n" .
            "$textMsg\r\n\r\n";
 }
 $hdr = "Mime-Version: 1.0\r\n" .
           "From: $from\r\n" .
           "Reply-To: $from\r\n" .
           "Content-Type: multipart/alternative; boundary=\"gc0p4Jq0M2Yt08j34c0p\"\r\n" .
           "Date: " . date('r') . "\r\n";

 mail($to, $subject, $body, $hdr) ;
}