Why do you use such an old script?
trie CGI!
#!/usr/bin/perl -wT
use diagnostics;
use strict;
use CGI qw/:standard html3 escape escapeHTML/;
use CGI::Carp qw(set_message fatalsToBrowser);
set_message('Oops, schon wieder ein Fehler!');
use DBI;
unlink 'dbitrace.log' if -e 'dbitrace.log';
my $cgi_obj = new CGI;
my $user = "name";
my $passwort = "pass";
my $dsn =
"DBI:mysql:database=matchpro;host=yoursqlfirmserver;mysql_compression=1";
my $vorname = param('vorname'); #so you get your Formparams!
my $name = param('name');
print $cgi_obj->header,
$cgi_obj->start_html(-title=>'Your big Website!',
-style=>{'src'=>'../test.css'});
my $dbh = DBI->connect($dsn, $user, $passwort,{RaiseError => 1});
#connect to MySQL-Database
$dbh->trace( 2, 'dbitrace.log' ); #detailed protocol in ascii what
DBI has done... lock into cgi-bin and read.....
my $sth = qq[INSERT INTO ........
--
Andreas Schmitz http://www.medialsoft.de
_ _ _ _ ° _ _ _ _ _
| | ||_ | \|| || _| (_)|- |
| | ||_ |_/||-||__
