#!/usr/bin/perl print "Content-type: text/html\n\n"; require "config.idx"; print qq~ The ORR Home Selling Team >> RE/MAX Real Estate Groups >> Showcase Properties ~; &header; print qq~ The ORR Home Selling Team Showcase Properties

Residential Properties For Sale!

~; $ml_name = "muncieml_db1"; $ml_username = "muncieml_db1"; $ml_pass = "\@rockdb1"; $ml_host = "localhost"; use DBI; my $dsn = "DBI:mysql:database=$ml_name;host=$ml_host"; my $dbh = DBI->connect($dsn, $ml_username, $ml_pass, {RaiseError => 1}) || die $DBI::errstr; my $pasth = $dbh->prepare("select MLSNUM,Price,AddressNumber,AddressDirection,AddressStreet,City,Zip,Bedrooms,FullBaths,HalfBaths,TotalSqFt,VirtualTourURL FROM listings_res3 WHERE AgentID = '122' OR AgentID = '600' order by Price desc"); $pasth->execute; while (($mlsnum,$price,$addressnumber,$addressdirection,$addressstreet,$city,$zip,$bedrooms,$fullbaths,$halfbaths,$sqft,$VirtualTourURL) = $pasth->fetchrow_array()) { $addressstreet =~ s/County Road/CR/gi; $price = &commas($price); $showpicture = &image_format("thumbnail","$mlsnum"); if ($VirtualTourURL =~ /http|www|visualtour/i) { $toururl =qq~
Click to View Virtual Tour
~; } print qq~
$addressnumber $addressdirection $addressstreet, $city
$toururl
\$$price
Residential
Sq Ft: $sqft
Bedrooms: $bedrooms
Full Baths: $fullbaths
Half Baths: $halfbaths
View Property Details
~; $found_residential = "yes"; $toururl = ""; } unless ($found_residential eq "yes") { print qq~

No Residential Found

~; } print qq~

Investment For Sale!

~; my $invasth = $dbh->prepare("select MLSNUM,Price,AddressNumber,AddressDirection,AddressStreet,Address2,City,State,Zip,AgentID,TotalSqFt,Acres,EstimatedAnnualTax FROM listings_inv3 WHERE AgentID = '122' OR AgentID = '600' order by Price desc"); $invasth->execute; while (($mlsnum,$price,$addressnumber,$addressdirection,$addressstreet,$address2,$city,$state,$zip,$agentid,$sqft,$acres,$annualtax) = $invasth->fetchrow_array()) { $addressstreet =~ s/County Road/CR/gi; $price = &commas($price); $showpicture = &image_format("thumbnail","$mlsnum"); if ($VirtualTourURL =~ /http|www|visualtour/i) { $toururl =qq~
Click to View Virtual Tour
~; } print qq~
$addressnumber $addressdirection $addressstreet, $city
$toururl
\$$price
Commercial
SQFT: $sqft
Tax: \$$annualtax
Acres: $acres
View Property Details
~; $found_investment = "yes"; } unless ($found_investment eq "yes") { print qq~

No Investments Found

~; } print qq~

Lots & Land For Sale!

~; my $uasth = $dbh->prepare("select MLSNUM,Price,AddressNumber,AddressDirection,AddressStreet,City,Zip,AgentID,Acres,Water,Sewer,Electric FROM listings_lan3 WHERE AgentID = '122' OR AgentID = '600' order by Price desc"); $uasth->execute; while (($mlsnum,$price,$addressnumber,$addressdirection,$addressstreet,$city,$zip,$agentid,$acres,$water,$sewer,$electric) = $uasth->fetchrow_array()) { $addressstreet =~ s/County Road/CR/gi; $price = &commas($price); $showpicture = &image_format("thumbnail","$mlsnum"); if ($VirtualTourURL =~ /http|www|visualtour/i) { $toururl =qq~
Click to View Virtual Tour
~; } if ($water eq "") { $water = "N/A"; } if ($sewer eq "") { $sewer = "N/A"; } if ($electric eq "") { $electric = "N/A"; } print qq~
$addressnumber $addressdirection $addressstreet, $city
$toururl
\$$price
Lots & Land
$acres Acres
Water: $water
Sewer: $sewer
Electric: $electric
View Property Details
~; $found_land = "yes"; } unless ($found_land eq "yes") { print qq~

No Lots & Land Found

~; } print qq~

Commercial For Sale!

~; my $uasth = $dbh->prepare("select MLSNUM,Price,AddressNumber,AddressDirection,AddressStreet,Address2,City,State,Zip,AgentID,TotalSqFt,Stories,Acres FROM listings_com3 WHERE AgentID = '122' OR AgentID = '600' order by Price desc"); $uasth->execute; while (($mlsnum,$price,$addressnumber,$addressdirection,$addressstreet,$address2,$city,$state,$zip,$agentid,$sqft,$stories,$acres) = $uasth->fetchrow_array()) { $addressstreet =~ s/County Road/CR/gi; $price = &commas($price); $showpicture = &image_format("thumbnail","$mlsnum"); if ($VirtualTourURL =~ /http|www|visualtour/i) { $toururl =qq~
Click to View Virtual Tour
~; } print qq~
$addressnumber $addressdirection $addressstreet, $city
$toururl
\$$price
Commercial
SQFT: $sqft
Stories: $stories
Acres: $acres
View Property Details
~; $found_commercial = "yes"; } unless ($found_commercial eq "yes") { print qq~

No Commercial Found

~; } $dbh->disconnect; print qq~
~; &footer; sub commas { local($_)=@_; 1 while s/(.*\d)(\d\d\d)/$1,$2/; $_; }