#!/usr/bin/perl
# Get the environment variables passe to the script
use DBI;
use CGI qw/:standard :html3 :netscape/;
require "./AR_Common.pl";
########### Process ANy Form Data
$val="a";
@FormValues = split(/&/, $ENV{QUERY_STRING});
$FV1 = @FormValues;
for ($x=0;$x<=$FV1-1;$x++) {
@Attributes = split(/=/,$FormValues[$x]);
if ($Attributes[0] eq "val") {
$val=$Attributes[1];
$val =~ tr/+/ /;
$val =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
}
}
printheader();
google_analytics();
under_image_gra(175);
print "<DIV style='position: relative; top: -301px; margin: 0 auto; width: 1024px; height: 1000px; border-style: solid; border-width: 0px; float: middle;'>\n";
place_heading();
make_menu();
bread_crumb_box();
glossary_page();
side_bar();
print "</DIV>\n";
footer_info('0px','850px','234px','570px','0px 0px 0px 0px','rgb(0,28,85)','MS1_bak.jpg','ROBIN BROOKS');
printending();
exit(0);
##############################################################################
################### GENERIC PAGE SETUP HEADING AND METADATA ###################
##############################################################################
sub printheader() {
$description = "AgentRobin Tri-valley Real Estate";
print "Content-type: text/html\n\n";
print "<!DOCTYPE html '-//W3C//DTD XHTML 1.0 Strict//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'>";
print "<HTML xmlns='http://www.w3.org/1999/xhtml'>\n";
print "<HEAD>\n";
print "<TITLE>$title11</title>\n";
print "<link type='text/css' href='$baseurl/Default_files/AgentRobin_CSS.CSS' rel='stylesheet'>\n";
print "<meta name=\"description\" content=\"$title\">\n";
print "<meta name=\"keywords\" content=\"$NArea, CA, Housing, Real Estate, Homes, Update, Status, Market\">\n";
#### HORIZONTAL MENU FUNCTIONS
# print "<link rel='stylesheet' type='text/css' href='http://www.agentrobin.com/CSS/hor_menu.css'/>\n";
print "<link rel='stylesheet' type='text/css' href='$baseurl/CSS/AR_Menu.css'/>\n";
print "<!--[START-LJ]--><script type='text/javascript' src='$baseurl/scripts/AR_Menu.js'></script><!--[END-LJ]-->\n";
####
print "</head>\n";
print "<body>\n";
}
################### GENERIC PAGE SETUP ENDING ###################
sub printending {
print "</body>\n";
print "</html>\n";
}
sub glossary_page() {
$ft = "Segoe UI Light";
$fts = "14pt";
if (length($val) == 1) {
$SQL ="SELECT * FROM `Glossary` WHERE (term LIKE '$val%') ORDER BY term";
} else {
$SQL ="SELECT * FROM `Glossary` WHERE (term LIKE '%$val%') ORDER BY term";
}
$dbh = DBI->connect('dbi:mysql:dreamhome_01_:dobrooks.ipowermysql.com:3306','agentrobin_01_','J0shKr1s') or die("Couldn't connect");
$sth = $dbh->prepare($SQL);
$sth->execute;
$rows = $sth->rows();
print "<DIV style='position: absolute; top: 180px; left: 0px; margin: 0 auto; width: 700px; height: 1000px; border-style: solid; border-width: 0px 0px 0px 0px; float: top;'>\n";
print "<SPAN style='font-family: Segoe UI Light; font-size: 20pt;'>REAL ESTATE TERMS GLOSSARY</SPAN>\n";
print "</DIV>\n";
print "<DIV style='position: absolute; top: 230px; left: 0px;margin: 0 auto; width: 700px; height: 40px; border-style: solid; border-width: 0px 0px 1px 0px; float: top;'>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=a'>A</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=b'>B</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=c'>C</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=d'>D</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=e'>E</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=f'>F</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=g'>G</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=h'>H</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=i'>I</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=j'>J</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=k'>K</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=l'>L</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=m'>M</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=n'>N</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=o'>O</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=p'>P</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=q'>Q</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=r'>R</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=s'>S</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=t'>T</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=u'>U</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=v'>V</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=w'>W</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=x'>X</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=y'>Y</A></SPAN>\n";
print "<SPAN style='font-family: $ft; font-size: $fts;'><A HREF='$baseurl/display_glossary.pl?val=z'>Z</A></SPAN>\n";
print "</DIV>\n";
print "<DIV style='position: absolute; top: 300px; left: 0px; margin: 0 auto; width: 800px; height: 1000px; border-style: solid; border-width: 0px; float: top;'>\n";
print "<TABLE style='valign: top; vertical-align: top;'>\n";
for ($i = 0; $i < $rows; $i++) {
@data = $sth->fetchrow_array();
print "<TR valign=top><TD style='width: 200px;'><SPAN style='font-weight: bold;'>$data[1]</SPAN></TD><TD style='width: 500px;'>$data[2]</TD></TR>\n";
print "<TR><TD style='width: 200px;'><IMG SRC='$baseurl/Images/space1.png'></TD><TD style='width: 500px;'></TD></TR>\n";
}
print "</TABLE>\n";
print "</DIV>\n";
$dbh->disconnect;
}
sub side_bar() {
print "<DIV style='position: absolute; top: 180px; margin: 0 auto; left: 750px; width: 220px; height: 350px; border-style: solid; border-width: 0px; float: top; background: rgb(196,169,126); -moz-border-radius: 15px; border-radius: 15px; box-shadow: 10px 10px 5px #888;'>\n";
print "<DIV style='position: absolute; top: 15px; margin: 0 auto; left: 0px; width: 220px; height: 100px; border-style: solid; border-width: 0px; float: top; background: rgb(196,169,126);'>\n";
print "<IMG SRC='http://www.danvillelive.com/Img/robin_brooks1.jpg'>\n";
print "</DIV>\n";
print "<DIV style='position: absolute; top: 220px; margin: 0 auto; left: 0px; width: 220px; height: 100px; border-style: solid; border-width: 0px; float: top; background: rgb(196,169,126);'>\n";
print "<IMG SRC='http://www.danvillelive.com/Img/remax_footer.jpg'>\n";
print "</DIV>\n";
print "<DIV style='position: absolute; top: 280px; margin: 0 auto; left: 0px; width: 220px; height: 30px; border-style: solid; border-width: 0px; float: middle; background: rgb(196,169,126);'>\n";
print "<SPAN style='font-family: Helvetica; font-size: 10pt;'>Certified Negotiation Expert</SPAN>\n";
print "</DIV>\n";
print "<DIV style='position: absolute; top: 300px; margin: 0 auto; left: 0px; width: 220px; height: 30px; border-style: solid; border-width: 0px; float: middle; background: rgb(196,169,126);'>\n";
print "<SPAN style='font-family: Helvetica; font-size: 10pt;'>(925) 212-2446</SPAN>\n";
print "</DIV>\n";
print "<DIV style='position: absolute; top: 320px; margin: 0 auto; left: 10px; width: 200px; height: 30px; border-style: solid; border-width: 0px; float: middle; background: rgb(196,169,126);'>\n";
print "<SPAN style='font-family: Helvetica; font-size: 10pt;'><A HREF='mailto:robin\@agentrobin.com'>Robin\@AgentRobin.com</A></SPAN>\n";
print "</DIV>\n";
print "</DIV>\n";
}
sub bread_crumb_box() {
$font = "font-family: Segoe UI; font-weight: 200; font-size: 10pt; color: brown;";
print " <DIV style='position: absolute; left: 10px; top: 145px; height: 15px; width: 1100px; border-style: inset; border-width: 0px; text-align: left;'>\n";
print " <SPAN style='$font'><A style='color: white;' HREF='http://www.danvillelive.com/home.pl'>Home</A></SPAN>\n";
print " <SPAN style='$font; color: white;'>>> Tools</SPAN>\n";
print " <SPAN style='$font'><A style='color: white;' HREF='http://www.danvillelive.com/display_glossary.pl?'>>> Real Estate Glossary</A></SPAN>\n";
print " </DIV>\n";
}