#!C:\Perl\bin\perl.exe
use CGI qw/:standard/;
use DBI;
use DBD::ODBC;
$user='fax';
$passwd='fax';
$tabella='fax';
$q = new CGI;
print $q->header,
$q->start_html('Fax'),
$q->h1('Inserimento Fax'),
$q->start_form,
$q->p("Numero Pratica: ", textfield('numprt')),
$q->p("Data Arrivo: ", textfield('datain'), "Ora Arrivo: ", textfi
+eld('orain')),
$q->p("Data Inizio: ", textfield('dataon'), "Ora Inizio: ", textfi
+eld('oraon')),
$q->p("Data Fine: ", textfield('dataoff'), "Ora Fine: ", textfield
+('oraoff')),
$q->p("Esito attivita' Lavorazione?", popup_menu(-name=>'esito
+',
-values=>['ok','respinta'])),p,
$q->p("Note: ", textfield('note')),
$q->submit("Invia Fax"),
$q->end_form,
$q->hr,
$q->end_html;
if (param()) {
$dbh = DBI->connect('dbi:ODBC:fax',$user, $passwd) or die "Non rie
+sco a connettermi!!\n";
$in=$dbh->prepare("INSERT INTO $tabella VALUES (?, ?, ?, ?, ?, ?,
+?, ?, ?)");
$in->execute('333333', '2004-5-1', '2.22', '2004-6-2', '2.22', '20
+05-5-5', '3.33', 'ok', 'note') || die $DBI::errstr;
$dbh->commit();
$dbh->disconnect();
print
"<br><br>
<a href=\"http://dipendenti.finconsumo.it:8082/cgi-bin/enrico.
+pl\">
Clicca per inserire altra pratica...</a><br>",
"<br>Hai inserito<br>",
"NumPrt ",em(param('numprt')),
hr;
}