Content-type: text/html; charset=UTF-8 use CGI::Carp qw(fatalsToBrowser); use lib 'sys-perl/lib'; use utf8; use HTML::Template; use Unicode::Japanese qw(unijp); our ( %dir, %cmd, %in, %replace, $TMPL, %error, $sid_path, @mail_template ); %dir = ( 'db' => 'sys-perl/db', 'script' => 'sys-perl/script', ); %cmd = ( '' => '01_form.pl', 'conf' => '02_conf.pl', 'send' => '03_thanks.pl', 'KOUMOKU' => 'KOUMOKU.pl', ); # メールテンプレート @mail_template = ( './tmpl-admin.txt', # 管理者に送信 './tmpl-user.txt', # 投稿者に送信 ); if ( !-w "$dir{'db'}" ) { print "Content-Type: text/html; charset=utf-8\n\n"; print qq| $dir{'db'} の パーミッションを 777にしてください |; exit; } if ( grep { !-e $_ } @mail_template ) { print "Content-Type: text/html; charset=utf-8\n\n"; print 'メールテンプレートが見つかりません'; exit; } require "$dir{'script'}/lib.pl"; main(); $replace{'head'} = `php -f ../include/header.html`; $replace{'rightcolumn'} = `php -f ../include/rightcolumn.html $ENV{'DOCUMENT_ROOT'}`; $replace{'leftcolumn'} = `php -f ../include/leftcolumn.html`; #=============== # HTML出力 #=============== my $template = HTML::Template->new( loop_context_vars => 1, die_on_bad_params => 0, filename => $TMPL, ); for my $key ( keys %replace ) { $template->param( $key => $replace{$key} ); } print "Content-Type: text/html; charset=utf-8\n\n"; print $template->output; exit; 1;
Content-type: text/html; charset=UTF-8 use CGI::Carp qw(fatalsToBrowser); use lib 'sys-perl/lib'; use utf8; use HTML::Template; use Unicode::Japanese qw(unijp); our ( %dir, %cmd, %in, %replace, $TMPL, %error, $sid_path, @mail_template ); %dir = ( 'db' => 'sys-perl/db', 'script' => 'sys-perl/script', ); %cmd = ( '' => '01_form.pl', 'conf' => '02_conf.pl', 'send' => '03_thanks.pl', 'KOUMOKU' => 'KOUMOKU.pl', ); # メールテンプレート @mail_template = ( './tmpl-admin.txt', # 管理者に送信 './tmpl-user.txt', # 投稿者に送信 ); if ( !-w "$dir{'db'}" ) { print "Content-Type: text/html; charset=utf-8\n\n"; print qq| $dir{'db'} の パーミッションを 777にしてください |; exit; } if ( grep { !-e $_ } @mail_template ) { print "Content-Type: text/html; charset=utf-8\n\n"; print 'メールテンプレートが見つかりません'; exit; } require "$dir{'script'}/lib.pl"; main(); $replace{'head'} = `php -f ../include/header.html`; $replace{'rightcolumn'} = `php -f ../include/rightcolumn.html $ENV{'DOCUMENT_ROOT'}`; $replace{'leftcolumn'} = `php -f ../include/leftcolumn.html`; #=============== # HTML出力 #=============== my $template = HTML::Template->new( loop_context_vars => 1, die_on_bad_params => 0, filename => $TMPL, ); for my $key ( keys %replace ) { $template->param( $key => $replace{$key} ); } print "Content-Type: text/html; charset=utf-8\n\n"; print $template->output; exit; 1;

お問い合わせ

お気に入りの物件は見つかりましたか？
気になる物件がございましたら、来店予約して実際に物件をご確認下さい。その他のお問い合わせも以下のフォームから送信ください。

※ 入力中に“Enterキー”は押さないで下さい
※［必須］のついた項目は全てご入力ください
フォームが送信できない場合は、こちらからお問い合わせください

お問い合わせ内容
［必須］
物件種別
［必須］		 　
物件番号 ［半角英数］ 例：0123
物件案内希望日時 希望する 　
店内説明希望日時 希望する 　
契約希望日時 希望する 　
引越し希望時期
早期入居の可否
早期入居可能日数 前
入居人数
［必須］		 人［半角数字］
引越し理由
お名前
［必須］		 ［全角］ 例：山田　太郎
性　別
［必須］
年　齢
［必須］		 歳［半角数字］
メールアドレス
［必須］		 ［半角英数］
例：info@plat-home.jp
メールアドレス確認用 ［必須］
電話番号 ［半角数字］ 例：03-5600-7608
FAX番号 ［半角数字］ 例：03-5600-7610
携帯番号 ［半角数字］ 例：090-1234-5678
その他ご連絡事項
～送信前に必ずお読み下さい～

当社は積極的に個人情報保護に取り組んでおります。上記お問い合わせフォームからお送り頂いた個人情報は以下の目的のみに使用させて頂きます。

  1. 不動産の売買、賃貸、仲介、管理等の取引に関する契約の履行、及び情報、サービスの提供。
  2. 上記１の利用目的の達成に必要な範囲での、個人情報の第三者への提供。
  3. 当社が取り扱う商品に関する契約の履行、情報、サービスの提供。
  4. 上記１、３の商品・情報・サービス提供のための郵便物、電話、電子メール等による営業活動、及びアンケートのお願い等のマーケティング活動。顧客動向分析または商品開発等の調査分析。
  5. ※ 情報・サービスの提供は、ご本人からの申し出がありましたら停止いたします。
    サービスの停止、個人情報の訂正・削除のご請求は下記までよろしくお願いいたします。
    株式会社 プラットホーム TEL.03-5600-7608

当社の個人情報取扱いについては「個人情報保護方針」ページを上記と合わせてご確認いただき、ご同意の上、確認画面にお進みください。

Content-type: text/html; charset=UTF-8 use CGI::Carp qw(fatalsToBrowser); use lib 'sys-perl/lib'; use utf8; use HTML::Template; use Unicode::Japanese qw(unijp); our ( %dir, %cmd, %in, %replace, $TMPL, %error, $sid_path, @mail_template ); %dir = ( 'db' => 'sys-perl/db', 'script' => 'sys-perl/script', ); %cmd = ( '' => '01_form.pl', 'conf' => '02_conf.pl', 'send' => '03_thanks.pl', 'KOUMOKU' => 'KOUMOKU.pl', ); # メールテンプレート @mail_template = ( './tmpl-admin.txt', # 管理者に送信 './tmpl-user.txt', # 投稿者に送信 ); if ( !-w "$dir{'db'}" ) { print "Content-Type: text/html; charset=utf-8\n\n"; print qq| $dir{'db'} の パーミッションを 777にしてください |; exit; } if ( grep { !-e $_ } @mail_template ) { print "Content-Type: text/html; charset=utf-8\n\n"; print 'メールテンプレートが見つかりません'; exit; } require "$dir{'script'}/lib.pl"; main(); $replace{'head'} = `php -f ../include/header.html`; $replace{'rightcolumn'} = `php -f ../include/rightcolumn.html $ENV{'DOCUMENT_ROOT'}`; $replace{'leftcolumn'} = `php -f ../include/leftcolumn.html`; #=============== # HTML出力 #=============== my $template = HTML::Template->new( loop_context_vars => 1, die_on_bad_params => 0, filename => $TMPL, ); for my $key ( keys %replace ) { $template->param( $key => $replace{$key} ); } print "Content-Type: text/html; charset=utf-8\n\n"; print $template->output; exit; 1;