#!/usr/bin/perl

############################################################
#
# esprls01pt ： 売物件検索 - 一覧 [ペット可物件]
#
# 取得したパラメータより売物件データ(bukken1x)を読み込み、
# 該当する売物件データの一覧を表示する。
#
# 更新履歴
# 2005/06/27 - Ver.1.1：Google AdSenseの追加
# 2005/07/05 - Ver.1.2：対象データを参照するディレクトリーの変更
# 2005/08/27 - Ver.1.3：ヘッダーに情報を表示
# 2005/08/30 - Ver.1.4：業者別物件一覧を追加
# 2005/10/25 - Ver.1.5：総件数MAX設定・不可物件非表示条件を追加
# 2005/12/10 - Ver.2.0：デザインリニューアル
#
############################################################

require './cgi-lib.pl';
require './jcode.pl';

&ReadParse(*in);

# パラメーター
$bukken_i		=	$in{'bukken'};
$item_i			=	$in{'item'};
$area1_i		=	$in{'area1'};
$area2_i		=	$in{'area2'};
$area3_i		=	$in{'area3'};
$price_fr_i	=	$in{'price_fr'};
$price_to_i	=	$in{'price_to'};
$station_i		=	$in{'station'};
$plan_i			=	$in{'plan'};
$fresh_i		=	$in{'fresh'};

$sort_i			=	$in{'sort'};
$read_i			=	$in{'read'};

$partner_i	=	$in{'partner'};
$tel_i			=	$in{'tel'};

# ファイル
$d_syashin	=	"../img/estate/syashin/";
$d_madori		=	"../img/estate/madori/";
$d_chika		=	"../../data/estate/chika/";
$d_bukken		=	"../../data/estate/bukken1";

$f_ararmas1	=	"../../data/area/ararmas1.data";
$f_ararmas2	=	"../../data/area/ararmas2.data";
$f_ararmas3	=	"../../data/area/ararmas3.data";
$f_ara3dat1	=	"../../data/area/ara3dat1.data";
$f_ara3dat2	=	"../../data/area/ara3dat2.data";

$f_arstmas1	=	"../../data/area/arstmas1.data";
$f_arstmas2	=	"../../data/area/arstmas2.data";
$f_ars2dat1	=	"../../data/area/ars2dat1.data";

$f_espritm1	=	"../../data/estate/espritm1.data";
$f_esprnew1	=	"../../data/estate/esprnew1.data";
$f_esngtel1	=	"../../data/estate/esngtel1.data";

$f_esusdat2	=	"../../data/estate/esusdat2.data";
$f_esptdat2	=	"../../data/estate/esptdat2.data";
$f_usprdat1	=	"../../data/estate/user/usprdat1.data";
$f_estrdat1 = "../../data/estate/estrdat1.data";

# 固定変数
$mon_cnt = 3;
$list_max = 400;

# 固定配列
@mon1 =(31,28,31,30,31,30,31,31,30,31,30,31);
@mon2 =(31,29,31,30,31,30,31,31,30,31,30,31);

%bukken	=
(	
	"1"	=>	"土地"
,	"2"	=>	"戸建"
,	"3"	=>	"マンション"
,	"4"	=>	"住宅以外(全部)"
,	"5"	=>	"住宅以外(一部)"
);

%price_fr	=
(	
	"1000"	=>	"1000万円"
,	"1500"	=>	"1500万円"
,	"2000"	=>	"2000万円"
,	"2500"	=>	"2500万円"
,	"3000"	=>	"3000万円"
,	"3500"	=>	"3500万円"
,	"4000"	=>	"4000万円"
,	"4500"	=>	"4500万円"
,	"5000"	=>	"5000万円"
);

%price_to	=
(	
	"1000"	=>	"1000万円"
,	"1500"	=>	"1500万円"
,	"2000"	=>	"2000万円"
,	"2500"	=>	"2500万円"
,	"3000"	=>	"3000万円"
,	"3500"	=>	"3500万円"
,	"4000"	=>	"4000万円"
,	"4500"	=>	"4500万円"
,	"5000"	=>	"5000万円"
);

%plan	=
(	
	"1"	=>	"1R〜1LDK"
,	"2"	=>	"2K〜2LDK"
,	"3"	=>	"3K〜3LDK"
,	"4"	=>	"4K〜4LDK"
,	"5"	=>	"5K〜5LDK"
,	"6"	=>	"6K〜6LDK"
);

%fresh	=
(	
	"01"	=>	"最新日"
,	"03"	=>	"3日以内"
,	"07"	=>	"1週間以内"
,	"21"	=>	"3週間以内"
,	"31"	=>	"1ヶ月以内"
);

%bukken2_name	=
(	
	"1"	=>	"土地"
,	"2"	=>	"戸建"
,	"3"	=>	"マン"
,	"4"	=>	"外全"
,	"5"	=>	"外一"
);

# 変数
$area2_name = "";
$station1_temp = "";
$station2_temp = "";
$station1_old = "";
$station1_name = "";
$station2_name = "";


$count = 0;
$count_all = 0;
$read_next = 0;
$read_back = 0;
$search = 0;
$year_wk = 0;
$mon_wk = 0;
$mday_wk = 0;
$date_wk = "";
$year_fr = 0;
$mon_fr = 0;
$mday_fr = 0;
$date_fr = "";
$area = "";
$name_ar3_old = "";
$name1_old = "";

# ローカル時間取得
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wdy,$yday,$isdst) = localtime(time);
$year			+= 1900;
$mon++;
$year			= sprintf("%04d", $year);
$mon			= sprintf("%02d", $mon);
$mday			= sprintf("%02d", $mday);
$hour			= sprintf("%02d", $hour);
$min				= sprintf("%02d", $min);
$sec				= sprintf("%02d", $sec);
$localdate	= $year . "/" . $mon . "/" . $mday;
$localtime	= $hour . ":" . $min . ":" . $sec;

# リモートホスト取得
$remote_host = gethostbyaddr(pack("C4",split(/\./,$ENV{'REMOTE_HOST'})),2);

if (!$remote_host) {
	$remote_host = $ENV{'REMOTE_HOST'};
}


# COOKIE取得
foreach (split(/; /, $ENV{'HTTP_COOKIE'})) {
	($name_c, $value_c) = split(/=/, $_);
	$cookie{$name_c} = $value_c;
}

print "Content-type: text/html\n\n";

#　パートナー業者ログイン時 2005/08/30
if ($cookie{'estate_partner_login'} && $cookie{'estate_partner_login'} ne "guest") {
	$partner_i = "";
}
else {
	$tel_i = "";
}

#　NG電話番号取得 2006/03/18
open(FILE, $f_esngtel1);
@esngtel1 = <FILE>;
close(FILE);

foreach (@esngtel1){
	($ngtel) = split(/\t/,$_);
	$esngtel{$ngtel}++;
}

# 業者TEL入力時、パートナー業者入力不可 2005/08/30
if ($tel_i) {
	$partner_i = "";

	#　業者名取得
	open(FILE, $f_estrdat1);
	@estrdat1 = <FILE>;
	close(FILE);

	@estrdat1 = grep /\t$tel_i\t/i, @estrdat1;

	foreach (@estrdat1){
		($area1_tr1,$area2_tr1,$area3_tr1,$area4_tr1,$sort_tr1,$name_tr1,$tel_tr1,$fax_tr1,$group_tr1,$zip_tr1,$address_tr1,$license_tr1,$url_tr1,$mail_tr1) = split(/\t/,$_);
		if($tel_tr1 =~ /\Q$tel_i\E/i) { ; } else { next;}
		$name_temp = $name_tr1;
	}
}

# 業者パートナー入力時
if ($partner_i) {
	# 業者情報取得
	open(FILE, $f_esusdat2);
	@esusdat2 = <FILE>;
	close(FILE);

	@esusdat2 = grep /\t$partner_i\t/, @esusdat2;

	foreach (@esusdat2){
		($logdate_us2,$logtime_us2,$partner_us2,$pass_us2,$name_us2,$tel_us2,$fax_us2,$url_us2,$email_us2) = split(/\t/,$_);

		if ($partner_us2 eq $partner_i) {
			$partner_1_check++;
			last;
		}
	}

	if ($partner_1_check) {
		open(FILE, $f_esptdat2);
		@esptdat2 = <FILE>;
		close(FILE);

		@esptdat2 = grep /\t$partner_i\t/, @esptdat2;

		foreach (@esptdat2){
			($logdate_pt2,$logtime_pt2,$partner_pt2,$area_pt2,$partner_1_pt2,$partner_2_pt2) = split(/\t/,$_);

			if ($partner_1_pt2) {
				$area1_temp = substr($area_pt2, 0,2);
				$area2_temp = substr($area_pt2, 2,3);
				$table_area{$area2_temp}++;
				$partner_2_check++;
#				last;
			}
		}
	}

	if ($partner_1_check && $partner_2_check) {
		$partner_no = $partner_us2;
		$partner_name = $name_us2;
		$partner_tel = $tel_us2;
		$partner_fax = $fax_us2;
		$partner_url = $url_us2;
		$partner_email = $email_us2;
	}
	else {
		# ユーザーIDクリア
		$partner_i = "";
	}
}

# 都道府県が未入力の場合
#if (!$area1_i) {
	$area1_i = 27;
#}

# 所在地名称を取得
if ($area2_i) {
	open(FILE, $f_ararmas2);
	@ararmas2 = <FILE>;
	close(FILE);

	@ararmas2 = grep /$area1_i\t$area2_i\t/, @ararmas2;

	foreach (@ararmas2) {
		($area1_ar2,$area2_ar2,$name1_ar2,$name2_ar2) = split(/\t/,$_);

		if ($area1_ar2 eq $area1_i && $area2_ar2 eq $area2_i) {
			$area2_name = $name1_ar2;
		}
	}
}

# 物件が未入力の場合（※マンションのみ）
#if (!$bukken_i) {
	$bukken_i = 3;
#}

# 物件が「マンション」・「住宅以外（一部）」の場合
if ($bukken_i == 3 || $bukken_i == 5) {
	# ソート順が"2"「土地」の場合
	if ($sort_i == 2) {
		$sort_i = 1;
	}
}

# 物件が「土地」・「住宅以外（全部）」の場合
if ($bukken_i == 1 || $bukken_i == 4) {
	# ソート順が"3"「建物」・"6"「間取り」の場合
	if ($sort_i == 3 || $sort_i == 6) {
		$sort_i = 1;
	}
}

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$mon++;

# NEW表示範囲指定（7日）
$year_wk = $year;
$mon_wk = $mon;
$mday_wk = $mday;

for($i = 1; $i <= 7;$i++) {
	if ($mday_wk == 1) {
		if ($mon_wk == 1) {
			$year_wk--;
			$mon_wk = 12;
		}
		else {
			$mon_wk--;
		}

		$mday_wk = $mon1[$mon_wk - 1];
	}
	else {
		$mday_wk--;
	}
}

$year_wk = sprintf("%04d", $year_wk);
$mon_wk = sprintf("%02d", $mon_wk);
$mday_wk = sprintf("%02d", $mday_wk);
$date_wk = $year_wk . "/" . $mon_wk . "/" . $mday_wk;

# 表示範囲指定（3ヶ月）
$year_fr = $year;
$mon_fr = $mon;
$mday_fr = $mday;

for($i = 1; $i <= $mon_cnt;$i++) {
	if ($mon_fr == 1) {
		$year_fr--;
		$mon_fr = 12;
	}
	else {
		$mon_fr--;
	}
}

$year_fr = sprintf("%04d", $year_fr);
$mon_fr = sprintf("%02d", $mon_fr);
$mday_fr = sprintf("%02d", $mday_fr);
$date_fr = $year_fr . "/" . $mon_fr . "/" . $mday_fr;

# 情報の新しさより取得範囲算出
if ($fresh_i == 3) {
	$fresh_day = 3;
}

if ($fresh_i == 7) {
	$fresh_day = 7;
}

if ($fresh_i == 21) {
	$fresh_day = 21;
}

if ($fresh_i == 3 || $fresh_i == 7 || $fresh_i == 21) {
	# 一覧表示範囲指定(3日〜1週間〜3週間)
	$year_wk = $year;
	$mon_wk = $mon;
	$mday_wk = $mday;

	for($i = 1; $i <= $fresh_day;$i++) {
		if ($mday_wk == 1) {
			if ($mon_wk == 1) {
				$year_wk--;
				$mon_wk = 12;
			}
			else {
				$mon_wk--;
			}

			$mday_wk = $mon1[$mon_wk - 1];
		}
		else {
			$mday_wk--;
		}
	}

	$year_wk = sprintf("%04d", $year_wk);
	$mon_wk = sprintf("%02d", $mon_wk);
	$mday_wk = sprintf("%02d", $mday_wk);
	$fresh_date = $year_wk . "/" . $mon_wk . "/" . $mday_wk;
}
elsif ($fresh_i == 31) {
	# 一覧表示範囲指定（1ヶ月）
	$year_wk = $year;
	$mon_wk = $mon;
	$mday_wk = $mday;

	if ($mon_wk == 1) {
		$year_wk--;
		$mon_wk = 12;
	}
	else {
		$mon_wk--;
	}

	$year_wk = sprintf("%04d", $year_wk);
	$mon_wk = sprintf("%02d", $mon_wk);
	$mday_wk = sprintf("%02d", $mday_wk);
	$fresh_date = $year_wk . "/" . $mon_wk . "/" . $mday_wk;
}
# 情報の新しさが「最新日」の場合
elsif ($fresh_i == 1) {
	open(FILE, "$f_esprnew1");
	$new_date = <FILE>;
	close(FILE);

	$fresh_date = $new_date;
}

# 物件区分入力時（※マンションのみ）
###if ($bukken_i && $area2_i) {
if ($bukken_i) {
###	$area_temp = $area1_i . $area2_i;
	# <!--売物件データ抽出(START)-->

	$year_fr = $year;
	$mon_fr = $mon;
	$mday_fr = $mday;

	for($i = 1; $i <= $mon_cnt + 1;$i++) {
		if ($i != 1) {
			if ($mon_fr == 1) {
				$year_fr--;
				$mon_fr = 12;
			}
			else {
				$mon_fr--;
			}
		}

		$year_fr = sprintf("%04d", $year_fr);
		$mon_fr = sprintf("%02d", $mon_fr);

# ※マンションのみ抽出
###		for($b = 1; $b <= 5;$b++) {

###			if ($b eq $bukken_i) {

				$dir_temp = $d_bukken . $bukken_i . "/" . $year_fr . $mon_fr . "/";

				opendir(DIR, $dir_temp);
				@dir = grep(/.data/, readdir(DIR));
				closedir(DIR);

				foreach $file_temp(@dir) {
					$area1_temp = substr($file_temp, 0,2);
					$area2_temp = substr($file_temp, 2,3);

					if ($area2_temp eq $area2_i || !$area2_i) {
						$area_temp = $area1_temp . $area2_temp;
						$filename = $dir_temp . $file_temp;

						# <!--売物件データ読み込み(START)-->
						open(FILE, "$filename");
						@bukken1 = <FILE>;
						close(FILE);

#	open(FILE, $f_usprdat1);
#	@usprdat3 = <FILE>;
#	close(FILE);

#	@usprdat3 = grep /\t売物件\t/, @usprdat3;
#	push @esprdat3, @usprdat3;

						# 業者TEL入力時 2005/08/30
						if ($tel_i) {
							@bukken1 = grep /\t$tel_i\t/, @bukken1;
						}

						if ($area3_i) {
							@bukken1 = grep /\t$area_temp\t$area3_i/, @bukken1;
						}
						else {
							@bukken1 = grep /\t$area_temp\t/, @bukken1;
						}

						# <!--物件種別 絞り込み(START)-->
##						if ($item_i) {
						open(FILE, $f_espritm1);
						@espritm1 = <FILE>;
						close(FILE);

						foreach (@espritm1) {
							($prkey1_it1,$prkey2_it1,$item_it1,$name_it1,$name_it2) = split(/\t/,$_);
							if ($prkey1_it1 == 1 && $prkey2_it1 == $bukken_i) {
								if ($item_it1 == $item_i || !$item_i) {
									@bukken1_temp = grep /\t\Q$bukken2_name{$prkey2_it1}\E\t\Q$name_it1\E\t/, @bukken1;
									push @esprdat1_1, @bukken1_temp;
								}
							}
						}
					}
				}
###			}
###		}
	}

	# <!--物件種別 絞り込み(END)-->
	# <!--売物件データ読み込み(END)-->

	# <!--売物件データ絞り込み(START)-->
	# 沿線名 配列セット
	if ($station_i) {
		($station1,$station2) = split(/,/,$station_i);

		open(FILE, $f_arstmas1);
		@arstmas1 = <FILE>;
		close(FILE);

		foreach (@arstmas1){
			($group1_st1,$station1_st1,$name1_st1,$name2_st1) = split(/\t/, $_);
			if ($station1_st1 eq $station1) {
				$station1_name = $name2_st1;
				last;
			}
		}

		# 駅名 配列セット
		if ($station2) {
			open(FILE, $f_arstmas2);
			@arstmas2 = <FILE>;
			close(FILE);

			foreach (@arstmas2){
				($station1_st2,$station2_st2,$name1_st2,$express_st2) = split(/\t/, $_);
				if ($station1_st2 eq $station1 && $station2_st2 eq $station2) {
					$station2_name = $name1_st2;
				}
			}
		}
	}

	foreach (@esprdat1_1){
		($data01,$data02,$data03,$data04,$data05,$data06,$data07,$data08,$data09,$data10,$data11,$data12,$data13,$data14,$data15,$data16,$data17,$data18,$data19,$data20,$data21,$data22,$data23,$data24,$data25,$data26,$data27,$data28,$data29,$data30,$data31,$data32,$data33,$data34,$data35,$data36,$data37,$data38,$data39,$data40,$data41,$data42,$data43,$data44,$data45,$data46,$data47,$data48,$data49,$data50,$data51,$data52,$data53,$data54,$data55,$data56,$data57,$data58,$data59,$data60,$data61,$data62,$data63,$data64) = split(/\t/,$_);
		$area1_pr1 = substr($data23, 0,2);
		$area2_pr1 = substr($data23, 2,3);
		$area3_pr1 = substr($data24, 0,3);
		$area4_pr1 = substr($data24, 3,3);
		# 登録日が表示範囲日以前の場合
		if ($data63 le $date_fr) {
			next;
		}

		# 情報の新しさ
		if ($fresh_i) {
			# 情報の新しさが「最新日」の場合
			if ($fresh_i == 1) {
				if ($data63 ne $fresh_date) {
					next;
				}
			}
			else {
				if ($data63 le $fresh_date) {
					next;
				}
			}
		}

		if ($area1_pr1 eq $area1_i) {

			# <!---絞り込み条件(START)-->
			# 個人ユーザー・パートナー業者ログイン時以外 2005/10/25
			if (!$cookie{'estate_user_login'} && !$cookie{'estate_partner_login'} || $cookie{'estate_partner_login'} eq "guest") {
				# 電話番号がNG電話番号に登録されている場合
				if ($esngtel{$data06}) {
					next;
				}
			}

			# パートナー業者ログイン時以外 2005/10/25
			if (!$cookie{'estate_partner_login'} || $cookie{'estate_partner_login'} eq "guest") {

				# チラシ等不可 2002/07/11
				if (
					$data61 =~ /\Q広告\E/ || $data62 =~ /\Q広告\E/ || 
					$data61 =~ /\Qチラシ\E/ || $data62 =~ /\Qチラシ\E/ || 
					$data61 =~ /\Qネット\E/ || $data62 =~ /\Qネット\E/ || 
					$data61 =~ /\Q不可\E/ || $data62 =~ /\Q不可\E/ || 
					$data61 =~ /\Q厳禁\E/ || $data62 =~ /\Q厳禁\E/ || 
					$data61 =~ /\Q禁止\E/ || $data62 =~ /\Q禁止\E/
					)
				{
					next;
				}
			}

			# 業者TEL 2005/08/30
			if ($tel_i) {
				if ($data06 eq $tel_i) {
					;
				}
				else { next; }
			}

			# 所在地2(大字)
			if ($area3_i) {
				if ($area3_pr1 eq $area3_i) { ; }
				else { next; }
			}

			# 価格
			if ($price_fr_i || $price_to_i) {
				if (!$price_fr_i) {
					$price_fr_i = 0;
				}

				if (!$price_to_i) {
					$price_to_i = 99999;
				}

				if ($data08 >= $price_fr_i && $data08 <= $price_to_i) { ; }
				else { next; }
			}

			# 最寄駅
			if ($station_i) {
				($station1,$station2) = split(/,/,$station_i);

				if ($station2) {
					if ($data25 =~ /\Q$station1_name\E/ && $data26 =~ /\Q$station2_name\E/) { ; }
					else { next; }
				}
				else {
					if ($data25 =~ /\Q$station1_name\E/) { ; }
					else { next;}
				}
			}

			# 間取り
			if ($plan_i) {
				if ($data55 =~ /\Q$plan_i\E/) { ; }
				else { next; }
			}

			# ペット可
			if (
				$data61 =~ /\Qペット可\E/ || $data62 =~ /\Qペット可\E/ || 
				$data61 =~ /\Qペット相談\E/ || $data62 =~ /\Qペット相談\E/
				) { ; }
			else { next; }
			
			# <!--絞り込み条件(END)-->

			# <!--フィールド置換(START)-->
			$data55 =~ s/Ｄ/D/g;
			$data55 =~ s/Ｋ/K/g;
			$data55 =~ s/Ｌ/L/g;
			$data55 =~ s/Ｓ/S/g;
			# <!--フィールド置換(END)-->

			# <!--重複用配列セット(START)-->
			$data08 = sprintf("%05d", $data08);
			$data14 = sprintf("%07.2f", $data14);
			$data15 = sprintf("%07.2f", $data15);
			$overlap_key = $data08 . $data23 . $data24 . $data14 . $data15 . $data55 . $data05;
#!#			$prdata01{$overlap_key} = $_;
			push @esprdat1_2, $_;
			$count_all++;

			# 総件数が出力件数を越えた場合（強制終了）
			if ($count_all > $list_max) {
				last;
			}
			
			# <!--重複用配列セット(END)-->
		}
	}
	# <!--売物件データ絞り込み(END)-->

	if (!$read_i || $read_i <= 0) {
		$read_i = 0;
		$read_next = 1;
		$read_fr = 1;
		$read_to = 20;
	}
	else {
		$read_next = $read_i + 1;
		$read_back = $read_i - 1;

		$read_fr = $read_i * 20 + 1;
		$read_to = $read_i * 20 + 20;
	}

	if ($read_to > $count_all) {
		$read_to = $count_all;
	}
}

print "
	<HTML>
	<HEAD>
	<TITLE>
";

if ($partner_i) {
	print "$partner_name ";
}
else {
	print "マイ・エステート・ネット ";
}

print "[売物件検索 - 一覧] - ペット可物件特集 大阪府";

if ($area2_i) {
	print "$area2_name";
}

print "の";

if ($bukken_i) {
	print "$bukken{$bukken_i}\情報";
}
else {
	print "物件情報";
}
 
print "
	</TITLE>
	<META http-equiv='Content-Type' content='text/html; charset=EUC-JP'>
	<META NAME='Keywords' CONTENT='マイエステートネット,my-estate.net,大阪府,不動産,売物件,売物件検索,ペット可物件特集,$bukken{$bukken_i},$area2_name'>
	<META NAME='Description' CONTENT='大阪府全域の不動産情報サイト：[売物件検索]…ペット可物件特集 大阪府$area2_nameの$bukken{$bukken_i}\情報'>
	<STYLE TYPE='text/css'>
	<!--
	A{text-decoration:none;}
	A:hover{color:#ff0000; text-decoration:underline}
	body{font-size:10pt;}
	table{font-size:10pt;}
	-->
	</STYLE>

	<SCRIPT LANGUAGE='javascript'>
	<!--
	function checkform(){
		if(document.gs.q.value == \"\"){
			window.alert(\"お店を選択して下さい\");
			return false;
		}

		return true;
	}
	// -->
	</SCRIPT>

	</HEAD>
	<BODY BGCOLOR='#FFFFFF' TEXT='#000000'>
	<CENTER>
";

# パートナーセット時のみ
if (!$partner_i) {
	print "
		<!-- タイトル START -->
		<TABLE BORDER='0' CELLPADDING='0' CELLSPACING='0' WIDTH='760'>
		<TR>
		<TD VALIGN='TOP' WIDTH='240'>
		<A HREF='http://my-estate.net/' TARGET='_top'>
		<FONT COLOR='#FF0000' FACE='VERDANA' STYLE='FONT-SIZE:18PT'>
		<I><B>my-estate.net</B></I>
		</FONT>
		</A>
		<DIV ALIGN='CENTER'>
		<I>-- 大阪府全域の不動産情報サイト --</I>
		</DIV>
		</TD>
		<TD VALIGN='TOP'>
			<TABLE BGCOLOR='#FFFF80' BORDERCOLOR='#808080' BORDER='1' CELLPADDING='5' CELLSPACING='0' WIDTH='100%'>
			<TR>
			<TD>
			<FONT COLOR='#FF0000' STYLE='FONT-SIZE:11PT'>
			<B>★ペットと一緒に暮らせるマンション特集</B>
			</FONT>
			<BR>
			ペットも大事な家族の一員。そんな大切なペットと快適に暮らせるマンションを探してみましょう！！
			</TD>
			</TR>
			</TABLE>
		</TD>
		</TR>
		</TABLE>
		<P>
		<!-- タイトル END -->
	";

	print "	
		<!-- 見出し START -->
		<TABLE BORDER='0' BGCOLOR='#808080' BORDERCOLOR='#808080' CELLPADDING='5' CELLSPACING='1' WIDTH='760'>
		<TR BGCOLOR='#C0C0C0'>
		<TD>
		<A HREF='http://my-estate.net/' TARGET='_top'>my-estate</A> >> <A HREF='http://my-estate.net/uri/' TARGET='_top'>売物件</A> >> 売物件検索
		</TD>
		</TR>
		</TABLE>
		<!-- 見出し END -->
	";
	
	print "
		<!--空白-->
		<TABLE BORDER='0' CELLPADDING='0' CELLSPACING='0'  WIDTH='760'>
		<TR><TD HEIGHT='5'></TD></TR>
		</TABLE>
		<!--空白-->
	";
	# <!--所在地がセットされた場合-->	
	if ($area2_i) {
		# パートナー業者ログイン時以外
		if (!$cookie{'estate_partner_login'} || $cookie{'estate_partner_login'} eq "guest") {
			$area_temp = $area1_i . $area2_i;
			# <!--パートナー業者表示-->
			open(FILE, $f_esptdat2);
			@esptdat2 = <FILE>;
			close(FILE);
	
			@esptdat2 = grep /\t$area_temp\t/, @esptdat2;
	
			foreach (@esptdat2){
				($logdate_pt2,$logtime_pt2,$partner_pt2,$area_pt2,$partner_1_pt2,$partner_2_pt2) = split(/\t/,$_);
	
				if ($area_pt2 == $area_temp && $partner_1_pt2) {
					$partner_2_check++;
					last;
				}
			}
	
			if ($partner_2_check) {
				open(FILE, $f_esusdat2);
				@esusdat2 = <FILE>;
				close(FILE);
	
				@esusdat2 = grep /\t$partner_pt2\t/, @esusdat2;
	
				foreach (@esusdat2){
					($logdate_us2,$logtime_us2,$partner_us2,$pass_us2,$name_us2,$tel_us2,$fax_us2,$url_us2,$email_us2) = split(/\t/,$_);
	
					if ($partner_us2 eq $partner_pt2) {
						$partner_1_check++;
						last;
					}
				}
			}
		}
	
		if ($partner_1_check && $partner_2_check) {
			print "
				<!-- パートナー START -->
				<TABLE BORDER='0' BGCOLOR='#8080FF' BORDERCOLOR='#8080FF' CELLPADDING='5' CELLSPACING='2' WIDTH='760'>
				<TR BGCOLOR='#F0F0FF'>
				<TD>
				<B><FONT STYLE='FONT-SIZE:11PT' COLOR='#FF0000'>$area2_name</FONT></B> のパートナー業者は、<B><FONT STYLE='FONT-SIZE:12PT'>
			";
	
			if ($url_us2) {
				print "<A HREF='$url_us2' TARGET='_new'>$name_us2</A>";
			}
			else {
				print "$name_us2";
			}
	
			print "</FONT></B> ";
	
			if ($tel_us2) {
				print "- <B><FONT STYLE='FONT-SIZE:12PT'>$tel_us2</FONT></B> - ";
			}
	
			print "
				です。
				</TD>
				</TR>
				</TABLE>
				<!-- パートナー END -->
			";
	
			print "
				<!--空白-->
				<TABLE BORDER='0' CELLPADDING='0' CELLSPACING='0'  WIDTH='760'>
				<TR><TD HEIGHT='5'></TD></TR>
				</TABLE>
				<!--空白-->
			";
		}
	}
}

print "
	<!-- メニュー START -->
	<TABLE BORDER='0' CELLPADDING='0' CELLSPACING='0' WIDTH='760'>
	<TR>
	<!-- 検索条件 START -->
	<TD WIDTH='520'>
		<TABLE BORDER='0' CELLPADDING='0' CELLSPACING='0' WIDTH='100%'>
		<TR BGCOLOR='#FFFFA0'>
		<TD>
			<TABLE BORDER='0' BGCOLOR='#FF8080' BORDERCOLOR='#FF8080' CELLPADDING='5' CELLSPACING='2' WIDTH='100%'>
			<TR BGCOLOR='#FFFFA0'>
			<TH>
			<FONT COLOR='#000080' STYLE='FONT-SIZE:12PT'>
			売物件検索 - [ペットと一緒に暮らす]
			</FONT>
			</TH>
			</TR>
			</TABLE>
		</TD>
		</TR>
		</TABLE>

		<TABLE BORDER='0' CELLPADDING='5' CELLSPACING='0' WIDTH='100%'>
		<TR BGCOLOR='#F0FFF0'>
		<TD>
			<TABLE BORDER='0' CELLSPACING='0' WIDTH='100%'>
			<TR>
			<FORM ACTION='./esprls01pt.cgi' METHOD='POST'>
			<INPUT TYPE='HIDDEN' NAME='partner' VALUE=$partner_i>
			<INPUT TYPE='HIDDEN' NAME='tel' VALUE=$tel_i>
			<INPUT TYPE='HIDDEN' NAME='area1' VALUE=$area1_i>
			<INPUT TYPE='HIDDEN' NAME='sort' VALUE=$sort_i>
			<TH ALIGN='LEFT' COLSPAN='2' VALIGN='TOP'>
";

# 物件種別
print "
			・物件種目:
			<SELECT NAME='bukken' onChange='if (this.selectedIndex >= 0) self.location.href = this.options[this.selectedIndex].value;'>
";

# 業者TEL入力時　2005/08/30
### if ($tel_i) {
###	print "	<OPTION VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=&item=&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">指定なし";
###}
###else {
	if (!$bukken_i) {
		print "			<OPTION VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=&item=&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">指定して下さい";
	}
###}

foreach (sort keys %bukken){

# 物件がマンションの場合（※マンションのみ）
	if ($_ == 3) {
		if ($_ == $bukken_i) {
			$selected = "SELECTED";
		}
		else {
			$selected = "";
		}
	
		print "			<OPTION $selected VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$_&item=&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">$bukken{$_}";
	}
}

print "
			</SELECT>
";

# 物件種目
if ($bukken_i) {
	print "
			 >> 
			<SELECT NAME='item' onChange='if (this.selectedIndex >= 0) self.location.href = this.options[this.selectedIndex].value;'>
			<OPTION VALUE=\"./esprls01pt.cgi?partner=$partner_i&bukken=$bukken_i&tel=$tel_i&item=&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">指定なし
	";

	open(FILE, $f_espritm1);
	@espritm1 = <FILE>;
	close(FILE);

	@espritm1 = grep /1\t$bukken_i\t/, @espritm1;

	foreach (@espritm1) {
		($prkey1_it1,$prkey2_it1,$item_it1,$name_it1,$name_it2) = split(/\t/,$_);
		if ($prkey1_it1 == 1 && $prkey2_it1 == $bukken_i) {
			if ($item_it1 == $item_i) {
				$selected = "SELECTED";
			}
			else {
				$selected = "";
			}

			print "	<OPTION $selected VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_it1&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">$name_it2";
		}
	}

	print "
				</SELECT>
	";
}

print "
			</TH>
			</TR>

			<TR><TD COLSPAN='2'><HR SIZE='1'></TD></TR>
	
			<TR>
			<TH ALIGN='LEFT' COLSPAN='2' VALIGN='TOP'>
";

# 所在地1(市区町村)
print "
			・所在地:
			<SELECT NAME='area2' onChange='if (this.selectedIndex >= 0) self.location.href = this.options[this.selectedIndex].value;'>
";

print "			<OPTION VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=&area3=&price_fr=$price_fr_i&price_to=$price_to_i&station=&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">指定なし";

open(FILE, $f_ararmas2);
@ararmas2 = <FILE>;
close(FILE);

@ararmas2 = grep /$area1_i\t/, @ararmas2;

foreach (@ararmas2) {
	($area1_ar2,$area2_ar2,$name1_ar2,$name2_ar2) = split(/\t/,$_);

	if ($area1_ar2 eq $area1_i) {
		if ($area2_ar2 eq $area2_i) {
			$selected = "SELECTED";
			$area2_name = $name1_ar2;
		}
		else {
			$selected = "";
		}

		if (!$partner_i || $partner_i && $table_area{$area2_ar2}) {
			print "			<OPTION $selected VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_ar2&area3=&price_fr=$price_fr_i&price_to=$price_to_i&station=&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">$name1_ar2";
		}
	}
}

print "		</SELECT>";

# 所在地2(大字)
if ($area2_i) {
	print "
				 >> 
				<SELECT NAME='area3' onChange='if (this.selectedIndex >= 0) self.location.href = this.options[this.selectedIndex].value;'>
				<OPTION VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">指定なし";

	open(FILE, $f_ararmas3);
	@ararmas3 = <FILE>;
	close(FILE);

	@ararmas3 = grep /$area1_i\t$area2_i\t/, @ararmas3;

	foreach (@ararmas3){
		($area1_ar3,$area2_ar3,$area3_ar3,$name_ar3,$kana_ar3,$dizit1_ar3) = split(/\t/, $_);

		if ($area1_ar3 eq $area1_i && $area2_ar3 eq $area2_i) {
			if ($area3_ar3 && $area3_ar3 eq $area3_i) {
				$selected = "SELECTED";
				$area3_name = $name_ar3;
			}
			else {
				$selected = "";
			}

			print "			<OPTION $selected VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_ar3&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">$name_ar3";

		}
	}

	print "
				</SELECT>
	";
}

print "
		</TH>
		</TR>

		<TR><TD COLSPAN='2'><HR SIZE='1'></TD></TR>

		<TR>
		<TH ALIGN='LEFT' COLSPAN='2' VALIGN='TOP'>
";

# 価格(FROM)
print "
			・価格:
			<SELECT NAME='price_fr' onChange='if (this.selectedIndex >= 0) self.location.href = this.options[this.selectedIndex].value;'>
			<OPTION VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=0&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">下限なし
";

foreach (sort keys %price_fr){
	if ($_ == $price_fr_i) {
		$selected = "SELECTED";
	}
	else {
		$selected = "";
	}

	print "			<OPTION $selected VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$_&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">$price_fr{$_}";
}

print "		</SELECT>";

# 価格(TO)
print "
			〜 
			<SELECT NAME='price_to' onChange='if (this.selectedIndex >= 0) self.location.href = this.options[this.selectedIndex].value;'>
";

foreach (sort keys %price_to){
	if ($_ == $price_to_i) {
		$selected = "SELECTED";
	}
	else {
		$selected = "";
	}

	print "			<OPTION $selected VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$_&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">$price_to{$_}";
}

if (!$price_to_i || $price_to_i == 99999) {
	$selected = "SELECTED";
}
else {
	$selected = "";
}

print "			<OPTION $selected VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i$_&price_to=99999&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">上限なし
	</SELECT>
";

print "
		</TH>
		</TR>

		<TR><TD COLSPAN='2'><HR SIZE='1'></TD></TR>

		<TR>
		<TH ALIGN='LEFT' COLSPAN='2' VALIGN='TOP'>
";

# 最寄駅
print "
		・最寄駅:
		<SELECT NAME='station' onChange='if (this.selectedIndex >= 0) self.location.href = this.options[this.selectedIndex].value;'>
		<OPTION VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">指定なし
";

if (area2_i) {
	# 沿線名 配列セット
	open(FILE, $f_arstmas1);
	@arstmas1 = <FILE>;
	close(FILE);

	foreach (@arstmas1){
		($group1_st1,$station1_st1,$name1_st1,$name2_st1) = split(/\t/, $_);
		$station1_temp = $station1_st1;

		$station1_name{$station1_temp} = $name2_st1;
	}

	# 駅名 配列セット
	open(FILE, $f_arstmas2);
	@arstmas2 = <FILE>;
	close(FILE);

	foreach (@arstmas2){
		($station1_st2,$station2_st2,$name1_st2,$express_st2) = split(/\t/, $_);
		$station2_temp = $station1_st2 . "," . $station2_st2;

		$station2_name{$station2_temp} = $name1_st2;
	}

	($station1,$station2) = split(/,/,$station_i);

	open(FILE, $f_ars2dat1);
	@ars2dat1 = <FILE>;
	close(FILE);

	@ars2dat1 = grep /$area1_i\t$area2_i\t/, @ars2dat1;

	foreach (@ars2dat1){
		($area1_s21,$area2_s21,$station1_s21,$station2_s21) = split(/\t/, $_);
		$station1_temp = $station1_s21;
		$station2_temp = $station1_s21 . "," . $station2_s21;
		if ($station1_s21 ne $station1_old) {
			if ($station1_s21 eq $station1){
				$selected = "SELECTED";
			}
			else {
				$selected = "";
			}

			print "			<OPTION $selected VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station1_s21,&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">-- $station1_name{$station1_temp} --";
			$station1_old = $station1_s21;
		}

		if ($area1_s21 == $area1_i && $area2_s21 == $area2_i){
			if ($station1_s21 eq $station1 && $station2_s21 eq $station2){
				$selected = "SELECTED";
			}
			else {
				$selected = "";
			}

			print "			<OPTION $selected VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station1_s21,$station2_s21&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=\">$station2_name{$station2_temp}";
		}
	}
}

print "			</SELECT>";

# 物件が「一戸建て」・「マンション」・「住宅以外（一部）」の場合
if ($bukken_i == 2 || $bukken_i == 3 || $bukken_i == 5) {
	print "
				</TH>
				</TR>	

				<TR><TD COLSPAN='2'><HR SIZE='1'></TD></TR>

				<TR>
				<TH ALIGN='LEFT' COLSPAN='2' VALIGN='TOP'>
	";

	# 間取り
	print "
				・間取り:
				<SELECT NAME='plan' NAME='plan' onChange='if (this.selectedIndex >= 0) self.location.href = this.options[this.selectedIndex].value;'>
			<OPTION VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=&fresh=$fresh_i&sort=$sort_i&read=\">指定なし
	";

	foreach (sort keys %plan){
		if ($_ == $plan_i) {
			$selected = "SELECTED";
		}
		else {
			$selected = "";
		}

		print "	<OPTION $selected VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$_&fresh=$fresh_i&sort=$sort_i&read=\">$plan{$_}";
	}

	print "
				</SELECT>
	";
}

print "
			</TH>
			</TR>

			<TR><TD COLSPAN='2'><HR SIZE='1'></TD></TR>

			<TR>
			<TH ALIGN='LEFT' COLSPAN='2' VALIGN='TOP'>
";

# 情報の新しさ
print "
			・情報の新しさ:
			<SELECT NAME='fresh' onChange='if (this.selectedIndex >= 0) self.location.href = this.options[this.selectedIndex].value;'>
		<OPTION VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=&sort=$sort_i&read=\">指定なし
";

foreach (sort keys %fresh){
	if ($_ == $fresh_i) {
		$selected = "SELECTED";
	}
	else {
		$selected = "";
	}

	print "			<OPTION $selected VALUE=\"./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$_&sort=$sort_i&read=\">$fresh{$_}";
}

print "			</SELECT>";

print "
				</TH>
				</TR>
		
				<TR><TD COLSPAN='2'><HR SIZE='1'></TD></TR>
";

print "
			<TR>
			<TH ALIGN='LEFT' VALIGN='TOP'>
			</TH>
			</FORM>
			<FORM ACTION='./esprls01pt.cgi' METHOD='POST'>
			<INPUT TYPE='HIDDEN' NAME='partner' VALUE=$partner_i>
			<INPUT TYPE='HIDDEN' NAME='tel' VALUE=$tel_i>
			<TH ALIGN='RIGHT' VALIGN='TOP'>
			<INPUT TYPE='SUBMIT' VALUE='条件クリア'>
			</TH>
			</FORM>
			</TR>
			</TABLE>

		</TD>
		</TR>
		</TABLE>
";

# 物件区分入力時（※マンションのみ）
if ($bukken_i) {
	print "
			<!-- 検索件数 START -->
			<TABLE BORDER='0' BGCOLOR='#000000' BORDERCOLOR='#000000' CELLPADDING='5' CELLSPACING='1' WIDTH='100%'>
			<TR BGCOLOR='#D0FFD0'>
			<TD>
				<TABLE BORDER='0' WIDTH='100%'>
				<TR>
				<TD>
	";

	if (!$count_all) {
		print "			・該当する売物件データは存在しません。";
	}
	elsif ($count_all > $list_max) {
		print "			・売物件データが<FONT COLOR='#FF0000'><B>$list_max</B></FONT>件を越えていますので絞り込んで下さい。";
	}
	else {
		print "			・<FONT COLOR='#FF0000'><B>$count_all</B></FONT>件の売物件データが存在します。";
	}

	print "
				</TD>
				<TD ALIGN='RIGHT'>
	";

	if (!$count_all || $count_all > $list_max) {
		print "&nbsp;";
	}
	else {
		if ($read_i) {
			print "			<A HREF='./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=$read_back'><< 前へ</A>";
		}

		print "&nbsp;$read_fr\件〜$read_to\件&nbsp;";
		if ($read_to ne $count_all) {
			print "<A HREF='./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=$read_next'>次へ >></A>";
		}
	}

	print "
				</TD>
				</TR>
				</TABLE>
				
			</TD>
			</TR>
			</TABLE>
			<!-- 検索件数 END -->
	";
}

print "
		<!--空白-->
		<TABLE BORDER='0' CELLPADDING='0' CELLSPACING='0'  WIDTH='100%'>
		<TR><TD HEIGHT='5'></TD></TR>
		</TABLE>
		<!--空白-->

	</TD>
	<!-- 検索条件 END -->

	<!--空白-->
	<TD WIDTH='5'></TD>
	<!--空白-->
	";

# お店情報・バナー START
	print "
		<!-- お店情報・バナー START -->
		<TD ALIGN='CENTER' VALIGN='TOP' WIDTH='235'>
	";

	if ($area2_i) {
		print "
			<!--	お店情報 START-->
			<!--TABLE BORDER='0' CELLPADDING='0' CELLPADDING='0' CELLSPACING='0' WIDTH='100%'>
			<TR>
			<TD>
				<TABLE BORDER='0' BGCOLOR='#FF8080' BORDERCOLOR='#FF8080' CELLPADDING='5' CELLSPACING='1' WIDTH='100%'>
				<TR BGCOLOR='#FF8080'>
				<TH>
				<FONT STYLE='FONT-SIZE:11PT' COLOR='#FFFFFF'><B>〜 お店情報 〜</B></FONT>
				</TH>
				</TR>

				<TR BGCOLOR='#FFF0F0'>
				<FORM NAME='gs' METHOD='get' ACTION='http://local.google.co.jp/maps' TARGET='_blank' onSubmit='return checkform();'>
				<INPUT TYPE=HIDDEN NAME='output' value=\"html\"/>
				<INPUT TYPE=HIDDEN NAME='near' VALUE=\"大阪府$area2_name$area3_name\">
				<INPUT TYPE=HIDDEN NAME='ie' VALUE=\"EUC-JP\">
				<INPUT TYPE=HIDDEN NAME='oe7 VALUE=\"UTF-8\">
				<INPUT TYPE=HIDDEN NAME='hl' VALUE=\"ja\">
				<TD VALIGN='TOP'>
				<B>［$area2_name $area3_name］</B>付近のお店情報を検索できます。
				<BR>
				<SELECT NAME='q'>
				<OPTION VALUE=\"\">指定して下さい
				<OPTION VALUE=\"\">▼生活
				<OPTION VALUE=\"銀行\">┣銀行
				<OPTION VALUE=\"郵便局\">┗郵便局
				<OPTION VALUE=\"市区町村機関\">┗市区町村機関
				<OPTION VALUE=\"スーパー\">┗スーパー
				<OPTION VALUE=\"コンビニ\">┗コンビニ
				<OPTION VALUE=\"ホームセンター\">┗ホームセンター
				<OPTION VALUE=\"書店\">┗書店
				<OPTION VALUE=\"CD・DVD・ビデオ店\">┗CD・DVD・ビデオ店
				<OPTION VALUE=\"レンタルビデオ・CD\">┗レンタルビデオ・CD
				<OPTION VALUE=\"\">
				<OPTION VALUE=\"\">▼健康
				<OPTION VALUE=\"医院\">┗医院
				<OPTION VALUE=\"小児科\">┗小児科
				<OPTION VALUE=\"薬局\">┗薬局
				<OPTION VALUE=\"あんま・マッサージ\">┗あんま・マッサージ
				<OPTION VALUE=\"はり・きゅう\">┗はり・きゅう
				<OPTION VALUE=\"\">
				<OPTION VALUE=\"\">▼おしゃれ
				<OPTION VALUE=\"美容院\">┗美容院
				<OPTION VALUE=\"理容店\">┗理容店
				<OPTION VALUE=\"エステティック\">┗エステティック
				<OPTION VALUE=\"\">
				<OPTION VALUE=\"\">▼グルメ
				<OPTION VALUE=\"ファミレス\">┗ファミレス
				<OPTION VALUE=\"ファストフード\">┗ファストフード
				<OPTION VALUE=\"居酒屋\">┗居酒屋
				<OPTION VALUE=\"スナック\">┗スナック
				<OPTION VALUE=\"バー・クラブ\">┗バー・クラブ
				<OPTION VALUE=\"\">
				<OPTION VALUE=\"\">▼遊ぶ
				<OPTION VALUE=\"カラオケ\">┗カラオケ
				<OPTION VALUE=\"ゲームセンター\">┗ゲームセンター
				<OPTION VALUE=\"映画館\">┗映画館
				<OPTION VALUE=\"スポーツショップ\">┗スポーツショップ
				<OPTION VALUE=\"ホテル\">┗ホテル
				<OPTION VALUE=\"\">
				<OPTION VALUE=\"\">▼学ぶ
				<OPTION VALUE=\"塾・進学教室\">┗塾・進学教室
				<OPTION VALUE=\"英会話\">┗英会話
				<OPTION VALUE=\"スポーツ施設\">┗スポーツ施設
				</SELECT>
				<INPUT TYPE=SUBMIT NAME='btnG' value=\"検索\">
				</TD>
				</FORM>
				</TR>

				<TR BGCOLOR='#FFFFFF'>
				<TD>
				<DIV ALIGN='RIGHT'>
				Powered by
				<A HREF='http://local.google.co.jp' TARGET='_blank'>
				<IMG SRC='http://www.google.com/intl/ja_jp/images/local_res_logo3.gif' BORDER=0 ALT=Google ALIGN=absmiddle HEIGHT='32' WIDTH='75'>
				</A>
				</DIV>
				</TD>
				</TR>
				</TABLE>
			</TD>
			</TR>

			<TR><TD HEIGHT='5'></TD></TR>
			</TABLE-->
			<!-- お店情報 END -->
		";
	}

	# 業者パートナー未入力時
	if (!$partner_i) {
		print "
				<!-- Google AdSense START -->
				<TABLE BORDER='0' BORDERCOLOR='#000000' CELLPADDING='0' CELLSPACING='0' WIDTH='100%'>
				<TR>
				<TD ALIGN='CENTER'>
				<!-- START -->
	
	<script type=\"text/javascript\"><!--
	google_ad_client = \"pub-6368889269648055\"\;
	google_ad_width = 234\;
	google_ad_height = 60\;
	google_ad_format = \"234x60_as\"\;
	google_ad_type = \"text_image\"\;
	google_ad_channel =\"\"\;
	google_color_border = \"336699\"\;
	google_color_bg = \"FFFFFF\"\;
	google_color_link = \"0000FF\"\;
	google_color_url = \"008000\"\;
	google_color_text = \"000000\"\;
	//--></script>
	<script type=\"text/javascript\"
	  src=\"http://pagead2.googlesyndication.com/pagead/show_ads.js\">
	</script>
	
				<!-- END -->
	
				</TD>
				</TR>
	
				<TR><TD HEIGHT='5'></TD></TR>
	
				</TABLE>
				<!-- Google AdSense END -->
	
				<!-- valuecommerce START -->
				<TABLE BORDER='0' BORDERCOLOR='#000000' CELLPADDING='0' CELLSPACING='0' WIDTH='100%'>
				<TR>
				<TD ALIGN='CENTER'>
				<!-- 1 START -->
	
	<IFRAME frameBorder=\"0\" allowTransparency=\"true\" height=\"60\" width=\"234\" marginHeight=\"0\" scrolling=\"no\" src=\"http://ad.jp.ap.valuecommerce.com/servlet/htmlbanner?sid=2244829&pid=873716605\" MarginWidth=\"0\"><script Language=\"javascript\" Src=\"http://ad.jp.ap.valuecommerce.com/servlet/jsbanner?sid=2244829&pid=873716605\"></script><noscript><a Href=\"http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2244829&pid=873716605\" target=\"_blank\" ><img Src=\"http://ad.jp.ap.valuecommerce.com/servlet/gifbanner?sid=2244829&pid=873716605\" height=\"60\" width=\"234\" Border=\"0\"></a></noscript></IFRAME>
	
				<!-- 1 END -->
				</TD>
				</TR>
	
				<TR><TD HEIGHT='5'></TD></TR>
	
				</TABLE>
				<!-- valuecommerce END -->
		";
	}

	print "
		</TD>
		<!-- お店情報・バナー START -->			
	";

print "
	</TABLE>
	<P>
	<!-- メニュー END -->
";

print "
		<!--空白-->
		<!--TABLE BORDER='0' CELLPADDING='0' CELLSPACING='0'  WIDTH='760'>
		<TR><TD HEIGHT='5'></TD></TR>
		</TABLE-->
		<!--空白-->
";

print "
	<!-- パートナー・バナー START -->
	<TABLE BORDER='0' BORDERCOLOR='#000000' CELLPADDING='0' CELLSPACING='0' WIDTH='520'>
	<TR>
	<TD ALIGN='CENTER' VALIGN='TOP'>
		<TABLE BGCOLOR='#FFFFA0' BORDER='1' BORDERCOLOR='#FF8080' CELLPADDING='5' CELLSPACING='0' HEIGHT='60' WIDTH='468'>
		<TR>
		<TD VALIGN='TOP'>
";

#　パートナー業者ログイン時 2005/08/30
if ($cookie{'estate_partner_login'} && $cookie{'estate_partner_login'} ne "guest") {
	if ($tel_i) {
		print "	
			<DIV ALIGN='CENTER'>
			<FONT COLOR='#000080' STYLE='FONT-SIZE:14PT'>
			<B>$name_temp<BR>売物件一覧</B>
			</FONT>
			</DIV>
		";
	}
	else {
		print "<A HREF='http://my-estate.net/' TARGET='_top'><B>マイ・エステート・ネット</B></A>では、ただいま";

		if ($area2_i) {
			print "<B> [$area2_name] </B>の";
		}

		print "<B><FONT COLOR='#FF0000'>パートナー業者</FONT></B>を募集しております。
			<DIV ALIGN='RIGHT'>（※現在は募集しておりません）</DIV>
		";
	}
}
else {
	# <!--ユーザー業者表示-->
	if ($partner_i) {
		print "
			物件に関する詳しい情報や案内等については、<BR>
			<DIV ALIGN='CENTER'>
		";

		if ($partner_url) {
			print "
				<A HREF='$partner_url' TARGET='_top'>
				<B><FONT STYLE='FONT-SIZE:16PT'> $partner_name </FONT></B>
				</A>
			";
		}
		else {
			print "
				<B><FONT STYLE='FONT-SIZE:16PT'> $partner_name </FONT></B>
			";
		}

		print "
			へお問い合わせ下さい。 
			</DIV>
		";
	}
	else {
		print "
			<A HREF='http://my-estate.net/' TARGET='_top'><B>マイ・エステート・ネット</B></A>では、ただいま";

		if ($area2_i) {
			print "<B> [$area2_name] </B>の";
		}

		print "<B><FONT COLOR='#FF0000'>パートナー業者</FONT></B>を募集しております。<DIV ALIGN='RIGHT'>（※現在は募集しておりません）</DIV>
		";
	}
}

print "
		</TD>
		</TR>
		</TABLE>

	</TD>
	</TR>
	</TABLE>
	<P>
	<!-- パートナー・バナー END -->
";

print "
		<!--空白-->
		<!--TABLE BORDER='0' CELLPADDING='0' CELLSPACING='0'  WIDTH='760'>
		<TR><TD HEIGHT='5'></TD></TR>
		</TABLE-->
		<!--空白-->
";

# MAPFANリンク用エンコード
$address_enc = "大阪府" . $area2_name . $area3_name;
$address_enc =~ s/(\W)/'%' . unpack('H2', $1)/eg;

# 総件数がMAX以下の場合 2005/10/25
if ($count_all && $count_all < $list_max) {
	print "
		<TABLE BGCOLOR='#80FF80' BORDER='0' BORDERCOLOR='#000000' CELLPADDING='0' CELLSPACING='0' WIDTH='760'>
		<TR>
		<TD>
			<TABLE BORDER='0' BGCOLOR='#FF8080' BORDERCOLOR='#FF8080' CELLPADDING='5' CELLSPACING='1' WIDTH='100%'>
			<TR BGCOLOR='#FFFFA0'>
			<TH>
			<FONT COLOR='#000080' STYLE='FONT-SIZE:12PT'>
		◆ $area2_name <A HREF='http://www.mapfan.com/index.cgi?ADDR=$address_enc' TARGET='_blank'>$area3_name</A> 売物件 検索結果 ◆
			</FONT>
			</TH>
			</TR>
			</TABLE>

		</TD>
		</TR>
		
		<TR>
		<TD ALIGN='LEFT' BGCOLOR='#F0FFF0'>
		※見出しの項目名をクリックすると検索結果の順番が並び替えられます。<BR>
		※所在地や最寄駅をクリックすると周辺地図が表示されます。
		</TD>
		</TR>

		<TR>
		<TD>
			<TABLE BGCOLOR='#000000' BORDER='0' BORDERCOLOR='#000000' CELLPADDING='5' CELLSPACING='1' WIDTH='100%'>
			<!--TR><TD BGCOLOR='#80FF80' COLSPAN='9'></TD></TR-->
			
			<TR BGCOLOR='#D0FFD0'>
			<TH NOWRAP>
			<A HREF='./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=7&read='>登録日</A>
			</TH>

			<TH NOWRAP>
			物件種目
			</TH>
	";

	# 物件が「マンション」の場合
	if ($bukken_i == 3) {
		print "
			<TH NOWRAP>
			マンション名
			</TH>
		";
	}

	print "
			<TH NOWRAP>
			<A HREF='./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=1&read='>価格<BR>(万円)</A>
			</TH>
	";

	# 物件が「土地」・「一戸建て」・「住宅以外（全部）」の場合
	if ($bukken_i == 1 || $bukken_i == 2 || $bukken_i == 4) {
		print "
			<TH NOWRAP>
			<A HREF='./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=2&read='>土地<BR>(m<sup>2</sup>)</A>
			</TH>
	";
	}

	# 物件が「一戸建て」・「マンション」・「住宅以外（一部）」の場合
	if ($bukken_i == 2 || $bukken_i == 3 || $bukken_i == 5) {
		print "
			<TH NOWRAP>
			<A HREF='./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=3&read='>
		";

		if ($bukken_i == 2) {
			print "建物";
		}

		if ($bukken_i == 3 || $bukken_i == 5) {
			print "占有";
		}

		print "
			<BR>(m<sup>2</sup>)</A>
			</TH>
		";
	}

	print "
			<TH NOWRAP>
			<A HREF='./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=4&read='>所在地</A>
			</TH>
			<TH NOWRAP>
			<A HREF='./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=5&read='>最寄駅<BR>徒歩(分)</A>
			</TH>
	";

	# 物件が「一戸建て」・「マンション」・「住宅以外（一部）」以外の場合
	if ($bukken_i == 2 || $bukken_i == 3 || $bukken_i == 5) {
		print "
			<TH NOWRAP>
			<A HREF='./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=6&read='>間取り</A>
			</TH>
		";
	}

	# 物件が「土地」以外の場合
	if ($bukken_i != 1) {
		print "
			<TH NOWRAP>
			駐車場
			</TH>
		";
	}

	# 物件が「土地」以外の場合
	if ($bukken_i != 1) {
		print "
			<TH NOWRAP>
			築年月
			</TH>
		";
	}

	print "
		</TR>
	";

	# 該当データをソートする(START)
	# 価格
	if (!$sort_i || $sort_i == 1) {
		@esprdat1_2 = map {$_->[0]}
								sort {$a->[8] <=> $b->[8] or $a->[1] <=> $b->[1]}
								map {[$_, split /\t/]} @esprdat1_2;
		$sort_i = 1;
		$bgcolor_1 = "BGCOLOR='#FFFF80'";
	}
	# 土地
	elsif ($sort_i == 2) {
		@esprdat1_2 = map {$_->[0]}
								sort {$a->[14] <=> $b->[14] or $a->[8] <=> $b->[8] or $a->[1] <=> $b->[1]}
								map {[$_, split /\t/]} @esprdat1_2;
		$bgcolor_2 = "BGCOLOR='#FFFF80'";
	}
	# 建物
	elsif ($sort_i == 3) {
		@esprdat1_2 = map {$_->[0]}
								sort {$a->[15] <=> $b->[15] or $a->[8] <=> $b->[8] or $a->[1] <=> $b->[1]}
								map {[$_, split /\t/]} @esprdat1_2;
		$bgcolor_3 = "BGCOLOR='#FFFF80'";
	}
	# 所在地
	elsif ($sort_i == 4) {
		@esprdat1_2 = map {$_->[0]}
								sort {$a->[23] <=> $b->[23] or $a->[24] <=> $b->[24] or $a->[8] <=> $b->[8] or $a->[1] <=> $b->[1]}
								map {[$_, split /\t/]} @esprdat1_2;
		$bgcolor_4 = "BGCOLOR='#FFFF80'";
	}
	# 最寄駅 / 徒歩
	elsif ($sort_i == 5) {
		@esprdat1_2 = map {$_->[0]}
								sort {$a->[26] cmp $b->[26] or $a->[27] <=> $b->[27] or $a->[28] <=> $b->[28] or $a->[8] <=> $b->[8] or $a->[1] <=> $b->[1]}
								map {[$_, split /\t/]} @esprdat1_2;
		$bgcolor_5 = "BGCOLOR='#FFFF80'";
	}
	# 間取り
	elsif ($sort_i == 6) {
		@esprdat1_2 = map {$_->[0]}
								sort {$a->[55] cmp $b->[55] or $a->[8] <=> $b->[8] or $a->[1] <=> $b->[1]}
								map {[$_, split /\t/]} @esprdat1_2;
		$bgcolor_6 = "BGCOLOR='#FFFF80'";
	}
	# 登録日
	elsif ($sort_i == 7) {
		@esprdat1_2 = map {$_->[0]}
								sort {$b->[63] cmp $a->[63] or $a->[8] <=> $b->[8] or $a->[1] <=> $b->[1]}
								map {[$_, split /\t/]} @esprdat1_2;
		$bgcolor_7 = "BGCOLOR='#FFFF80'";
	}
	# 該当データをソートする(END)

	foreach (@esprdat1_2){
		($data01,$data02,$data03,$data04,$data05,$data06,$data07,$data08,$data09,$data10,$data11,$data12,$data13,$data14,$data15,$data16,$data17,$data18,$data19,$data20,$data21,$data22,$data23,$data24,$data25,$data26,$data27,$data28,$data29,$data30,$data31,$data32,$data33,$data34,$data35,$data36,$data37,$data38,$data39,$data40,$data41,$data42,$data43,$data44,$data45,$data46,$data47,$data48,$data49,$data50,$data51,$data52,$data53,$data54,$data55,$data56,$data57,$data58,$data59,$data60,$data61,$data62,$data63,$data64,$seq_no) = split(/\t/,$_);

		if (!$count) {
			print " <!--TR><TD BGCOLOR='#80FF80' COLSPAN='9'></TD></TR-->";
		}

		$count++;

		if ($count < $read_fr) {
			next;
		}
		elsif ($count > $read_to) {
			last;
		}

		if (($count % 2)) {
			$bgcolor_body = "#F0FFF0";
		}
		else {
			$bgcolor_body = "#D0FFD0";
		}
		
		$data22 =~ s/　//g;
		$data22_enc = $data22;
		$data22_enc =~ s/(\W)/'%' . unpack('H2', $1)/eg;
		$data22 =~ s/大阪府//g;
		
		if ($area2_name) {
			$data22 =~ s/$area2_name//g;
		}
		
		$data26_enc = $data26;
		$data26_enc =~ s/(\W)/'%' . unpack('H2', $1)/eg;
		$data55 =~ s/Ｄ/D/g;
		$data55 =~ s/Ｋ/K/g;
		$data55 =~ s/Ｌ/L/g;
		$data55 =~ s/Ｓ/S/g;
		$data55 =~ s/\Q1ワンルーム\E/ワンルーム/g;
		($data63_y,$data63_m,$data63_d) = split(/\//,$data63);

		print "
			<TR	BGCOLOR='$bgcolor_body'>
			<!--FORM ACTION='./esprif01.cgi' METHOD='POST' TARGET='_blank'>
			<INPUT TYPE='HIDDEN' NAME='partner' VALUE=$partner_i-->
		";

		# 登録日・詳細
		print "
				<TD ALIGN='CENTER' $bgcolor_7>
				$data63_y\/$data63_m<BR>
				<!--INPUT TYPE='HIDDEN' NAME='bukken' VALUE='$bukken_i'>
				<INPUT TYPE='HIDDEN' NAME='seq_no' VALUE='$seq_no'>
				<INPUT TYPE='HIDDEN' NAME='date' VALUE='$data63_y$data63_m'>
				<INPUT TYPE='HIDDEN' NAME='area' VALUE='$data23'>
				<INPUT TYPE='SUBMIT' VALUE='詳 細'-->
				<A HREF='./esprif01.cgi?partner=$partner_i&seq_no=$seq_no' TARGET='_blank'><B>[詳細]</B></A>
		";

		opendir(DIR, $d_syashin);
		@dir1 = grep(/$data01.jpg/, readdir(DIR));
		closedir(DIR);

		opendir(DIR, $d_madori);
		@dir2 = grep(/$data01.gif/, readdir(DIR));
		closedir(DIR);

		if (@dir1) {
#			print "<A HREF='../img/home/syashin/$data01.jpg' TARGET='_blank'><IMG BORDER='0' SRC='../img/home/list1.gif'></A>&nbsp;";
		}
		else {
#			print "<IMG SRC='../img/home/listf.gif'>&nbsp;";
		}

		if (@dir2) {
#			print "<A HREF='../img/home/madori/$data01.gif' TARGET='_blank'><IMG BORDER='0' SRC='../img/home/list2.gif'></A>&nbsp;";
		}
		else {
#			print "<IMG SRC='../img/home/listf.gif'>&nbsp;";
		}

		print "
				</TD>
		";

		# 物件種目
		print "
			<TD ALIGN='CENTER'>
			$data04
			</TD>
		";

		# マンション名
		# 物件が「マンション」の場合
		if ($bukken_i == 3) {
			print "	<TD>";
			if ($data43) {
				print "	$data43";
			}
			else {
				print "	&nbsp;";
			}

			print "	</TD>";
		}

		# 価格
		print "
			<TD ALIGN='RIGHT' $bgcolor_1>
			<FONT COLOR='#FF0000' STYLE='FONT-SIZE:14PT'>
		";

		if ($data63 gt $date_wk) {
			print "	<DIV ALIGN='CENTER'><IMG SRC='../img/new.gif' ALT='NEW' BORDER='0'></DIV>";
		}

		print "
			<B>$data08</B>
			</FONT>
			</TD>
		";

		# 土地
		# 物件が「土地」・「一戸建て」・「住宅以外（全部）」の場合
		if ($bukken_i == 1 || $bukken_i == 2 || $bukken_i == 4) {
			print "
				<TD ALIGN='RIGHT' $bgcolor_2>
			";

			if ($data14) {
				print "	$data14";
			}
			else {
				print "	-";
			}

			print "
				</TD>
			";
		}

		# 建物
		# 物件が「一戸建て」・「マンション」・「住宅以外（一部）」の場合
		if ($bukken_i == 2 || $bukken_i == 3 || $bukken_i == 5) {
			print "
				<TD ALIGN='RIGHT' $bgcolor_3>
			";

			if ($data15) {
				print "	$data15";
			}
			else {
				print "	-";
			}

			print "
				</TD>
			";
		}

		# 所在地
		print "
			<TD $bgcolor_4>
			<A HREF='http://www.mapfan.com/index.cgi?ADDR=$data22_enc' TARGET='_blank'>$data22</A>
			</TD>
		";

		# 最寄駅 / (バス)徒歩
		print "
			<TD ALIGN='CENTER' $bgcolor_5>
			<A HREF='http://www.mapfan.com/index.cgi?STA=$data26_enc' TARGET='_blank'>$data26</A><BR>
		";

		if ($data27 || $data28) {
			if ($data27) {
				print "$data27 / ";
			}

			print "$data28";
		}
		else {
			print "	-";
		}

		print "
			</TD>
		";

		# 間取り
		# 物件が「一戸建て」・「マンション」・「住宅以外（一部）」の場合
		if ($bukken_i == 2 || $bukken_i == 3 || $bukken_i == 5) {
			print "
				<TD ALIGN='CENTER' $bgcolor_6>
			";

			if ($data55) {
				print "	$data55";
			}
			else {
				print "	-";
			}

			print "
				</TD>
			";
		}

		# 駐車場
		# 物件が「土地」以外の場合
		if ($bukken_i != 1) {
			print "
				<TD ALIGN='CENTER'>
			";

			if ($data58) {
				print "	$data58";
			}
			else {
				print "	-";
			}

			print "
					</TD>
			";
		}

		# 築年月
		# 物件が「土地」以外の場合
		if ($bukken_i != 1) {
			print "
				<TD ALIGN='CENTER'>
			";

			if ($data59) {
				print "	$data59";
			}
			else {
				print "	-";
			}

			print "
				</TD>
			";
		}

	print "
			</FORM>
			</TR>
		";

		print "	<!--TR><TD BGCOLOR='#80FF80' COLSPAN='9'></TD></TR-->";
	}

	print "
			</TABLE>

		</TD>
		</TR>
		</TABLE>
		<P>
	";

	print "
		<!-- 検索件数 START -->
		<TABLE BORDER='0' CELLPADDING='0' CELLSPACING='0' WIDTH='760'>
		<TR>
		<TD WIDTH='520'>
			<TABLE BORDER='0' BGCOLOR='#000000' BORDERCOLOR='#000000' CELLPADDING='5' CELLSPACING='1' WIDTH='100%'>
			<TR BGCOLOR='#D0FFD0'>
			<TD>
				<TABLE BORDER='0' WIDTH='100%'>
				<TR>
				<TD>
	";

	if (!$count_all) {
		print "			・該当する売物件データは存在しません。";
	}
	elsif ($count_all > $list_max) {
		print "			・売物件データが<FONT COLOR='#FF0000'><B>$list_max</B></FONT>件を越えていますので絞り込んで下さい。";
	}
	else {
		print "			・<FONT COLOR='#FF0000'><B>$count_all</B></FONT>件の売物件データが存在します。";
	}

	print "
				</TD>
				<TD ALIGN='RIGHT'>
	";

	if (!$count_all || $count_all > $list_max) {
		print "&nbsp;";
	}
	else {
		if ($read_i) {
			print "			<A HREF='./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=$read_back'><< 前へ</A>";
		}

		print "&nbsp;$read_fr\件〜$read_to\件&nbsp;";
		if ($read_to ne $count_all) {
			print "<A HREF='./esprls01pt.cgi?partner=$partner_i&tel=$tel_i&bukken=$bukken_i&item=$item_i&area1=$area1_i&area2=$area2_i&area3=$area3_i&price_fr=$price_fr_i&price_to=$price_to_i&station=$station_i&plan=$plan_i&fresh=$fresh_i&sort=$sort_i&read=$read_next'>次へ >></A>";
		}
	}

	print "
				</TD>
				</TR>
				</TABLE>
			</TD>
			</TR>
			</TABLE>
			
		</TD>
		</TR>
		</TABLE>
		<!-- 検索件数 END -->
	";
}

print "
	<P>

	<HR SIZE='1'>
	<DIV ALIGN='LEFT'>
";

# リンク表示（ユーザーIDセット時、業者HPへ）
if ($partner_url) {
	print "
		<A HREF='$partner_url' TARGET='_top'>
		<B><I>>> $partner_name トップページ</I></B></A>
	";
}
else {
	print "
		<A HREF='http://my-estate.net/' TARGET='_top'>
		<B><I>>> My-Estate Top...</I></B></A>
	";
}

print "
	</DIV>
	<DIV ALIGN='RIGHT'>
	<A HREF='http://www.mapfan.com/' TARGET='_blank'>
	<IMG SRC='http://www.mapfan.com/images/105_20a.gif' BORDER='0'>
	</A>
	<BR>
	<I>Estate property search (sales) - Ver.2.0 (Written by.<A HREF='mailto:webmaster\@yas-jr.com'>yas-jr</A>)<BR>
	- Last update:2005/12/12 -</I><BR>
";

# <!-- コピーライト START -->
open(FILE, "../../data/copyright/estate1.data");
@copy = <FILE>;
close(FILE);

foreach (@copy){
	print "<FONT STYLE='FONT-SIZE:9PT'>$_</FONT>";
}
# <!-- コピーライト END -->

print "
	</DIV>
	</CENTER>
	</BODY>
	</HTML>
";