}
else
{
    open FILE, "$ENV{DOCUMENT_ROOT}/cgi-bin/scan_abgeschlossen.htm";
    print $_ while <FILE>;
    close FILE;

    open MAIL, "| /usr/sbin/sendmail -t" or die$!;
    print MAIL "To: ***\@***\n";
    print MAIL "From: ***\@***\n";
    print MAIL "Subject: Ein neuer Scanauftrag ist eingegangen!\n";
    print MAIL "\nAuftraggeber: $params{address} $params{firstname} $params{lastname}\n\n";
    print MAIL "Anschrift:\n";
    print MAIL "----------\n";
    print MAIL "$params{addressline}\n";
    print MAIL "$params{zip} $params{city}\n\n";
    print MAIL "Festnetz: $params{phone}\n" if $params{phone};
    print MAIL "Handynummer: $params{mobile}\n" if $params{mobile};
    print MAIL "Der Auftraggeber" if $params{address} eq 'Herr';
    print MAIL "Die Auftraggeberin" if $params{address} eq 'Frau';
    print MAIL " hat folgende Aufträge erteilt:\n";
    print MAIL "--------------------------------------\n";

    my $sth = $dbh->prepare( "SELECT `orderid`, `suborder`, `strip`, `amount`, `orderflags`, `price` FROM `orders` WHERE id = ? ORDER BY `suborder`, `orderid`;" ) or die DBI::errstr;
    $sth->execute ( $cookie->{order}->value() );

    my $counter = -1;
    my ($suborder, $changeflag) = 0;

    while( my @rows = $sth->fetchrow_array() )
    {
        ++$counter;
        $changeflag = 0;

        if( $counter == 0 )
        {
            $suborder = $rows[1];
        }
        else
        {
            if( $suborder == $rows[1] )
            {
               
 $changeflag = 1;
            }
            else
            {
               
 print '-------------------------------------------------------------------';
               
 $suborder = $rows[1];
            }
        }      &nbsp
; 

        my( $resolution, $size, $colordepth );
        my @sets = split(',', $rows[4]);
        
        foreach( @sets )
        {
            $resolution = $_ if $_ =~ /dpi/i;
            $colordepth = $_ if $_ =~ /mb/i;
            $size = $_ if $_ !~ /dpi/i and $_ !~ /mb/i;
        }

        print MAIL 'Scans von Kleinbild - glaslosgerahmte Dia\n' if $suborder == 1 && !$changeflag;
        print MAIL 'Scans von Kleinbild - Color-Negativ max. 6er Streifen\n' if $suborder == 2 && !$changeflag;
        print MAIL 'Scans von Kleinbild - Schwarz-Weiß-Negativ max. 6er Streifen\n' if $suborder == 3 && !$changeflag;
        print MAIL 'Rohscans\n' if $suborder == 4 && !$changeflag;
        print MAIL 'High-End Scans\n' if $suborder == 5 && !$changeflag;
        print MAIL 'Dokumentvorlagen Scans\n' if $suborder == 6 && !$changeflag;
        print MAIL "Nr.: $rows[0]\tAnzahl: $rows[3]\tAuflösung: $resolution\tGröße: $size\tAnzahl Streifen: $rows[2]\tGesamtpreis: " . sprintf("%.2f", $rows[5]) . " ¤\n" if $suborder == 1;
        print MAIL "Nr.: $rows[0]\tAnzahl: $rows[3]\tGröße: $size\tAnzahl Streifen: $rows[2]\tGesamtpreis: " . sprintf("%.2f", $rows[5]) . " ¤\n" if $suborder == 2;
        print MAIL "Nr.: $rows[0]\tAnzahl: $rows[3]\tGröße: $size\tAnzahl Streifen: $rows[2]\tGesamtpreis: " . sprintf("%.2f", $rows[5]) . " ¤\n" if $suborder == 3;
        print MAIL "Nr.: $rows[0]\tAnzahl: $rows[3]\tAuflösung: $resolution\tFarbtiefe: $colordepth\tGesamtpreis: " . sprintf("%.2f", $rows[5]) . " ¤\n" if $suborder == 4;
        print MAIL "Nr.: $rows[0]\tAnzahl: $rows[3]\tGröße: $size\tGesamtpreis: " . sprintf("%.2f", $rows[5]) . " ¤\n" if $suborder == 5;
        print MAIL "Nr.: $rows[0]\tAnzahl: $rows[3]\tAuflösung: $resolution\tGesamtpreis: " . sprintf("%.2f", $rows[5]) . " ¤\n" if $suborder == 6;
    }

    my ($price, $amount, $media, $delivery);
    $sth = $dbh->prepare( "SELECT SUM(`price`) FROM `orders` WHERE id = ?;" ) or die DBI::errstr;
    $sth->execute( $cookie->{order}->value() );

    $price = $sth->fetchrow_array();
    $sth = $dbh->prepare( "SELECT SUM(`amount`) FROM `orders` WHERE id = ? AND `suborder` >= 1 AND `suborder` <= 3;" );
    $sth->execute( $cookie->{order}->value() );
    $amount = $sth->fetchrow_array;

    print MAIL "\n\nZwischensumme: " . sprintf("%.2f", $price) ." ¤\n";
    print MAIL 'Mindermengenzuschlag: 5.00 ¤\n' if $amount < 50;
    $price += 5 if $amount < 50;
            
    $media = 'CD-ROM' if $params{media} == 0;
    $media = 'DVD-ROM' if $params{media} == 1;
    $media = 'DVD-RAM' if $params{media} == 2;
    $delivery = 'Vorkasse' if $params{delivery} == 0;
    $delivery = 'Nachnahme' if $params{delivery} == 1;
    $delivery = 'Abholung' if $params{delivery} == 2;
    my @media = ( '3.00', '6.00', '8.00' );
    my @delivery = ( '8.00', '15.00', '0.00');
            
    print MAIL "Speichermedium: $media\tAufschlag: $media[$params{media}]\n";
    print MAIL "Versandart: $delivery\tAufschlag: $delivery[$params{delivery}]\n";
    print MAIL "---------------------------------------------------\n";
            
    $price = $price + $media[$params{media}] + $delivery[$params{delivery}];
    print MAIL "Gesamtauftragswert: " . sprintf("%.2f", $price) . "\n";
    print MAIL "Weiterhin wurden folgende Bemerkungen hinterlassen:\n---------------------------------------------------\n$params{comment}" if $params{comment};
    print MAIL "\n\nAbschluss Auftragsformular\n";
    close MAIL;
}