\n";
print "\n";
#2010年2月27日追加(３月〜５月限定価格の為)開始
#個人向け宿泊プラン３月〜５月限定価格(elements16) 食事(elements17)
print "\n";
@datalist = ();
if(open(DATA,"<$datafile"))
{
while () {chop; push(@datalist, $_);}
close(DATA);
$dallinenum = $#datalist+1;
foreach $eachdata (reverse @datalist)
{
($dyear,$dmon,$dday,
$dhour,$dmin,$dsec,
$dhour_s,$dmin_s,$dhour_e,$dmin_e,$dplace,
$dname,$demail,$dtitle,$dcontent,
$dr_1,$dr_2,$dr_3,$dr_4,$dr_5,$dr_6,$dr_7,
$db_1,$db_2,$db_3,$db_4,$db_5,$db_6,$db_7,
$dc_1,$dc_2,$dc_3,$dc_4,$dc_5,$dc_6,$dc_7,
$dc_1b,$dc_2b,$dc_3b,$dc_4b,$dc_5b,$dc_6b,$dc_7b,
$dc_1d,$dc_2d,$dc_3d,$dc_4d,$dc_5d,$dc_6d,$dc_7d,
$drhost,$dpasswd) =
split(/\t/,$eachdata);
print "
";
$dallinenum--;
}
}
else
{
print "\n";
}
# $query_year = $inyear;
$query_mon = $QUERY{'inmon'};
$query_day = $QUERY{'inday'};
&repeat_sc;
if ($yearly_dat2 eq "")
{
$hol = 0;
}
else
{
$hol = 1;
}
if ($youbi_tmp eq 6)
{
$hantei = 1;
}
else
{
if ($hol eq 1)
{
$hantei = 1;
}
else
{
if ($youbi_tmp eq 5)
{
$hantei = 2;
}
else
{
$hantei = 3;
}
}
}
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "| お願い | \n";
print "| ◆ | 入力の際、メールアドレス又は連絡先に不具合が有った場合は、確認の連絡が取れませんので、正確にご入力をお願いいたします。連絡が取れない場合は「\予\約成立」と成りませんので、ご了承ください。 | \n";
print "| ◆ | ご夕食プランご利用のお客様は、ご夕食希望時間をご指定下さい。ご希望のお時間が、ご用意出来ない場合には、メール又はお電話にてご連絡をさせていただきます。 | \n";
print "| ◆ | 担当者からの\予\約\受理の連絡をさせていただいた時点で\予\約\成立といたします。
お\申\し込みから「24時間以上」連絡が無い場合には通信障害が考えられますので、
お電話での確認をお願いいたします。 | \n";
print " \n";
print "
\n";
print "☆このホームページを最初に見つけられたのはどのような媒体でしたか？
もし、よろしければ、参考までにお答え下さい。\n";
print "\n";
print "
\n";
print "\n";
print "\n";
print "\n";
print "
\n";
print " |