#!/usr/bin/perl

 use Jcode;
 use Pg;
 use CGI;
 use DBI;
 $a = new CGI
 
 $tsconn = Pg::connectdb("dbname=tsuyoshi host=localhost user=tsuyoshi password=244tsu");
 $nkconn = Pg::connectdb("dbname=naoto user=naoto password=9513nnn7010 host=localhost");
 
 
 
 print "Content-Type: text/html; charset=EUC--JP\n";
 print "\n";
 print "<html>";
 print "<head>";
 print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=EUC-JP\" />";
 print "<title>実験</title>";
 print "</head>";
 print "<body>";
 print "<form action=\"http://www.futomi.com/cgi-bin/lecture/form/posttest.cgi\" method=\"post\" />";
 print "<p>お名前：<input type=\"text\" name=\"namae\" value=\"太郎\" size=\"20\" /></p>";
 print "<p>タイプ：";
 print "<input type=\"radio\" name=\"type\" value=\"pow\" checked=\"checked\" /> power";　
 print "<input type=\"radio\" name=\"type\" value=\"tec\" /> technique";　
 print "<input type=\"radio\" name=\"type\" value=\"all\" />allround</p>";
 print "<p><input type=\"submit\" name=\"submit\" value=\"送信\" /></p>";
 print "</form>";
 $Name = $q->param('namae');
 $Type = $q->param('type');
 print "Name";
 if ($Type == null) {
     print "何も選択されていません \n";
 } elsif ($Type == pow) {
     print "YONEX RQiS5 パワー \n";
 } elsif ($Type == tec) {
     print "YONEX RDS001MP \n";
 } else {
     print "YONEX RDS003MP \n";
 }
 print "</body>";
 print "</html>";
 exit(0);