sub display_sendemail {
#use Win32::ODBC;
$DSN="test";
$fromsender="someone\@somewhere.com";
$subject="Data";
$CustomerNumber = param("CustomerNumber");
$Name = param("Name");
$Address1 = param("Address1");
$City = param("City");
$State = param("State");
$ZipCode = param("ZipCode");
$Email = param("Email");
$server="server.name.net";
$recipient="someoneelse\@somewhereelse.com";
$message="$CustomerNumber.$Name.$Address1.$City.$State.$ZipCode.$Email";
## NO CONFIGURATION IS NECESSARY FROM HERE DOWN
$blatpath="blat.exe ";
$commandline = $blatpath;
$commandline .= $message;
$commandline .= "-q ";
$commandline .= "-s \"$subject\" " if $subject;
$commandline .= "-f $fromsender " if $fromsender;
$commandline .= "-server $server " if $server;
$commandline .= "-b $bccaddress " if $bccaddress;
$db = new Win32::ODBC("DSN=$DSN;");
$commandline .= "-t \"$recipient\" ";
system($commandline);
#display results on screen
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "Account Information\n";
print "\n";
print "\n";
print "";
print "Customer Number: " . $CustomerNumber . "
\n";
print $Name . "
\n";
print $Address1 . "
\n";
print $City.","." ". $State . " ". $ZipCode . "
\n";
print "Email: " . $Email . "\n";
print "
\n";
$db->Close();
print "\n";
print "\n";
}