Tmenのプロフィール

@Tmen Tmen
ありがとう数0
質問数0
回答数13
ベストアンサー数
0
ベストアンサー率
0%
お礼率
0%

  • 登録日1999/08/18
  • MySQLのDB

    現在MySQLのDBを使いWeb上で情報を検索できる物を作っています。外の時に県名を入れてもらいその県名に当てはまる物を抽出するというものをやりたいのですが、どうしてもDBの所で止まってしまいます。 どうかおしえていただけないでしょう?下記参照 --参照-- my $num; my $str1SQL; $str1SQL=qq{SELECT kyu16 }; $str1SQL=$str1SQL.qq{FROM kyu_table }; if($ADDR1 eq "茨城県"){ # 場所(県) $STRSQL=$str1SQL; $STRSQL=$STRSQL.qq{WHERE kyu16 LIKE "%$ADDR1%" }; } if ($DEBUG_FLG eq '1') {print "STRSQL=$STRSQL<BR>\n";} # debug $sth = $Com::db->prepare($STRSQL) or &Com::ErrorDB("<BR><FONT COLOR=\"#FF0000\" SIZE=+1><B>エラーコード:検索04<br>$ERRDBMSG</B></FONT><BR>"); $sth->execute or &Com::ErrorDB("<BR><FONT COLOR=\"#FF0000\" SIZE=+1><B>エラーコード:検索05<br>$ERRDBMSG</B></FONT><BR>"); $num = $sth->rows; if ($DEBUG_FLG eq '1') {print "num=$num<BR>\n";} # debug

    • 締切済み
    • aeic
    • CGI
    • 回答数3
  • sendmailができない

    (1)お問い合わせフォームを入力(2)入力データを確認する(3)最後に指定先のメールに送り終了 という具合ですが(3)のところで指定先にメールが届きません。メール自体も送られてこないのですがどのような方法があるのでしょうか?どうか教えていただけないでしょうか?お願いします。 (3)のソースコートです。------------- &header; open (KEIJI, "<keijiban.dat") || die "File 'keijiban.dat' Open Error."; # ファイルの内容を1行単位ですべて配列allに読み込む @all = <KEIJI>; split(/:/, $_); if( $_ = $all[0] ){ ($time, $name, $mail, $title, $message, $to) = split(/:/); #送信前処理 &jcode'convert(*subject,'jis'); &jcode'convert(*body,'jis'); # send mail open(MAIL, "| /usr/lib/sendmail -t"); print MAIL "TO: $to\n"; print MAIL "From: $from\n"; print MAIL "Subject: $subject\n"; print MAIL "Content-Type: text/plain;\n\n"; print MAIL "\n"; print MAIL "---------------------------------------------\n"; print MAIL " 名前:$name\n"; print MAIL " 内容:$body\n"; print MAIL " お名前:$firstname $secondname\n"; print MAIL " かな:$kanafirstname $kanasecondname\n"; print MAIL " 所在都道府県 :$area1 $area2\n"; print MAIL " 電話番号:$telno\n"; print MAIL " 性別:$sex\n"; print MAIL " メールアドレス:mailto:$mailad\n"; print MAIL "お問合わ、ご相談内容:"; print MAIL " $con1\n"; print MAIL "---------------------------------------------\n"; close(MAIL); &one_message; } close(KEIJI); # フッターを表示するサブルーチン &footer;

    • 締切済み
    • gcc
    • Perl
    • 回答数4
  • 何故隠れてやるの?

    結婚して1年経ちましたが、私の旦那は私が居ない時にインターネットで他の女とチャットしたり、アダルトサイトへ行って見たり、絶対私の前ではやらないのです。前に何度かその証拠を(履歴など)突きつけて「アダルトサイトを見たり、チャットしても良いけど、私の裏でやらないで!」って言ったのにまだやってるみたいです。このネット以外での彼は、毎日仕事が終わったら真っ直ぐ家に帰って、残業するとちゃんと電話かけてくるし、普通の生活上ではとても信頼できるのですが、この男の心理が理解できません。

  • 面白いアドベンチャー・ゲーム教えてください.

    面白いアドベンチャー・ゲームを教えてください. ジャンルは問いません. ただ,うちのパソコンはノート(Win98)で,CDドライブはありません. つまりCDROMで配布されているゲームは遊べないんです. ネットワークからダウンロードできるファイルの大きさで, 面白いアドベンチャー・ゲームがあったら,教えてください. モデムの速度は56Kbpsです.

  • EXPLORER?

    時々「EXPLORERのページ違反」と言うエラーが出ます。 考えてみると(毎回ではないのですが)「Visual Studio6」を使っているときに出ることが多いのですが、相性の問題なんでしょうか?(勉強中なもので、もしかしたら自殺?(;^_^A ) それとも他のタスクに問題があるのでしょうか? 中途半端な状況・環境説明ですみません。Windows98を何度再インストールしても状況は変わりません。 とりあえず作業は出来るんですが、タスクトレイが無くなったりしてちょっと使いづらいし、何せ不安です。

    • 締切済み
    • noname#29361
    • Perl
    • 回答数3