open (FILE, "$datafile") || &fatal_error("Unable to open $datafile");
&lock(FILE);
@messages = <FILE>;
&unlock(FILE);
close(FILE);
for ($a = 0; $a < @messages; $a++) {
($mnum[$a],$maddress[$a],$mimage[$a],$mneighborhood[$a],$mmodelname[$a],$mmodelelevation[$a],$mbedrooms[$a],$mbathrooms[$a],$mtypeoffoundation[$a],$mschooldistrict[$a],$mprice[$a],$mpaymentsfrom[$a],$mreadydate[$a],$mphonenumber[$a],$memail[$a],$chop) = split(/``/,$messages[$a]);
}
open (FILE, "$template") || &fatal_error("Unable to open $template");
&lock(FILE);
@template = <FILE>;
&unlock(FILE);
close(FILE);
for ($a = 0; $a < @template; $a++) {
    $_ = $template[$a];
    if (/<!--messages-->/) {
    
        print "<table width=400 border=0 cellpadding=3 cellspacing=3>\n";
        print "<tr class=\"typewhite\" bgcolor=\"#000000\">\n";
        print "<td><b>Address</b></td>\n";
        print "<td><b>Model Name</b></td>\n";
        print "<td><b>Price</b></td>\n";
        print "<td><b>Availability</b></td>\n";
        print "</tr>\n";
        
        foreach $mneighborhood (@mneighborhood) {
            
            print "<tr class=\"type\" bgcolor=\"#EEEFDD\"><td colspan=4><a href=\"../cristohomes/hoods/$mneighborhood.shtml\" class=\"type\"><b>$mneighborhood</b></a></td</tr>";
            
            for ($b = 0; $b < @messages; $b++) {
            
                print "<tr class=\"type\">\n";
                print "<td><a href=\"$indexcgi$queryswitch";
                print "action=display\&num=$mnum[$b]\" class=\"red\">$maddress[$b]</a></td>\n";
                print "<td><a href=\"../cristohomes/homes/$mmodelname[$b].shtml\" class=\"red\">\"The $mmodelname[$b]\"</a></td>\n";
                print "<td>$mprice[$b]</td>\n";
                print "<td>$mreadydate[$b]</td>\n";
                print "</tr>\n";
                
            }
        
        }
        
        print "</table>\n";
    
    }
}