#!/usr/local/bin/perl
require 'cgi-lib/jcode.pl';
require 'cgi-lib/perl-lib.pl';

#--------------------------------------
# 管理者のメールアドレス
# メールを使用する場合は、このアドレスに
# 注文書が送付される
$masteremail = 'shop@asiwatch.co.jp';
#--------------------------------------
# sendmailのパスを指定
# このサンプルではメール送信を停止しています。
# 次の行の先頭の#を削除して設定してください。
# メールを送信しない場合は''にする
$sendmail = '/usr/sbin/sendmail';
#--------------------------------------
# 完了後戻るページ
$homepage = 'index.html';
#--------------------------------------
# ショップのタイトル
$title = 'アジワッチ';
#--------------------------------------
# バックグランドカラー
$bg = '#FFFFFF';
# テキストの文字色
$text = '#000000';
# リンク文字色
$link = '#0000DD';
# Vリンク文字色
$vlink = '#DD0000';
# Aリンク色
$alink = '#DDDD00';
#--------------------------------------
# 文字の大きさ(ピクセル)
$fontsize = '13px';
#--------------------------------------
# 売り場テーブルの幅(ピクセル)
$tablewidth = 940;
#--------------------------------------
# サーバの時差(日本の場合は９時間)
$timelag = 9;
#--------------------------------------
# デフォルトの商品のファイル名
$itemfile = 'thanks-t-a4.txt';
#--------------------------------------
# 決済方法の選択肢
$SETTLE[0] = '銀行振り込';
$SETTLE[1] = '代金引換';
#$SETTLE[2] = '郵便振替';
#--------------------------------------
# 都道府県情報
$AREA[0] = "北海道";
$AREA[1] = "青森県";
$AREA[2] = "岩手県";
$AREA[3] = "秋田県";
$AREA[4] = "山形県";
$AREA[5] = "宮城県";
$AREA[6] = "福島県";
$AREA[7] = "茨城県";
$AREA[8] = "栃木県";
$AREA[9] = "群馬県";
$AREA[10] = "埼玉県";
$AREA[11] = "千葉県";
$AREA[12] = "東京都";
$AREA[13] = "神奈川県";
$AREA[14] = "山梨県";
$AREA[15] = "新潟県";
$AREA[16] = "長野県";
$AREA[17] = "富山県";
$AREA[18] = "石川県";
$AREA[19] = "福井県";
$AREA[20] = "岐阜県";
$AREA[21] = "静岡県";
$AREA[22] = "愛知県";
$AREA[23] = "三重県";
$AREA[24] = "滋賀県";
$AREA[25] = "京都府";
$AREA[26] = "大阪府";
$AREA[27] = "兵庫県";
$AREA[28] = "奈良県";
$AREA[29] = "和歌山県";
$AREA[30] = "鳥取県";
$AREA[31] = "島根県";
$AREA[32] = "岡山県";
$AREA[33] = "広島県";
$AREA[34] = "山口県";
$AREA[35] = "徳島県";
$AREA[36] = "香川県";
$AREA[37] = "愛媛県";
$AREA[38] = "高知県";
$AREA[39] = "福岡県";
$AREA[40] = "佐賀県";
$AREA[41] = "長崎県";
$AREA[42] = "熊本県";
$AREA[43] = "大分県";
$AREA[44] = "宮崎県";
$AREA[45] = "鹿児島県";
$AREA[46] = "沖縄県";
#--------------------------------------
# メールに添付する署名
# メールアドレスを記入する場合は「@」の
# 前に\を置いて\@とする
$signature = << "END";
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
株式会社アジワッチ
住所　愛知県尾張旭市南栄町１−１
電話　0561-53-8255
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
END
#--------------------------------------
# ページのトップに表示するヘッダー(HTML)
#
# 文字化けしやすい日本語には\を付ける
# 表\示、機能\、申\し 
#
$header = << "END";

	<CENTER>
<img src=img/logo.png>

END
#--------------------------------------
# ページの下部に表示するフッター(HTML)
$fooder = << "END";

	<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0><TR>
		<TD>| <A HREF="about-us.html">会社概要</A> |</TD>
		<TD>| <A HREF="personal-info.html">個人情報取り扱いポリシー</A> |</TD>
		<TD>| <A HREF="legal.html">特定商取引法に基づく\表\記</A> |</TD>
		<TD>| <A HREF="contact-us.html">CONTACT |</TD>
	</TR></TABLE>
	<TABLE BORDER=0 WIDTH=720><TR>
		<TD BGCOLOR=#E7E7F7 ALIGN=CENTER STYLE="FONT-SIZE: 12px">
			<A HREF=MAILTO:><IMG SRC=img/icon-email-2.png BORDER=0></A>
			〒488-0045 愛知県尾張旭市南栄町１−１ TEL:0561-53-1916
		</TD>
	</TR></TABLE>
	</CENTER>

END
#--------------------------------------
# 見積書の最下部に表示するメッセージ

$message = <<"END";

	<ol>
		<li>お客様の個人情報が漏洩する事はありません。</li>
		<li>お客様の個人情報は当サイト以外の目的で利用されることはありません。</li>
		<li>お名前、E-Mail、お届け先は必ずご記入ください。</li>
		<li>銀行振り込み、郵便振替を選択した場合は、入金確認後の発送となります。</li>
	</ol>

END
#------------------------------------------------
#		設定はここまで
#		これ以降を変更すると動作保証できない
#------------------------------------------------
sub boxtop {
	my($width, $boxtitle, $client) = @_;
	!$width && ($width = '100%');
	my($bgcolor) = $tablebg;
	if ($client) { $bgcolor = $bg; }
	print "<table border=1 cellspacing=0  cellpadding=0 width=$width>\n";
		print "<tr><td bgcolor=#ffffff valign=top>\n";
}
sub boxbottom {
		print "</td></tr>\n";
	print "</table>\n";
}
sub msgbox {
	my($caption, $icon, $msg, $button, $width) = @_;
	my($key, $value);
	&htmlhead();
	print $header;
	print "<br>\n";
	print "<table border=0 cellspacing=0 cellpadding=1><tr><td bgcolor=#a0a0a0>\n";
		print "<table border=0 cellspacing=0 cellpadding=4 width=100%><tr>\n";
			print "<tr><td colspan=2 bgcolor=#a5b5c6>■$caption</td></tr>\n";
#			print "<td valign=top bgcolor=#ffffff><img src=images/$icon></td>\n";
			print "<td valign=top bgcolor=#ffffff><img src=$icon></td>\n";
			print "<td valign=top bgcolor=#ffffff>$msg</td></tr>\n";
		if ($button) {
			print "<tr><td colspan=2 bgcolor=#ffffff><img src=img/icon-email-2.png width=100% height=1></td></tr>\n";
			my(@BUTTON) = split(/,/, $button);
			print "<tr><td colspan=2 bgcolor=#ffffff align=center>\n";
			foreach (@BUTTON) {
				($key, $value) = split(/:/, $_);
				if ($key =~ /return/i) {
					print "<input type=button value=\'　　戻る　　\' onclick=\"history.back();\">\n";
				} else {
					if ($value =~ /\.cgi/i) {
						if ($value =~ /\?/) {
							$value .= "&id=$QUERY{'id'}&pw=$QUERY{'pw'}";
						} else {
							$value .= "?id=$QUERY{'id'}&pw=$QUERY{'pw'}";
						}
					}
					if ($value =~ /parent/) {
						print "<input type=button value=\"$key\" onclick=\"$value\">\n";
					} else {
						print "<input type=button value=\"$key\" onclick=\"location.href='$value'\">\n";
					}
				}
			}
			print "</td></tr>\n";
		}
		print "</table>\n";
	print "</td></tr></table>\n";
	foreach (0 .. 5) { print "<br>\n"; }
	print $fooder;
	print "</body>\n";
	print "</html>\n";
	exit;
}
sub htmlhead {
	my($flag) = @_;
	print "Content-type: text/html\n\n";
	print "<html>\n";
	print "<head>\n";
	print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=shift_jis\">\n";
	print "<meta http-equiv=\"Content-Language\" content=\"ja\">\n";
	print "<title>$title</title>\n";
	print "</head>\n";
	print "<style TYPE=text/css>\n";
		print "\t<!--\n";
			print "\t\tA{FONT-SIZE: $fontsize}\n";
			print "\t\tA:link{\n";
				print "\t\t\tCOLOR: #000000;\n";
				print "\t\t\tTEXT-DECORATION: none\n";
			print "\t\t}\n";
			print "\t\tA:visited{\n";
				print "\t\t\tCOLOR: #000000;\n";
				print "\t\t\tTEXT-DECORATION: none\n";
			print "\t\t}\n";
			print "\t\tA:active{\n";
				print "\t\t\tCOLOR: #000000;\n";
				print "\t\t\tTEXT-DECORATION: none\n";
			print "\t\t}\n";
			print "\t\tA:hover{\n";
				print "\t\t\tBACKGROUND-COLOR: #a5b5c6;\n";
				print "\t\t\tTEXT-DECORATION: none\n";
			print "\t\t}\n";
			print "\t\tTD{FONT-SIZE: $fontsize}\n";
			print "\t\tDL{FONT-SIZE: $fontsize}\n";
			print "\t\tOL{FONT-SIZE: $fontsize}\n";
			print "\t\tUL{FONT-SIZE: $fontsize}\n";
			print "\t\tBODY{FONT-SIZE: $fontsize}\n";
			print "\t\tDIV{FONT-SIZE: $fontsize}\n";
			print "\t\tINPUT{FONT-SIZE: $fontsize}\n";
			print "\t\tSELECT{FONT-SIZE: $fontsize}\n";
			print "\t\tTEXTAREA{FONT-SIZE: $fontsize}\n";
		print "\t-->\n";
	print "</style>\n";
	print "<body>\n";
}
$sendmasteremail = 1;
$ENV{'TZ'} = "GMT";
$datenow = time + $timelag * 3600;
#if (!-e "trylicense.gif") {
#	open(IMG, ">trylicense.gif");
#	foreach $line (@TRYROGO) {
#		$len = length($line);
#		for ($i = 0; $i < $len; $i+=2) {
#			$img = pack('C*',hex(substr($line, $i, 2)));
#			print IMG $img;
#		}
#	}
#	close IMG;
#}
readparts('QUERY', '<>=', 'sjis');
if ($QUERY{'file'}) { $datafile = $QUERY{'file'}; }
else { $datafile = $itemfile; }
readini($datafile);
if ($QUERY{'action'} eq 'order') {
	#--------------------------------------
	#	注文書
	#--------------------------------------
	#
	# 注文書の受け付け
	#
	$mailheader = "Mailer = アジワッチ\n";
	$mailheader .= "DATE = " . jst_time($datenow, 3) . "\n";
	$order = "-- Order ---------------------------------------------------\n";
	$order .= "$INIT{'title'}\n";
	@ITEMS = split(/\0/, $QUERY{'item'});
	foreach (@ITEMS) {
		($name, $value) = split(/:/, $_);
		$order .= "【$name】$value\n";
	}
	$total = comma($QUERY{'total'});
	$order .= "お買い上げ合計金額：$total\n";
	$user .= "-- Sales ---------------------------------------------------\n";
	$user .= "【お名前】$QUERY{'name'}\n";
	$user .= "【E-Mail】$QUERY{'E-Mail'}\n";
	$user .= "【ご住所】〒$QUERY{'postno'}\n";
	($a, $b) = split(/:/, $AREA[$QUERY{'division'}-1]);
	$user .= "$a$QUERY{'city'}$QUERY{'addr'}\n";
	$user .= "$QUERY{'apart'}\n";
	$user .= "【TEL】$QUERY{'tel'}\n";
	$user .= "【FAX】$QUERY{'fax'}\n";
	$user .= "【決済方法】$SETTLE[$QUERY{'settle'}]\n";
	$user .= "【発送先】$QUERY{'cop'}\n";
	$user .= "【メッセージ】\n";
	$QUERY{'comment'} =~ s/\r/\n/g;
	$user .= "$QUERY{'comment'}\n";
	$body = $mailheader . $order . $user;
	if ($sendmail) {
		if ($sendmasteremail) {
			#
			# 注文書を管理者に送信
			#
			$subject = '注文書';
			&jcode'convert(*subject,'jis');
			&jcode'convert(*body,'jis');
			send_email($sendmail, '', $subject, $QUERY{'E-Mail'}, $masteremail, $cc, '', $body)
				&& msgbox("Error", "img/icon-email-2.png", "メールの送信に失敗しました。", 'return');
		}
		if ($QUERY{'checkmail'}) {
			#
			# 注文書控えを送信
			#
			$body = $order . $user . $signature;
			$body =~ s/\r/\n/g;
			$subject = '注文書(控)';
			&jcode'convert(*subject,'jis');
			&jcode'convert(*body,'jis');
			send_email($sendmail, '', $subject, $masteremail, $QUERY{'E-Mail'}, '', '', $body)
				&& msgbox("Error", "img/icon-email-2.png", "メールの送信に失敗しました。", 'return');
		}
	}
	$msg = "<p>ありがとうございました。<br>\n";
	$msg .= "正常にご注文をお受けしました。</p>\n";
	if ($sendmail && $QUERY{'checkmail'}) {
		$msg .= "あなたのメールアドレスに注文書控えを送信しました。<br>\n";
	}
	$msg .= "またのお越しをお待ち申\し上げております。";
	msgbox("送信完了", "img/icon-email-2.png", $msg, "売り場に戻る:$homepage",'',1);
}
if ($QUERY{'action'} eq 'estimate') {
	#--------------------------------------
	#	見積書
	#--------------------------------------
	# 入力項目のチェック
	#
	!$QUERY{'name'} && msgbox("Error", "img/icon-email-2.png", "お名前が記入されていません。", 'return');
	$QUERY{'E-Mail'} = kaconv($QUERY{'E-Mail'});
	$QUERY{'E-Mail'} !~ /^[\w\-\.]+\@[\w\-\.]+$/ && msgbox("Error", "img/icon-email-2.png", "メールアドレスが不正です。", 'return');
	!$QUERY{'postno'} && msgbox("Error", "img/icon-email-2.png", "郵便番号が記入されていません。", 'return');
	!$QUERY{'division'} && msgbox("Error", "img/icon-email-2.png", "都道府県が選択されていません。", 'return');
	!$QUERY{'city'} && msgbox("Error", "img/icon-email-2.png", "市区町村名が記入されていません。", 'return');
	!$QUERY{'addr'} && msgbox("Error", "img/icon-email-2.png", "番地が記入されていません。", 'return');
	!$QUERY{'tel'} && msgbox("Error", "img/icon-email-2.png", "電話番号が記入されていません。", 'return');
	htmlhead();
	print "<form action=shop.cgi method=POST name=shopform>\n";
		print "<input type=hidden name=action value=order>\n";
		print "<input type=hidden name=file value=$datafile>\n";
		print "<input type=hidden name=total value=$QUERY{'total'}>\n";
		print "<input type=hidden name=cardno value=\"$cardno\">\n";
		print "<input type=hidden name=term value=\"$term\">\n";
		print "<input type=hidden name=conf value=2>\n";
		print $header;
		print "<p>\n";
		$INIT{'itemimage'} && print "<img src=$INIT{'itemimage'}>\n";
		print "<center>\n";
		print "<table width=$tablewidth border=0 cellspacing=0 cellpadding=0><tr><td bgcolor=#000000>\n";
			print "<table width=100% border=0 cellspacing=1 cellpadding=4>\n";
			print "<tr><td bgcolor=#e7e7e7 colspan=2 align=center style=\"FONT-SIZE:16px\">$INIT{'title'}</td></tr>\n";
			foreach (1 .. $INIT{'count'}) {
				$Variable = "ITEM$_";
				$SelVariable = "itemITEM$_";
				if ($QUERY{$SelVariable} ne '') {
					$titlefield = shift(@$Variable);
					($item, $link) = split(/:/, $titlefield);
					print "<tr><td bgcolor=#b5c5d6 align=center><nobr>$item</nobr></td>\n";
					print "<td bgcolor=#e7e7e7>";
					($name, $price) = split(/:/, $$Variable[$QUERY{$SelVariable}]);
					print "<input type=hidden name=item value=\"$item:$name\">\n";
					print "$name</td></tr>\n";
				}
				$row++;
			}
			print "<tr><td bgcolor=#FF8080 style=\"FONT-SIZE:16px\" align=center><nobr>お買上げ金額</nobr></td>\n";
			$total = comma($QUERY{'total'});
			print "<td bgcolor=#FFFFFF align=center style=\"FONT-SIZE:16px\">$total</td></tr>";
			print "</table>\n";
		print "</td></tr></table>\n";
		&estimate();
	print "</form>\n";
	print $fooder;

	print "</center>\n";
	print "</body>\n";
	print "<SCRIPT>\n";
		print "\tfunction sendsubmit(flag,addr) {\n";
			print "\t\tdocument.shopform.submit();\n";
		print "\t}\n";
	print "</SCRIPT>\n";
	print "</html>\n";
	exit;
}
#--------------------------------------
#	売り場の生成
#--------------------------------------
htmlhead();
print "<form action=shop.cgi method=POST name=shopform>\n";
	print "<input type=hidden name=action value=estimate>\n";
	print "<input type=hidden name=file value=$datafile>\n";
	print "<input type=hidden name=conf value=1>\n";
	print "<input type=hidden name=total value=0>\n";
	print "<table border=0 width=100%><tr>\n";
	print "<td></td><td>\n";
	print $header;
	print "<p>\n";
	$INIT{'itemimage'} && print "<img src=$INIT{'itemimage'}>\n";
	#
	# 商品を陳列
	#
	print @ITEMTITLE;
	$row = 1; $default = $INIT{'default'}; $fixation = $INIT{'default'};
	print "<table width=$tablewidth border=0 cellspacing=0 cellpadding=0><tr><td bgcolor=#000000>\n";
		print "<table width=100% border=0 cellspacing=1 cellpadding=4>\n";
		print "<tr><td bgcolor=#e7e7e7 colspan=2 align=center style=\"FONT-SIZE:16px\">$INIT{'title'}</td>\n";
		print "<td align=right bgcolor=#e7e7e7 id=\"est\" style=\"FONT-SIZE:16px\"><nobr></nobr></td></tr>\n";
		foreach (1 .. $INIT{'count'}) {
			$Variable = "ITEM$_";
			if (@$Variable) {
				$titlefield = shift(@$Variable);
				$titlefield =~ s/http:\/\///g;
				($name, $link, $msg) = split(/:/, $titlefield);
				$link && ($link = "http://".$link);
				print "<tr><td bgcolor=#b5c5d6 align=center><nobr>$name</nobr></td>\n";
				print "<td bgcolor=#e7e7e7>";
				if (@$Variable > 1) {
					push(@SELECT, "$_");
					print "<input type=hidden name=\"item$Variable\" value=0>\n";
					print "<select name=$Variable size=1 onchange=\"calc();\">\n";
					$i = 0;
					foreach (@$Variable) {
						($name, $price) = split(/:/, $_);
						print "<option value=$price>$name</option>\n";
						if (!$i) { $default += $price; }
						$i++;
					}
					print "</select>";
				} else {
					($name, $price) = split(/:/, $$Variable[0]);
					print $name;
					$default += $price;
					$fixation += $price;
				}
				if ($msg) { print "<br>$msg"; }
				print "</td>\n";
				print "<td bgcolor=#e7e7e7 align=center>";
				if ($INIT{'pagetype'} && $_ == 1) {
					print "<input type=button value=詳細 onclick=\"mywin=window.open('btoview.cgi?data=$QUERY{'data'}');\">";
				} elsif ($link) {
					print "<input type=button value=詳細 onclick=\"mywin=window.open('$link');\">";
				}
				print "</td></tr>\n";
				$row++;
			}
		}
		if ($carriagetype) {
			print "<input type=hidden name=\"itemCARRIAGE\" value=0>\n";
			print "<tr><td bgcolor=#FFFFA0 align=center><nobr>送料</nobr></td>\n";
			print "<td bgcolor=#e7e7e7><select name=\"CARRIAGE\" size=1 onchange=\"calc(); setarea();\">\n";
			print "<option value=0>選んで下さい</option>\n";
			foreach (@AREA) {
				($name, $price) = split(/:/, $_);
				print "<option value=$price>$name</option>\n";
			}
			print "</select>※お届けする地域を選択してください。</td>";
			print "<td bgcolor=#e7e7e7></td></tr>\n";
		}
		print "<tr><td colspan=2 align=center bgcolor=#FF8080 style=\"FONT-SIZE:16px\">合計</td>\n";
		print "<td align=right bgcolor=#FF8080 id=\"est2\" style=\"FONT-SIZE:16px\"><nobr></nobr></td></tr>\n";
		print "</table>\n";
	print "</td></tr></table>\n";
	&estimate();
print "<p>\n";
print $fooder;
print "</td></tr></table>\n";
print "</form>\n";
print "<p align=center>

</p>\n";
print "</body>\n";
	print "<SCRIPT>\n";
		print "\tvar Default=$default;\n";
		print "\tvar Fixation=$fixation;\n";
		print "\tcalc();\n";
		print "\tfunction calc(){\n";
			print "\t\tvar SelectItem;\n";
			print "\t\tPrice=Fixation;\n";
			print "\t\tvar estobjid=document.getElementById('est');\n";
			print "\t\tvar estobjid2=document.getElementById('est2');\n";
			foreach (@SELECT) {
				print "\t\tSelectItem=document.shopform.ITEM$_.selectedIndex;\n";
				print "\t\tPrice+=document.shopform.ITEM$_.options[SelectItem].value*1;\n";
				print "\t\tdocument.shopform.itemITEM$_.value=SelectItem;\n";
			}
			print "\t\testobjid.innerHTML=Price;\n";
			print "\t\testobjid2.innerHTML=Price;\n";
			print "\t\tdocument.shopform.total.value=Price;\n";
		print "\t}\n";
		print "\tfunction gosubmit(){\n";
			print "\t\tdocument.shopform.submit();\n";
		print "\t}\n";
	print "</SCRIPT>\n";
print "</html>\n";
exit;
sub estimate {
	print "<table width=$tablewidth border=0 cellspacing=2 cellpadding=0>\n";
		if ($datafile && $QUERY{'selectitem'}) {
			print "<tr><td bgcolor=#a0a0a0>\n";
			print &htmlcalc();
			print "</td></tr>\n";
		}
		if ($changeflag) {
			print "<tr><td bgcolor=#FFA0A0 align=center>お届先変更で送料が変更されました。</td></tr>\n";
		}
		print "<tr><td>\n";
		print "<table width=100% border=0 cellpadding=4 cellspacing=0>\n";
			print "<tr><td colspan=2 bgcolor=#a5b5c6>■お申\し込み</td>\n";
			print "<tr><td align=right>お名前：</td>\n";
			print "<td>";
			if ($QUERY{'conf'}) {
				print "<input type=hidden name=name value=\"$QUERY{'name'}\">\n";
				print $QUERY{'name'};
			} else {
				print "<input type=text name=name style=\"WIDTH:120px;HEIGHT:20px\" value=\"$COOKIE{'name'}\">";
			}
			print "</td></tr>\n";
			print "<tr><td align=right>E-Mail：</td>\n";
			print "<td>";
			if ($QUERY{'conf'}) {
				print "<input type=hidden name=E-Mail value=$QUERY{'E-Mail'}>\n";
				print $QUERY{'E-Mail'};
			} else {
				print "<input type=text name=E-Mail style=\"WIDTH:420px;HEIGHT:20px\" value=\"$COOKIE{'email'}\">";
			}
			print "</td></tr>\n";
			print "<tr><td align=right valign=top>ご住所：</td>\n";
			print "<td>〒";
			if ($QUERY{'conf'}) {
				print "<input type=hidden name=postno value=\"$QUERY{'postno'}\">\n";
				print "<input type=hidden name=division value=\"$QUERY{'division'}\">\n";
				print "<input type=hidden name=city value=\"$QUERY{'city'}\">\n";
				print "<input type=hidden name=addr value=\"$QUERY{'addr'}\">\n";
				print "<input type=hidden name=apart value=\"$QUERY{'apart'}\">\n";
				print "$QUERY{'postno'}<br>\n";
				($a, $b) = split(/:/, $AREA[$QUERY{'division'}-1]);
				print "$a$QUERY{'city'}$QUERY{'addr'}<br>\n";
				print $QUERY{'apart'};
			} else {
				print "<input type=text name=postno style=\"WIDTH:120px;HEIGHT:20px\" value=\"$COOKIE{'post'}\">\n";
				print "<table border=0><tr>\n";
					print "<td><select name=division size=1>\n";
						print "<option value=>都道府県</option>\n";
							$i = 1;
							foreach (@AREA) {
								($key, $value) = split(/:/, $_);
								if ($i == $QUERY{'division'}) { $selected = ' selected'; } else { $selected = ''; }
								print "<option$selected value=$i>$key</option>\n";
								$i++;
							}
						print "</select></td>\n";
						print "<td>市区町村</td><td><input type=text name=city style=\"WIDTH:120px;HEIGHT:20px\" value=\"$COOKIE{'city'}\"></td>\n";
						print "<td>番地</td><td><input type=text name=addr style=\"WIDTH:120px;HEIGHT:20px\" value=\"$COOKIE{'addr'}\"></td></tr>\n";
						print "<tr><td colspan=5><input type=text name=apart style=\"WIDTH:420px;HEIGHT:20px\" value=\"$COOKIE{'apart'}\"><br>\n";
						print "※アパート、マンション名、部屋番号まで詳しくお書きください。</td>\n";
				print "</tr></table>\n";
			}
			print "</td></tr>\n";
			print "<tr><td align=right>連絡先：</td>\n";
			print "<td>";
			if ($QUERY{'conf'}) {
				$QUERY{'tel'} = kaconv($QUERY{'tel'});
				$QUERY{'fax'} = kaconv($QUERY{'fax'});
				print "<input type=hidden name=tel value=\"$QUERY{'tel'}\">\n";
				print "<input type=hidden name=fax value=\"$QUERY{'fax'}\">\n";
				print "TEL:$QUERY{'tel'}";
				print "\　\FAX:$QUERY{'fax'}";
			} else {
				print "TEL:<input type=text name=tel style=\"WIDTH:120px;HEIGHT:20px\" value=\"$COOKIE{'tel'}\">";
				print "\　\FAX:<input type=text name=fax style=\"WIDTH:120px;HEIGHT:20px\" value=\"$COOKIE{'fax'}\">";
			}
			print "</td></tr>\n";
			print "<tr><td align=right valign=top>決済方法：</td>\n";
			print "<td>";
			if ($QUERY{'conf'}) {
				print "<input type=hidden name=settle value=\"$QUERY{'settle'}\">\n";
				print $SETTLE[$QUERY{'settle'}];
			} else {
				print "<select size=1 name=settle>\n";
				$i = 0;
				foreach (@SETTLE) {
					print "<option value=$i>$_</option>\n";
					$i++;
				}
				print "</select>\n";
			}
			print "</td></tr>\n";
			if ($QUERY{'conf'}) {
				if ($QUERY{'cop'}) {
					print "<input type=hidden name=cop value=\"$QUERY{'cop'}\">\n";
					print "<tr><td align=right>発送先：</td>\n";
					print "<td>$QUERY{'cop'}</td></tr>\n";
				}
			} else {
				print "<tr><td align=right>発送先：</td>\n";
				print "<td><input type=text name=cop style=\"WIDTH:420px;HEIGHT:20px\"><br>\n";
				print "※発送先を入力した住所以外【式場など】にする場合はご記入ください。代金引換はご利用できません</td></tr>\n";
			}
			if ($QUERY{'conf'}) {
				if ($QUERY{'comment'}) {
					print "<input type=hidden name=comment value=\"$QUERY{'comment'}\">\n";
					$QUERY{'comment'} =~ s/\r/<br>/g;
					print "<tr><td align=right valign=top>コメント：</td>\n";
					print "<td>$QUERY{'comment'}</td></tr>\n";
				}
			} else {
				print "<tr><td align=right valign=top>コメント：</td>\n";
				print "<td><textarea name=comment  style=\"WIDTH:420px;HEIGHT:120px\"></textarea><br>\n";
				print "※配達時間帯指定や、代金引換を局留にする場合、<br>\n";
				print "　その他何かありましたらご記入ください。</td></tr>\n";
			}
		print "</table>\n";
		print "</td></tr>\n";
		if ($QUERY{'conf'}) {
			if ($sendmail) {
				print "<tr><td bgcolor=#e7e7e7>";
					print "<input type=checkbox checked name=checkmail value=1>注文書控えをメールで受信する";
				print "</td></tr>\n";
			}
		} else {
			print "<tr><td bgcolor=#993366>\n";
			print "<table width=100% border=0 cellspacing=1><tr><td bgcolor=#FFFFFF>$message</td></tr></table>\n";
			print "</td></tr>\n";
		}
	print "</table>\n";
	print "<p>";
	print "<input type=button value=戻る onclick=\"history.back();\">\n";
	if ($QUERY{'conf'}) {
		print "<input type=button value=\"注文する\" onclick=\"sendsubmit()\">\n";
	} else {
		print "<input type=button value=注文する onclick=\"gosubmit()\">\n";
		print "<input type=reset value=リセット>\n";
	}
	print "</p>\n";
}