Molden Real Estate

<& ./temps/photo_gallery.html, RS => $RS, dbid => '741', upload => $upload &>

<% $prop[1] %>

Price: $<% $priceis %>
City: <% $prop[34] %>
State: <% $prop[35] %>
<%perl> if($prop[32] eq 'FOR RENT') { Utilities Included: <% $utils %>
<%perl> } Floor:<% $prop[36] %>
Address: <% $prop[2] %>
Type: <% $prop[20] %>
Style: <% $prop[17] %>
Bedrooms: <% $prop[21] %>
Baths: <% $prop[22] %>
Size: <% $prop[18] %> Sq. Ft.

DETAILS
<% $prop[7] %>	HIGHLIGHTS <%perl> my @highlights = split(/\n/,$prop[6]); foreach my $j (@highlights) { if($j =~ /[A-Za-z0-9]/) { print qq~ $j ~; } }

Interested in buying or selling a home? We can HELP! Call for details! 540.662.4116

COMING SOON!
NEW 55 PLUS COMMUNITY - ALL UTILITIES INCLUDED, HANDICAP ACCESSIBLE, SECURE COMMUNITY. CLICK HERE TO GET MORE INFORMATION OR TO BE ADDED TO OUR WAITING LIST!

<%init> use CGI; my $cgi= new CGI; use RSDB::DB; my $db= new RSDB::DB($cgi); my @retval; my @retval2; my $CMS = '16'; my $RS = '16'; my $SiteNM = "Molden Real Estate"; my @prop1 = $db->select_pipe("select * from props where dbid = '741' AND realestateid = '$RS'"); my @prop = split(/\|/,$prop1[0]); my @agent1 = $db->select_pipe("select * from agents where id = '$prop[28]' and realestateid = '$RS'"); my @agent = split(/\|/,$agent1[0]); my $jREF2 = $db->Establish("realestate","id"); my %rsf = %$jREF2; my $upload = "http://$rsf{$RS}{siteaddress}//UserFiles/Image"; my $utils = $prop[37] == 1 ? "YES" : "NO"; my $n = $prop[9]; my $d = ""; my $delimiter = ','; # replace comma if desired ($n,$d) = split /\./,$n; #print $n . "--"; my @a = (); while($n =~ /\d\d\d\d/) { $n =~ s/(\d\d\d)$//; unshift @a,$1; } unshift @a,$n; $n = join $delimiter,@a; $n = "$n" if $d =~ /\d/; my $priceis = $n;