#!/usr/bin/perl

use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:all);
use CGI;
use DBI;

my $myCGI = new CGI;
print "Content-type: text/html\r\n\r\n";

my $name = $myCGI->param('txtName');
my $email = $myCGI->param('txtEmail');
my $country = $myCGI->param('txtCountry');
my $website = $myCGI->param('txtWebsite');
my $publicmessage = $myCGI->param('txtPublic');
my $privatemessage = $myCGI->param('txtPrivate');


my $dbh = DBI->connect('DBI:ODBC:whatever', 'whatever', 'whatever');

#$dbh->do("set textsize 25000"); 
#$dbh->{LongReadLen} = 50000;
#$dbh->{LongTruncOk} = 1;


my $sth = $dbh->prepare(q{
INSERT INTO tblGuestbook
  (name, email, country, website, publicmessage, privatemessage, IP)
values
  (?,?,?,?,?,?,?)
});

$sth->execute($name,$email,$country,$website,$publicmessage,$privatemessage,$ENV{REMOTE_ADDR});

$sth->finish;
$dbh->disconnect;