";
}
my $qasth = $dbh->prepare("select Price,AddressNumber,AddressDirection,AddressStreet,City,Zip,MLSNUM from listings_com3 where AgentID = '$mlsid' ORDER BY Price DESC");
$qasth->execute;
while (($Price,$AddressNumber,$AddressDirection,$AddressStreet,$City,$Zip,$MLSNUM) = $qasth->fetchrow_array()) {
$Price = &commas($Price);
$totallistings++;
$listingstuff .= "
";
}
my $rasth = $dbh->prepare("select MLSNUM,Price,AddressNumber,AddressDirection,AddressStreet,City,Zip from listings_inv3 where AgentID = '$mlsid' ORDER BY Price DESC");
$rasth->execute;
while (($MLSNUM,$Price,$AddressNumber,$AddressDirection,$AddressStreet,$City,$Zip) = $rasth->fetchrow_array()) {
$Price = &commas($Price);
$totallistings++;
$listingstuff .= "
";
}
my $sasth = $dbh->prepare("select MLSNUM,Price,AddressNumber,AddressDirection,AddressStreet,City,Zip from listings_lan3 where AgentID = '$mlsid' ORDER BY Price DESC");
$sasth->execute;
while (($MLSNUM,$Price,$AddressNumber,$AddressDirection,$AddressStreet,$City,$Zip) = $sasth->fetchrow_array()) {
$Price = &commas($Price);
$totallistings++;
$listingstuff .= "
#~;
#}
#}
############# END HIDDEN SALES ##################
print qq~
$profile
~;
print qq~
I currently have $totallistings active listings
$listingstuff
~;
&footer;
}
$dbh->disconnect;
}
sub main {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $iasth = $dbh->prepare("select agentid,mlsid,firstname,lastname,image,title from agents where display = '1' order by lastname asc");
$iasth->execute;
print qq~
Eagle Real Estate >> Meet Our Agents
~;
&header;
print qq~
~;
$trcount = "1";
$totalperrow = "2"; # Number of agents per row
while (($agentid,$mlsid,$firstname,$lastname,$image,$title) = $iasth->fetchrow_array()) {
if (-e "/home/muncieml/public_html/images/agentpics/$image") {
$showpicture = "images/agentpics/$image";
}
else {
$showpicture = "images/agentpics/nophoto\.gif";
}
print qq~
