change line 61 - 62:
$MailBody = $MailBody . " \r\n";
$MailBody = $MailBody . " <td style=\"padding:10px 7px 10px 7px; vertical-align:top; \">\r\n";
to:
$MailBody = $MailBody . " \r\n";
while (!$Spectrum_online->EOF()) {
$MailBody = $MailBody . " <td style=\"padding:10px 7px 10px 7px; vertical-align:top; \">\r\n";