<% #begin insert
my $inm = $Request->QueryString("inm");
my $ind = $Request->QueryString("ind");
my $iny = $Request->QueryString("iny");
my $outm = $Request->QueryString("outm");
my $outd = $Request->QueryString("outd");
my $outy = $Request->QueryString("outy");
# construct year list
my @years;
my $s_year = 2002;
my $s_limit = $s_year+10;
while ($s_year <= $s_limit) {
push @years, $s_year; $s_year++;
}
# construct day list
my @days;
for (1..31) {
push @days, $_;
}
my $inmonth_html = &select_options_mon($inm);
my $inday_html = &select_options2($ind, @days);
my $inyear_html = &select_options2($iny, @years);
my $outmonth_html = &select_options_mon($outm);
my $outday_html = &select_options2($outd, @days);
my $outyear_html = &select_options2($outy, @years);
sub select_options_mon {
my ($selected) = shift;
# construct month list
my @months = ( "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" );
my $html;
my $mon_ctr=0;
while (@months) {
$mon_ctr++;
my $e_selected;
my $e_list = shift @months;
if ($mon_ctr eq $selected) {
$e_selected = "selected";
} else {
undef $e_selected;
}
$html .= qq{};
}
$html;
}
sub select_options2 {
my ($selected, @list) = @_;
my $html;
while (@list) {
my $e_selected;
my $e_list = shift @list;
if ($e_list eq $selected) {
$e_selected = "selected";
} else {
undef $e_selected;
}
$html .= qq{};
}
$html;
} #end insert %>
MAKATI
PRIME TOWER SUITES RESERVATION FORM
Please be advised that inquiries and reservations sent on Philippine
Holidays will not be attended in real time.Also,
kindly check the Hotel's Terms
and Conditions
before filling-out this form.