Hallo und einen taufrischen guten Morgen.
Ich brauche dringend eure Hilfe bei folgendem Script. Die Problemzone ist gekennzeichnet.
In den wichtigsten Auszügen:
($cursor enthält meine Ergebnisse aus der Datenbankabfrage.)
use DBI qw(:sql_types);
use CGI qw(:standard);
use POSIX qw(strftime);
$http_header = "Content-type: text/html\n\n";
$q = new CGI;
print $q->header;
print $q->start_html,
$q->h1({-style=>'font-size: x-large; font-family: Arial; font-weight: bold; font-style: normal; color: Navy;'},'Software
Management Schulungsplan '),
$q->br,
$q->start_form(-method=>"post",-action=>"/perl/egw/schulungmail.pl");
print $q->table({-border=>1});
print $q->Tr;
print $q->td({-align=>CENTER});
while (@row = $cursor->fetchrow_array)
{
print $q->checkbox_group(-name=>"hallo",-value=>"$row[0] $row[1]",-label=>" $row[0], $row[1]"),br;
}
#---------------------------------------------------------------- Problemzone --------------------------->
print $q->end_td;
print $q->end_Tr;
print $q->end_Table;
#---------------------------------------------------------------- Problemzone ---------------------------<
print $q->br;
print $q->br;
print $q->br,
print $q->"Vorname: ",textfield('name'),p,
$q->"Nachname: ",textfield('nachname'),p,
$q->"Firma: ",textfield('firma'),p,p,
$q->"Teilnehmer;",p,
$q->textfield('teilnehmer1'),br,textfield('teilnehmer2'),br,textfield('teilnehmer3'),br,textfield('teilnehmer4'),br,textfield('teilnehmer5'),br,textfield('teilnehmer6'),br,
$q->submit,
$q->end_form,
$q->end_html;
Ziel des Ganzen ist es, aus einer Datenbank einen Schulungsplan auszulesen und sogleich in Form eines Formulars als Webseite auszugeben. Leider akzeptiert ActivePerl alle meine Versuche, die Table-Tags abzuschließen nicht. Kennt einer von euch die entsprechenden Befehle?
Ach ja -...... Das Teil soll in einer WindowsNT Umgebung mit IIS4 laufen ...
Wäre also für konstruktive Hilfe dankbar ....
Ciao
Jörg