Devil Killer Is Here MiNi Shell
MiNi SheLL

Current Path : /hermes/sb_web/b2432/agentrobin.com/
Linux boscustweb5005.eigbox.net 5.4.91 #1 SMP Wed Jan 20 18:10:28 EST 2021 x86_64
Current File : /hermes/sb_web/b2432/agentrobin.com/AR.pl
#!/perl64/bin

# Get the environment variables passe to the script

use CGI qw/:standard :html3 :netscape/;
use Win32::ODBC;
use Env;
use Net::SMTP;
use Net::Config;



$RHost = $ENV{$REMOTE_HOST};
$RAddr = $ENV{$REMOTE_ADDR};
$Host = $ENV{$HTTP_HOST};
@values = split(/:/, $ENV{QUERY_STRING});


#### Initialize to arrays for the testimonials

@varray0=("img1.png","img2.png","img3.png","img4.png","img5.png","img6.png");
@varray1=("img1a.png","img2a.png","img3a.png","img4a.png","img5a.png","img6a.png");
@varray2=("Moving","Investor","Relocating","First Home","Investor","First Home");
@varray3=("Danville","Danville","Walnut Creek","Danville","San Ramon","Alamo");

@parray0=("pimg1.png","pimg2.png","pimg3.png","pimg4.png","pimg5.png");

@parray2=("DANVILLE","DANVILLE","DANVILLE","WALNUT CREEK","DANVILLE");
@parray3=("\$355,000","\$448,000","\$647,000","\$409,000","\$420,000");

$sub1=@values[0];
$sub1 =~ tr/+/ /;
$sub1 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$sub2=@values[1];
$sub2 =~ tr/+/ /;
$sub2 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$sub3 = @values[2];
$sub3 =~ tr/+/ /;
$sub3 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;


@FormValues = split(/&/, $ENV{QUERY_STRING});
$FV1 = @FormValues;

$Page="1";
$PSub = "1";
$s_community = "Danville";
$s_minbed = "Any";
$s_maxbed = "Any";
$s_minbath = "Any";
$s_maxbath = "Any";
$s_minprice = "Any";
$s_maxprice = "Any";
$s_utype = "Any";
$s_ustatus = "Any";
$s_stype = "Any";
$s_mtype = "Detail";

$ELength = length($ENV{QUERY_STRING});

if ($ENV{QUERY_STRING} =~ "SortBy") { $EString = substr($ENV{QUERY_STRING},0,$ELength-9); $ENV{QUERY_STRING} = $EString;}

$sort_string1="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=1";
$sort_string2="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=2";
$sort_string3="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=3";
$sort_string4="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=4";
$sort_string5="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=5";
$sort_string6="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=6";
$sort_string7="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=7";


for ($x=0;$x<=$FV1-1;$x++) {

	@Attributes = split(/=/,$FormValues[$x]);
	if ($Attributes[0] eq "Page") { 
		$Page=$Attributes[1];
	}
	if ($Page==2) {
		if ($Attributes[0] eq "Community") { $s_community=$Attributes[1]; $s_community =~ tr/+/ /; $s_community =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;}
		if ($Attributes[0] eq "MinBed") { $s_minbed=$Attributes[1]; $s_minbed =~ tr/+/ /; $s_minbed =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;}
		if ($Attributes[0] eq "MaxBed") { $s_maxbed=$Attributes[1]; $s_maxbed =~ tr/+/ /; $s_maxbed =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;}
		if ($Attributes[0] eq "MinBath") { $s_minbath=$Attributes[1]; $s_minbath =~ tr/+/ /; $s_minbath =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;}
		if ($Attributes[0] eq "MaxBath") { $s_maxbath=$Attributes[1]; $s_maxbath =~ tr/+/ /; $s_maxbath =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;}

		if ($Attributes[0] eq "MinPrice") { $s_minprice=$Attributes[1]; $s_minprice =~ tr/+/ /; $s_minprice =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;}
		if ($Attributes[0] eq "MaxPrice") { $s_maxprice=$Attributes[1]; $s_maxprice =~ tr/+/ /; $s_maxprice =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;}
		if ($Attributes[0] eq "UnitType") { $s_utype=$Attributes[1]; $s_utype =~ tr/+/ /; $s_utype =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;}
		if ($Attributes[0] eq "UnitStatus") { $s_ustatus=$Attributes[1]; $s_ustatus =~ tr/+/ /; $s_ustatus =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;}
		if ($Attributes[0] eq "SaleType") { $s_stype=$Attributes[1]; $s_stype =~ tr/+/ /; $s_stype =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;}

		if ($Attributes[0] eq "SortBy") { $s_ssort=$Attributes[1]; $s_stype =~ tr/+/ /; $s_stype =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;}
		if ($Attributes[0] eq "MapType") { $s_mtype=$Attributes[1]; }
	}
	if ($Attributes[0] eq "Sub") { $PSub=$Attributes[1]; $PSub =~ tr/+/ /; $PSub =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;}
}



#### Initialize the Search Arrays

@community = ('All','Danville','Diablo','San Ramon','Blackhawk','Alamo','Dublin','Pleasanton','Walnut Creek','Rossmoor','Lafayette');
@numbers = ('Any','1','2','3','4','5','6+');
@utype = ('Single Family','Condo/Townhouse','Rental');
@ustatus = ('Available','New','All Changes');
@stype = ('Regular','Short Sale','Foreclosure');



printheader();

place_heading();
#gen_footer();
printending();
exit(0);






sub buildneighborhoods() {
	$count=0;
	$LeftCol=75;
	$TopLine=85;
	$ZIndex = 307;
	print "<DIV style=\"position: absolute;top: 35px;left: 5px;width: 75px;height:15px;z-index: 799; border: 0px black solid;\"><FORM><INPUT TYPE=\"button\" VALUE=\"Back to Communities\" onClick=\"history.go(-1);return true;\"> </FORM></DIV>\n";  
	print "<div align=left style=\"position: absolute;top: 70px;left: 5px;width: 820;height:500px;z-index: 302; border: 1px black solid;\">\n";
	print "<TABLE bgcolor=$BGColor id=\"ntablehead\" WIDTH=820><TR id=\"ntablehead\" bgcolor=Black><TH Width=200>Neighborhood</TH><TH Width=25>For Sale</TH><TH Width=25>Pend</TH><TH Width=25>Lease</TH><TH Width=25>Sold</TH><TH Width=150>Elem School</TH><TH Width=150>Middle School</TH><TH Width=150>High School</TH></TR>\n";


	$tcount=0;
	while ($db->FetchRow()){			
		@data=$db->Data();
		
		$CFS=0;
		$CFR=0;
		$CPN=0;
		$CSD=0;
		$TWN1 = ucfirst($data[1]);
		$NBR = substr(uc($data[2]), 0, 6);

### Fork out and get the MLS Data ####	

		$nstats=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s");

		$SQLN1 = "SELECT * FROM PropMLS WHERE Neighborhood like '$NBR\%' AND CITY='$TWN1'";
		$ncheck=$nstats->Sql($SQLN1);
		$CH=0;	
		while ($nstats->FetchRow()){	
			@ndata=$nstats->Data();	
			$eval = substr($ndata[9],0,4);			
			$evl2 = substr($ndata[9],0,4);			
			$evl3 = substr($ndata[9],0,4);			
			$evl4 = substr($ndata[9],0,4);	
		
			if (uc($eval) =~ "ACTV") { $CFS=$CFS+1; }
			if (uc($evl2) =~ "PENDIN") { $CPN=$CPN+1; }
			if (uc($evl3) =~ "LEASE") { $CFR=$CFR+1; }
			if (uc($evl4) =~ "SOLD") { $CSD=$CSD+1; }

			$CH=$CH+1;
		}
		$nstats->Close();
		if ($tcount == 0) {
			print "<TR id=\"ntabledata\" bgcolor=\"#D2BC95\"><TD><A HREF=\"http://www.mlsfinder.com/ca_ccar/stephennagy/index.cfm?action=newsearch&searchtype=subdivision&subdivision_string=greenbrook\">$data[2]</A></TD><TD><A HREF=\"\main_beta.pl?Property:$Town:$data[2]\">$CFS</A></TD><TD>$CPN</TD><TD>$CFR</TD><TD>$CSD</TD><TD><A TARGET=\"Schools\" HREF=\"$data[11]\">$data[10]</A></TD><TD><A TARGET=\"Schools\" HREF=\"$data[15]\">$data[14]</A></TD><TD>$data[18]</TD></TR>\n";
			$tcount=1;
		} else {
			print "<TR id=\"ntabledata\" bgcolor=\"#D8C6A7\"><TD><A HREF=\"http://www.mlsfinder.com/ca_ccar/stephennagy/index.cfm?action=newsearch&searchtype=subdivision&subdivision_string=greenbrook\">$data[2]</A></TD><TD><A HREF=\"\main_beta.pl?Property:$Town:$data[2]\">$CFS</A></TD><TD>$CPN</TD><TD>$CFR</TD><TD>$CSD</TD><TD><A TARGET=\"Schools\" HREF=\"$data[11]\">$data[10]</A></TD><TD><A TARGET=\"Schools\" HREF=\"$data[15]\">$data[14]</A></TD><TD>$data[18]</TD></TR>\n";
			$tcount=0;
		}

	}
	print "</TABLE>\n";
	print "</div>\n";
}




sub printheader {


	$title = "AgentRobin.com - Real Estate Source for Danville, San Ramon, Alamo, Pleasanton, Dublin and Walnut Creek";
	$description = "AgentRobin Tri-valley Real Estate";



	print "<!DOCTYPE html '-//W3C//DTD XHTML 1.0 Strict//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'>";
	print "Content-type: content='text/html; charset=utf-8'\n\n";
	print "<HTML xmlns='http://www.w3.org/1999/xhtml'>\n";
	print "<HEAD>\n";



	$DefaultMetaDesciption= "Homes for Sale in Danville, San Ramon, Blackhawk, Alamo, Walnut Creek, Pleasanton and Dublin, CA";
	$title = "San Ramon Valley Real Estate and Homes Sales"; 



	print "<TITLE>$title</title>\n";

#	print "<script src=\"http://maps.google.com/maps?file=api&amp;v=2&amp;sensor=false&amp;key=ABQIAAAASkFux1vu2CL12cfQRPzhaxTQDHf3fRnwNjZr31Uuu6mHpv_Z1xQcDuycguTOaEUUoU-7Z6FqKryXxQ\" type=\"text/javascript\"></script>\n";

	print "<meta name=\"description\" content=\"$DefaultMetaDescription\">\n";
	print "<meta name=\"keywords\" content=\"$DefaultMetaKeywords $didit11\">\n";

	print "<meta http-equiv='X-UA-Compatible' content='IE=edge' />\n";
	print "<meta http-equiv='Content-Type' content='text/html; charset=utf-8' />\n";


#### HORIZONTAL MENU FUNCTIONS

	print "<link type='text/css' href='Default_files/ARMain.css' rel='stylesheet'>\n";
	print "<link rel='Stylesheet' type='text/css' href='Default_files/smoothDivScroll.css' />\n";

#### INITALIZE BING MAP FUNCTIONS
 	print "<script type='text/javascript' src='http://ecn.dev.virtualearth.net/mapcontrol/mapcontrol.ashx?v=7.0'></script>\n";

	print "<script src='https://ajax.googleapis.com/ajax/libs/jquery/1.5.2/jquery.min.js' type='text/javascript'></script>\n";
	print "<script src='js/jquery.ui.widget.js' type='text/javascript'></script>\n";
	print "<script src='js/jquery.smoothDivScroll-1.1-min.js' type='text/javascript'></script>\n";

	print "<script type='text/javascript'>\n";
	print "	// Initialize the plugin with no custom options\n";
	print "	\$(window).load(function() {\n";
	print "		\$('div#makeMeScrollable').smoothDivScroll({\n";
	print "			autoScroll: 'onstart' , \n";
	print "			autoScrollDirection: 'backandforth', \n";
	print "			autoScrollStep: 1, \n";
	print "			autoScrollInterval: 5,	\n";
	print "			startAtElementId: 'startAtMe', \n";
	print "			scrollInterval: 2, \n";
	print "			visibleHotSpots: 'always'\n";
	print "             });\n";
	print "	});\n";
	print "</script>\n";

        print "<script type='text/javascript'>\n";

	print "function goBack()\n";
  	print "	{\n";
	print "	 window.history.back()\n";
  	print " }\n";


        print "var map = null\;\n";

            
        print "function GetMap2()\n";
        print "{\n";
        print "      map = new VEMap('myMap');\n";
        print "      map.LoadMap();\n";
        print "}\n";

        print "function getMap()\n";
        print "{\n";

	print "    var forsale = new Microsoft.Maps.EntityCollection();\n";
	print "    var location1 = new Microsoft.Maps.Location(37.81873440, -121.99699401);\n";
        print "    map = new Microsoft.Maps.Map(document.getElementById('MapDiv'), \n";
	print "		{";
	print "		   credentials: 'AgIOXexuz3ScDawNnUB41FDLx7FXOKp68N4hJ68kwHBeWzbr6bP8ypQPcIlTn_BN',";

	if ($s_community eq "All") { print "		  center: new Microsoft.Maps.Location(37.81873440, -121.99699401),"; }
	if ($s_community eq "Danville") { print "		  center: new Microsoft.Maps.Location(37.81873440, -121.99699401),"; }
	if ($s_community eq "Pleasanton") { print "		  center: new Microsoft.Maps.Location(37.67050562, -121.88266754),"; }
	if ($s_community eq "San Ramon") { print "		  center: new Microsoft.Maps.Location(37.77112181, -121.95528030),"; }
	if ($s_community eq "Dublin") { print "		  center: new Microsoft.Maps.Location(37.70799806, -121.92798014),"; }
	if ($s_community eq "Blackhawk") { print "		  center: new Microsoft.Maps.Location(37.80557957, -121.906013488),"; }
	if ($s_community eq "Alamo") { print "		  center: new Microsoft.Maps.Location(37.844291462, -122.03038215),"; }
	if ($s_community eq "Walnut Creek") { print "		  center: new Microsoft.Maps.Location(37.90411590, -122.04351425),"; }


	print "            zoom: 13,";	
	print "            showScalebar: false";
	print "		})\;\n";

	print "    var center = map.getCenter();\n";
	print "    var pin = new Microsoft.Maps.Pushpin(center, {text: '1'});\n";
	print "    pin.setInfoBox(new InfoBox(\"<strong>Pushpin 1</strong>\"));\n";
#	print "    var pin2 = new Microsoft.Maps.Pushpin(location1, {text: '2'});\n";


#	print "    map.entities.push(pin);\n";

	print "    forsale.push(pin);\n";
#	print "    forsale.push(pin2);\n";
	print "    forsale.push(pinInfobox);\n";
#	print "    forsale.push(Microsoft.Maps.Events.addHandler(pin, 'click', displayInfobox);)\n";
	print "    map.entities.push(forsale);\n";


#	print "    Microsoft.Maps.Events.addHandler(pin, 'click', displayInfobox);\n";
	print "    Microsoft.Maps.Events.addHandler(pin, 'click', displayInfobox);\n";
	print "    map.LoadMap();\n";



        print "}   \n";
        print "</script>\n";


        print "</head>\n";
}




################### GENERIC PAGE SETUP ENDING ###################

sub printending {
	print "</body>\n";
	print "</html>\n";
}



sub place_heading() {

	$bimage = "Maroon1.jpg";
#	$bimage = "bluebanner.png";

	print "<BODY onload='getMap();'>\n";
	print "<DIV class='topdiv'>\n";
	print "   <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/$bimage' WIDTH=100% HEIGHT=100%>\n";
	print "   <DIV style='position: absolute; left: 0px; top: 0px;'>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/ArLogo.jpg'>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 128px; top: 1px;'><SPAN style='font-family: century; font-size: 2.6em; color: rgb(188,161,154);'> AgentRobin.com</SPAN></DIV>\n";
	print "   <DIV style='position: absolute; left: 130px; top: 50px;'><SPAN style='font-family: century; font-size: 1em; color: rgb(255,255,255);'>San Ramon Valley Real Estate</SPAN></DIV>\n";


	print "  <DIV style='position: absolute; right: 5px; top: 8px; text-align: right;'><SPAN class='bigmenu_text_background'> Welcome  BooBoo</SPAN></DIV>\n";
	print "  <DIV style='position: absolute; right: 5px; top: 36px; text-align: right;'><SPAN class='submenu_text'> Signin     Sigup</SPAN></DIV>\n";
	print "</DIV>\n";

	if ($Page eq "1") {  option1(); }
	if ($Page eq "2") {  option2(); }
	if ($Page eq "3") {  option3(); }
	if ($Page eq "4") {  option4(); }
	if ($Page eq "5") {  option5(); }
	print "\n";
	print "\n";
	print "\n";
	print "\n";

}


sub option1() {


	print "<DIV class='menubar1'>\n";

####  This is code to fill in the div (I.E) problem fix and put the left image on the main menu

	print "   <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/LightMenu.png' WIDTH=100% HEIGHT=58>\n";
	print "   <DIV style='position: absolute; left: -1px; top: -1px; width: 10px; height: 37px; border-style:solid; border-width: 0px; text-align: left; overflow: hidden;'><IMG BORDER=0 SRC='http://www.agentrobin.com/Img/menu_left.jpg'></DIV>\n";


####  This is the master menu build code ####

	print "   <DIV style='position: absolute; left: 30px; top: -10px; right: 0px; height: 37px; border-style:solid; border-width: 0px; text-align: left; overflow: hidden;'>\n";
	print "       <SPAN class='metroNavBtn'>home</SPAN>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=2&Sub=1'>properties</A></SPAN>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3'>services</A></SPAN>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=4'>education</A></SPAN>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=5'>tools</A></SPAN>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=6'>myAgent</A></SPAN>\n";
	print "   </DIV>\n";
	print "   <DIV style='position: absolute; right: 0px; top: -1px; width: 10px; height: 37px; border-style:solid; border-width: 0px; text-align: left; overflow: hidden;'><IMG BORDER=0 SRC='http://www.agentrobin.com/Img/menu_right.jpg'></DIV>\n";
	print "</DIV>\n";
####

####   This code builds the main body default display options (Trying to format with Tables but will liekly change)


	print "   <DIV class='s_width'>\n";

	if ($PSub eq "1") {


		leftarrow();
		build_about();
		build_body_home();
		build_latest();
	}


	if ($PSub eq "2") {
		print "<TABLE WIDTH=100% BORDER=1>\n";
		print "<TR><TD WIDTH=240>";	
			build_about();
		print "</TD><TD>";
			build_testimonials();
		print "</TD><TD WIDTH=240>";
			build_testimonial_detail();
		print "</TD></TR>\n";
	}

	print "</DIV>\n";

####

}


sub option2() {


	print "<DIV class='menubar1'>\n";

####  This is code to fill in the div (I.E) problem fix and put the left image on the main menu

	print "   <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/LightMenu.png' WIDTH=100% HEIGHT=58>\n";
	print "   <DIV style='position: absolute; left: -1px; top: -1px; width: 10px; height: 37px; border-style:solid; border-width: 0px; text-align: left; overflow: hidden;'><IMG BORDER=0 SRC='http://www.agentrobin.com/Img/menu_left.jpg'></DIV>\n";


####  This is the master menu build code ####

	print "   <DIV style='position: absolute; left: 30px; top: -10px; right: 0px; height: 37px; border-style:solid; border-width: 0px; text-align: left;'>\n";
	print "       <A HREF='http://www.AgentRobin.com/AR.pl?Page=1'><SPAN class='bigmenu_text_background'>home</SPAN></A>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=2&Sub=1'>properties</A></SPAN>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3'>services</A></SPAN>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=4'>education</A></SPAN>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=5'>tools</A></SPAN>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=6'>myAgent</A></SPAN>\n";
	print "   </DIV>\n";

#### This code puts the menu sub option for each main menu item.

	print "   <DIV style='position: absolute; left: 30px; top: 20px; right: 0px; height: 20px; border-style:solid; border-width: 0px; text-align: left;'>\n";


	print "   	<SPAN class='smallmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=2&Sub=1'>SEARCH</A></SPAN>\n";
	print "   	<IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'>COMMUNITIES</SPAN>\n";
	print "   	<IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'>MARKET STATUS</SPAN>\n";
	print "   	<IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'>NEWEST</SPAN>\n";
	print "   	<IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'>INVESTMENT</SPAN>\n";


	print "   </DIV>\n";
####

	if ($PSub eq "1") {
		print "   <DIV style='position: absolute; right: 0px; top: -1px; width: 10px; height: 37px; border-style:solid; border-width: 0px; text-align: left; overflow: hidden;'><IMG BORDER=0 SRC='http://www.agentrobin.com/Img/menu_right.jpg'></DIV>\n";
		print "</DIV>\n";

		print "<TABLE WIDTH=100% BORDER=1>\n";
		print "<TR><TD WIDTH=800>";	
			build_search();
		print "</TD><TD>";
			build_search_home();
		print "</TD></TR>\n";
	}
}


sub option3() {


	print "<DIV class='menubar1'>\n";

####  This is code to fill in the div (I.E) problem fix and put the left image on the main menu

	print "   <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/LightMenu.png' WIDTH=100% HEIGHT=58>\n";
	print "   <DIV style='position: absolute; left: -1px; top: -1px; width: 10px; height: 37px; border-style:solid; border-width: 0px; text-align: left;  overflow: hidden;'><IMG BORDER=0 SRC='http://www.agentrobin.com/Img/menu_left.jpg'></DIV>\n";


####  This is the master menu build code ####

	print "   <DIV style='position: absolute; left: 30px; top: -10px; right: 0px; height:37px; border-style:solid; border-width: 0px; text-align: left;'>\n";
	print "       <A HREF='http://www.AgentRobin.com/AR.pl?Page=1'><SPAN class='bigmenu_text_background'>home</SPAN></A>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=2'>properties</A></SPAN>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3'>services</A></SPAN>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=4'>education</A></SPAN>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=5'>tools</A></SPAN>\n";
	print "       <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=6'>myAgent</A></SPAN>\n";
	print "   </DIV>\n";

#### This code puts the menu sub option for each main menu item.

	print "   <DIV style='position: absolute; left: 30px; top: 20px; right: 0px; height: 20px; border-style:solid; border-width: 0px; text-align: left;'>\n";


	print "   	<SPAN class='smallmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3&Sub=1'>FOR BUYERS</A></SPAN>\n";
	print "   	<IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3&Sub=2'>FOR SELLERS</A></SPAN>\n";
	print "   	<IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3&Sub=3'>FOR INVESTORS</A></SPAN>\n";
	print "   	<IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3&Sub=4'>SHORT SALES</A></SPAN>\n";
	print "   	<IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3&Sub=5'>FORECLOSURES</A></SPAN>\n";


	print "   </DIV>\n";
####

	print "   <DIV style='position: absolute; right: 0px; top: -1px; width: 10px; height: 37px; border-style:solid; border-width: 0px; text-align: left; overflow: hidden;'><IMG BORDER=0 SRC='http://www.agentrobin.com/Img/menu_right.jpg'></DIV>\n";
	print "</DIV>\n";

	if ($PSub eq "1") {
		print "<TABLE WIDTH=100% BORDER=1>\n";
		print "<TR><TD WIDTH=800>";	
			build_buyer_left();
		print "</TD><TD>";
			build_buyer_resources();
	
		print "</TD></TR>\n";
	}
	if ($PSub eq "2") {
		print "<TABLE WIDTH=100% BORDER=1>\n";
		print "<TR><TD WIDTH=800>";	
			build_seller_left();
		print "</TD><TD>";
			build_seller_resources();
	
		print "</TD></TR>\n";
	}
}

sub gen_footer() {

	print "<DIV class='botdiv'>\n";

	print "   <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/LightMenu.png' WIDTH=100% HEIGHT=100%>\n";
	print "   <DIV style='position: absolute; left: 270px; top: -5px;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.6em; color: rgb(255,255,255); font-decoration: bold;'> Robin Brooks (AgentRobin)</SPAN></DIV>\n";

	print "   <DIV style='position: absolute; right: 0px; top: 23px;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(188,161,154);'> 760 Camino Ramon Suite 200 - Danville, CA 94526</SPAN></DIV>\n";
	print "   <DIV style='position: absolute; left: 270px; top: 18px;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(255,255,255);'> Direct:  (925) 212-2446    Fax:  (925) 212-2446</SPAN></DIV>\n";

	print "   <DIV style='position: absolute; left: 0px; top: 0px; height: 50px; text-align:center;'>\n";
	print "          <IMG BORDER=1 SRC='http://www.agentrobin.com/Img/KW_small.jpg'>\n";

	print "   </DIV>\n";

	print "</DIV>\n";
}


sub build_testimonials() {


	print "<DIV class='floatit'>\n";
	print "		<DIV style='position: absolute; left: 10px; top: -1px; width: 550px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/label_testimonials.png'></SPAN></DIV>\n";
	print "		<DIV style='position: absolute; left: 20px; top: 0px; width: 40px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/label_back.png' onclick='goBack()'></SPAN></DIV>\n";


	print "   <DIV style='position: absolute; left: 4px; top: 50px; height: 20px; width: 300px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 22pt; color: rgb(0,0,0); font-weight: normal;'>Testimonials</SPAN>\n";
	print "   </DIV>\n";
	print "   <DIV id='makeMeScrollable' style='position: absolute; left: 0px; top: 80px; height: 170px; width: 565px; border-style: inset; border-width: 0px; float: middle; overflow: auto;'>\n";

	print "	<div class='scrollingHotSpotLeft'></div>\n";
	print "	<div class='scrollingHotSpotRight'></div>\n";
	print "	    <div class='scrollWrapper'>\n";
	print "		<div class='scrollableArea'>\n";
	$tnum = @varray0;
	$xpos = 0;
	for ($x=0; $x<=$tnum-1;$x++) {
		$xpos1= $xpos . "px";

		print "   <DIV style='position: absolute; left: $xpos1; top: 5px; height: 100px; width: 100px; border-style: inset; border-width: 0px; float: middle;'><IMG SRC='http://www.AgentRobin.com/Img/$varray0[$x]'></DIV>\n";

		print "   <DIV style='position: absolute; left: $xpos1; top: 105px; height: 20px; width: 100px; border-style: inset; border-width: 0px; text-align: center;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 16pt; color: rgb(0,0,0); font-weight: normal;'>$varray2[$x]</SPAN></DIV>\n";
		print "   <DIV style='position: absolute; left: $xpos1; top: 125px; height: 20px; width: 100px; border-style: inset; border-width: 0px; text-align: center;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 13pt; color: rgb(0,0,0); font-weight: normal;'>$varray3[$x]</SPAN></DIV>\n";
		$xpos=$xpos+130;
	}	

	print "   	</DIV>\n";
	print "      </DIV>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 4px; top: 270px; height: 20px; width: 280px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 22pt; color: rgb(0,0,0); font-weight: normal;'>Most Recent Transactions</SPAN>\n";
	print "   </DIV>\n";

	print "   <DIV id='makeMeScrollable' style='position: absolute; left: 0px; top: 300px; height: 170px; width: 565px; border-style: inset; border-width: 0px; float: middle; overflow: auto;'>\n";
	print "	<div class='scrollingHotSpotLeft'></div>\n";
	print "	<div class='scrollingHotSpotRight'></div>\n";
	print "	    <div class='scrollWrapper'>\n";
	print "		<div class='scrollableArea'>\n";
	$tnum = @parray0;
	$xpos = 0;
	for ($x=0; $x<=$tnum-1;$x++) {
		$xpos1= $xpos . "px";

		print "   <DIV style='position: absolute; left: $xpos1; top: 5px; height: 100px; width: 120px; border-style: inset; border-width: 0px; float: middle;'><IMG SRC='http://www.AgentRobin.com/Img/$parray0[$x]'></DIV>\n";

		print "   <DIV style='position: absolute; left: $xpos1; top: 105px; height: 20px; width: 120px; border-style: inset; border-width: 0px; text-align: center;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 16pt; color: rgb(0,0,0); font-weight: normal;'>$parray2[$x]</SPAN></DIV>\n";
		print "   <DIV style='position: absolute; left: $xpos1; top: 125px; height: 20px; width: 120px; border-style: inset; border-width: 0px; text-align: center;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 13pt; color: rgb(0,0,0); font-weight: normal;'>$parray3[$x]</SPAN></DIV>\n";
		$xpos=$xpos+145;
	}
	print "   	</DIV>\n";
	print "      </DIV>\n";
	print "   </DIV>\n";
	print "</DIV>\n";

}

sub build_body_home() {


	print "<DIV class='floatit'>\n";
	print "  <DIV style='position: absolute; left: 10px; top: 0px; width: 550px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/label_eservice.png'></SPAN></DIV>\n";

# Welcome Tile



	print "   <DIV style='position: absolute; left: 10px; top: 60px; height: 100px; width: 150px; border-style: inset; border-width: 0px; float: middle;' onMouseOver=\"document.WelcomePic.src='http://www.agentrobin.com/Img/Welcome1_ov.jpg'\" onMouseOut=\"document.WelcomePic.src='http://www.agentrobin.com/Img/Welcome1.jpg'\">\n";
	print "           <IMG Name=WelcomePic SRC='http://www.agentrobin.com/Img/WElcome1.jpg'>\n";
	print "   </DIV>\n";

## Overlay with Information.  Built in a master DIV to hold the transparent image background for visual effect

	print "   <DIV style='position: absolute; left: 166px; top: 63px; height: 100px; width: 375px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <IMG SRC='http://www.agentrobin.com/Img/back001.png'>\n";
	print "   </DIV>\n";


	print "   <DIV style='position: absolute; left: 170px; top: 80px; height: 115px; width: 150px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <IMG SRC='http://www.agentrobin.com/Img/line_div1.png'>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 170px; top: 57px; height: 160px; width: 160px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.4em; color: rgb(0,0,0); font-weight: normal;'>WELCOME</SPAN><br>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 182px; top: 85px; height: 50px; width: 340px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.0em; color: rgb(0,0,0); font-weight: normal;'> \"My goal is to provide outstanding service from intial consultation to final closing.  I'll always put YOU first!!</SPAN>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 175px; top: 140px; height: 20px; width: 80px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: bold;'> About Me</SPAN>\n";
	print "   </DIV>\n";


	print "   <DIV style='position: absolute; left: 250px; top: 139px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <IMG SRC='http://www.agentrobin.com/Img/playit.png'>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 280px; top: 139px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <IMG SRC='http://www.agentrobin.com/Img/facebook.png'>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 310px; top: 139px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <IMG SRC='http://www.agentrobin.com/Img/linkedin.png'>\n";
	print "   </DIV>\n";



# Testimonial Tile

	print "   <DIV style='position: absolute; left: 10px; top: 200px; height: 100px; width: 160px; border-style: inset; border-width: 0px;' onMouseOver=\"document.TestimonialPic.src='http://www.agentrobin.com/Img/Testimonials1_ov.jpg'\" onMouseOut=\"document.TestimonialPic.src='http://www.agentrobin.com/Img/testimonials1.jpg'\">\n";
	print "           <A HREF='http://www.AgentRobin.com/AR.pl?Page=1&Sub=2'><IMG Name=TestimonialPic SRC='http://www.agentrobin.com/Img/testimonials1.jpg'></A>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 170px; top: 220px; height: 115px; width: 150px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <IMG SRC='http://www.agentrobin.com/Img/line_div1.png'>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 170px; top: 195px; height: 160px; width: 160px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.4em; color: rgb(0,0,0); font-weight: normal;'>REFERENCES</SPAN><br>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 182px; top: 225px; height: 50px; width: 340px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.0em; color: rgb(0,0,0); font-weight: normal;'>The best reference come from my previous clients!</SPAN>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 175px; top: 280px; height: 20px; width: 80px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: bold;'> Testimonials</SPAN>\n";
	print "   </DIV>\n";


	print "   <DIV style='position: absolute; left: 250px; top: 275px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <IMG SRC='http://www.agentrobin.com/Img/playit.png'>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 280px; top: 275px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <IMG SRC='http://www.agentrobin.com/Img/trulia.png'>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 340px; top: 275px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <IMG SRC='http://www.agentrobin.com/Img/yelp.png'>\n";
	print "   </DIV>\n";




# News and Blog

	print "   <DIV style='position: absolute; left: 10px; top: 330px; height: 100px; width: 160px; border-style: inset; border-width: 0px;'  onMouseOver=\"document.CustomizePic.src='http://www.agentrobin.com/Img/customize_ov.jpg'\" onMouseOut=\"document.CustomizePic.src='http://www.agentrobin.com/Img/customize.png'\">\n";
	print "           <IMG Name=CustomizePic SRC='http://www.agentrobin.com/Img/customize.png'>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 170px; top: 350px; height: 115px; width: 150px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <IMG SRC='http://www.agentrobin.com/Img/line_div1.png'>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 170px; top: 325px; height: 160px; width: 160px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.4em; color: rgb(0,0,0); font-weight: normal;'>CUSTOMIZE</SPAN><br>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 182px; top: 355px; height: 50px; width: 340px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.0em; color: rgb(0,0,0); font-weight: normal;'>Get alerts for new listings, listings in your areas of interest or market updates and news.  Let the info come to you in YOUR way!!</SPAN>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 175px; top: 4133px; height: 20px; width: 80px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: bold;'> Testimonials</SPAN>\n";
	print "   </DIV>\n";


	print "   <DIV style='position: absolute; left: 250px; top: 413px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <IMG SRC='http://www.agentrobin.com/Img/playit.png'>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 280px; top: 413px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <IMG SRC='http://www.agentrobin.com/Img/signup.png'>\n";
	print "   </DIV>\n";

	print "   <DIV style='position: absolute; left: 340px; top: 413px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n";
	print "           <IMG SRC='http://www.agentrobin.com/Img/emailalerts.png'>\n";
	print "   </DIV>\n";




# Cities



	print "</DIV>\n";

}


sub build_latest() {
	print "<DIV class='home_latest'>\n";
	print "  <IMG BORDER=0 SRC='http://agentrobin.com/Img/White.png' WIDTH=100% HEIGHT=100%>\n";
	print "  <DIV style='position: absolute; left: 60px; top: 0px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG SRC='http://agentrobin.com/Img/label_whatsnew.png'></SPAN></DIV>\n";
	print "         <DIV style='position: absolute; left: 0px; top: 65px; width: 90px; height: 200px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><IMG BORDER=0 SRC='http://agentrobin.com/Img/SRV.png'></DIV>\n";
	print "  <DIV style='position: absolute; left: 4px; top: 60px; width: 100px; height: 20px; border-style:solid; border-width: 0px; text-align: left;'>\n";
	print "         <DIV style='position: absolute; left: 60px; top: 0px; width: 90px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>DANVILLE</A></SPAN></DIV>\n";
	print "         <DIV style='position: absolute; left: 60px; top: 25px; width: 120px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>BLACKHAWK</A></SPAN></DIV>\n";
	print "         <DIV style='position: absolute; left: 60px; top: 50px; width: 120px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>SAN RAMON</A></SPAN></DIV>\n";
	print "         <DIV style='position: absolute; left: 60px; top: 75px; width: 120px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>ALAMO</A></SPAN></DIV>\n";
	print "         <DIV style='position: absolute; left: 60px; top: 100px; width: 120px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>DUBLIN</A></SPAN></DIV>\n";
	print "         <DIV style='position: absolute; left: 60px; top: 125px; width: 120px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>PLEASANTON</A></SPAN></DIV>\n";
	print "         <DIV style='position: absolute; left: 60px; top: 150px; width: 140px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>WALNUT CREEK</A></SPAN></DIV>\n";
	print "         <DIV style='position: absolute; left: 60px; top: 175px; width: 120px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>LAFAYETTE</A></SPAN></DIV>\n";
	print "  </DIV>\n";
	print "</DIV>\n";
}

sub build_testimonial_detail() {
	print "<DIV class='home_latest'>\n";
	print "  <IMG BORDER=0 SRC='http://agentrobin.com/Img/White.png' WIDTH=100% HEIGHT=100%>\n";
	print "  <DIV style='position: absolute; left: 60px; top: 0px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG SRC='http://agentrobin.com/Img/label_whatsnew.png'></SPAN></DIV>\n";
	print "         <DIV style='position: absolute; left: 0px; top: 65px; width: 90px; height: 200px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><IMG BORDER=0 SRC='http://agentrobin.com/Img/SRV.png'></DIV>\n";
	print "  <DIV style='position: absolute; left: 4px; top: 60px; width: 100px; height: 20px; border-style:solid; border-width: 0px; text-align: left;'>\n";
	print "       <iFrame SRC='http://www.AgentRobin.com/Videos/Seller.wmv'></iFrame>\n";
	print "  </DIV>\n";
	print "</DIV>\n";
}

sub build_about() {

	print "<DIV class='home_sidebar'>\n";
	print "  <IMG BORDER=0 SRC='http://agentrobin.com/Img/section1.png' WIDTH=100% HEIGHT=100%>\n";


## This is the informaiton of Robin

	print "  <DIV style='position: absolute; left: 0px; top: 0px; width: 200px; height: 50px; border-style:solid; border-width: px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/label_robinbrooks.png'></SPAN></DIV>\n";

	print "  <DIV style='position: absolute; left: 20px; top: 60px; width: 200px; height: 220px; border-style:solid; border-width: 0px; text-align: left;'><IMG SRC='http://agentrobin.com/Img/RobinPic1.png'></DIV>\n";

	print "  <DIV style='position: absolute; left: 0px; top: 300px; width: 200px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='medsize_txt'><A HREF='http://www.AgentRobin.com/Home.htm'>Real Estate Professional</A></SPAN></DIV>\n";
	print "  <DIV style='position: absolute; left: 0px; top: 320px; width: 200px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='topical1'><A HREF='http://www.AgentRobin.com/Home.htm'>Keller Williams Realty</A></SPAN></DIV>\n";
	print "  <DIV style='position: absolute; left: 0px; top: 342px; width: 200px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='topical_sm'><A HREF='http://www.AgentRobin.com/Home.htm'>CA DRE #01111111</A></SPAN></DIV>\n";

	print "  <DIV style='position: absolute; left: 0px; top: 370px; width: 200px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='topical1'>Cell- : (925) 212-2446</SPAN></DIV>\n";
	print "  <DIV style='position: absolute; left: 0px; top: 390px; width: 200px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='topical1'>Office: (925) 833-8555</SPAN></DIV>\n";


	print "  <DIV style='position: absolute; left: 0px; top: 420px; width: 200px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='topical1'><A HREF='mailto:Robin\@AgentRobin.com'>Robin\@AgentRobin.com</A></SPAN></DIV>\n";


	print "</DIV>\n";
	
}

sub build_buyer_left() {

	print "<DIV class='home_sidebar'>\n";
	print "  <IMG BORDER=0 SRC='http://agentrobin.com/Img/red_back.png' WIDTH=100% HEIGHT=100%>\n";


## This is the informaiton of Robin

	print "  <DIV style='position: absolute; left: 10px; top: 0px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/label_buyer.png'></SPAN></DIV>\n";

	print "  <DIV style='position: absolute; left: 30px; top: 60px; width: 180px; height: 220px; border-style:solid; border-width: 0px; text-align: left;'><IMG SRC='http://agentrobin.com/Img/RobinPic1.png'></DIV>\n";

	print "  <DIV style='position: absolute; left: 10px; top: 300px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='medsize_txt'><A HREF='http://www.AgentRobin.com/Home.htm'>Experienced Buyers Agent</A></SPAN></DIV>\n";
	print "  <DIV style='position: absolute; left: 10px; top: 320px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'><A HREF='http://www.AgentRobin.com/Home.htm'>Keller Williams Realty</A></SPAN></DIV>\n";
	print "  <DIV style='position: absolute; left: 10px; top: 342px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical_sm'><A HREF='http://www.AgentRobin.com/Home.htm'>CA DRE #01111111</A></SPAN></DIV>\n";

	print "  <DIV style='position: absolute; left: 10px; top: 370px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'>Cell- : (925) 212-2446</SPAN></DIV>\n";
	print "  <DIV style='position: absolute; left: 10px; top: 390px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'>Office: (925) 833-8555</SPAN></DIV>\n";


	print "  <DIV style='position: absolute; left: 10px; top: 420px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'><A HREF='mailto:Robin\@AgentRobin.com'>Robin\@AgentRobin.com</A></SPAN></DIV>\n";


	print "</DIV>\n";
	
}

sub build_buyer_resources() {

	print "<DIV class='buyer_resources'>\n";
	print "  <DIV style='position: absolute; left: 0px; top: 4px; width: 280px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/label_buyerresources.png'></SPAN></DIV>\n";

	print "  <DIV style='position: absolute; left: 0px; top: 50px; width: 280px; height: 20px; border-style:solid; border-width: 1px; text-align: left; vertical-align: top;'><SPAN class='topical1'>The Home Buying Process</SPAN></DIV>\n";
	print "  <DIV style='position: absolute; left: 0px; top: 70px; width: 280px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='topical1'>Buying a Short Sale or Foreclosure</SPAN></DIV>\n";
	print "  <DIV style='position: absolute; left: 0px; top: 90px; width: 280px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='topical1'>Mortgage Resources</SPAN></DIV>\n";




	print "</DIV>\n";


}

sub build_seller_left() {

	print "<DIV class='home_sidebar'>\n";
	print "  <IMG BORDER=0 SRC='http://agentrobin.com/Img/section1.png' WIDTH=100% HEIGHT=100%>\n";


## This is the informaiton of Robin

	print "  <DIV style='position: absolute; left: 10px; top: 0px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/label_seller.png'></SPAN></DIV>\n";

	print "  <DIV style='position: absolute; left: 30px; top: 60px; width: 180px; height: 220px; border-style:solid; border-width: 0px; text-align: left;'><IMG SRC='http://agentrobin.com/Img/RobinPic1.png'></DIV>\n";

	print "  <DIV style='position: absolute; left: 10px; top: 300px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='medsize_txt'><A HREF='http://www.AgentRobin.com/Home.htm'>Real Estate Professional</A></SPAN></DIV>\n";
	print "  <DIV style='position: absolute; left: 10px; top: 320px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'><A HREF='http://www.AgentRobin.com/Home.htm'>Keller Williams Realty</A></SPAN></DIV>\n";
	print "  <DIV style='position: absolute; left: 10px; top: 342px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical_sm'><A HREF='http://www.AgentRobin.com/Home.htm'>CA DRE #01111111</A></SPAN></DIV>\n";

	print "  <DIV style='position: absolute; left: 10px; top: 370px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'>Cell- : (925) 212-2446</SPAN></DIV>\n";
	print "  <DIV style='position: absolute; left: 10px; top: 390px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'>Office: (925) 833-8555</SPAN></DIV>\n";


	print "  <DIV style='position: absolute; left: 10px; top: 420px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'><A HREF='mailto:Robin\@AgentRobin.com'>Robin\@AgentRobin.com</A></SPAN></DIV>\n";


	print "</DIV>\n";
	
}

sub build_search() {

	print "<FORM Name=SearchForm Action=''>\n";
	print "<INPUT Type='Hidden' Name='Page' Value=2>\n";
	print "<DIV class='home_search'>\n";
	print "  <IMG BORDER=0 SRC='http://agentrobin.com/Img/section1.png' WIDTH=100% HEIGHT=100%>\n";




	print "  <DIV style='position: absolute; left: 2px; top: 0px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/label_search.png'></SPAN></DIV>\n";


	print "  <DIV style='position: absolute; left: 30px; top: 100px; width: 120px; height: 200px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/mag_glass.png'></SPAN></DIV>\n";
	print "  <DIV style='position: absolute; left: 0px; top: 60px; width: 120px; height: 200px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/searchlist.png'></SPAN></DIV>\n";

## This is the search form Community Field

	print "  <DIV style='position: absolute; left: 120px; top: 60px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";

	print "    <SELECT Name=Community>\n";

	$pcount1 = @community;
	for ($x=0;$x<=$pcount1-1; $x++) {
		if ($s_community eq $community[$x]) {
			print "		<OPTION Value='$community[$x]' SELECTED>$community[$x]</OPTION>\n";
		} else {
			print "		<OPTION Value='$community[$x]'>$community[$x]</OPTION>\n";
		}
	}

	print "    </SELECT>\n";

	print "</DIV>\n";

## This is the search form MinBed Field

	print "  <DIV style='position: absolute; left: 120px; top: 92px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";

	print "    <SELECT Name=MinBed>\n";

	$pcount2 = @numbers;
	for ($x=0;$x<=$pcount2-1; $x++) {
		if ($s_minbed eq $numbers[$x]) {
			print "		<OPTION Value='$numbers[$x]' SELECTED>$numbers[$x]</OPTION>\n";
		} else {
			print "		<OPTION Value='$numbers[$x]'>$numbers[$x]</OPTION>\n";
		}
	}

	print "    </SELECT>\n";

	print "</DIV>\n";


## This is the search form MaxBed Field

	print "  <DIV style='position: absolute; left: 120px; top: 113px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";

	print "    <SELECT Name=MaxBed>\n";
	$pcount2 = @numbers;
	for ($x=0;$x<=$pcount2-1; $x++) {
		if ($s_maxbed eq $numbers[$x]) {
			print "		<OPTION Value='$numbers[$x]' SELECTED>$numbers[$x]</OPTION>\n";
		} else {
			print "		<OPTION Value='$numbers[$x]'>$numbers[$x]</OPTION>\n";
		}
	}
	print "    </SELECT>\n";

	print "</DIV>\n";


## This is the search form MinBath Field

	print "  <DIV style='position: absolute; left: 120px; top: 144px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";

	print "    <SELECT Name=MinBath>\n";
	$pcount2 = @numbers;
	for ($x=0;$x<=$pcount2-1; $x++) {
		if ($s_minbath eq $numbers[$x]) {
			print "		<OPTION Value='$numbers[$x]' SELECTED>$numbers[$x]</OPTION>\n";
		} else {
			print "		<OPTION Value='$numbers[$x]'>$numbers[$x]</OPTION>\n";
		}
	}
	print "    </SELECT>\n";

	print "</DIV>\n";


## This is the search form MaxBath Field

	print "  <DIV style='position: absolute; left: 120px; top: 165px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";

	print "    <SELECT Name=MaxBath>\n";
	$pcount2 = @numbers;
	for ($x=0;$x<=$pcount2-1; $x++) {
		if ($s_maxbath eq $numbers[$x]) {
			print "		<OPTION Value='$numbers[$x]' SELECTED>$numbers[$x]</OPTION>\n";
		} else {
			print "		<OPTION Value='$numbers[$x]'>$numbers[$x]</OPTION>\n";
		}
	}
	print "    </SELECT>\n";

	print "</DIV>\n";


## This is the search form MinPrice Field

	print "  <DIV style='position: absolute; left: 120px; top: 196px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";

	print "    <SELECT Name=MinPrice>\n";
	print "		<OPTION>Any</OPTION>\n";
	$pcount2 = 20;
	$sprice = 100000;
	for ($x=0;$x<=$pcount2-1; $x++) {
		if ($s_minprice eq $sprice) {
			print "		<OPTION Value='$sprice' SELECTED>$sprice</OPTION>\n";
		} else {
			print "		<OPTION Value='$sprice'>$sprice</OPTION>\n";
		}
	$sprice=$sprice+100000;
	}
	print "		<OPTION>2000000+</OPTION>\n";
	print "    </SELECT>\n";

	print "</DIV>\n";


## This is the search form MaxPrice Field

	print "  <DIV style='position: absolute; left: 120px; top: 217px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";

	print "    <SELECT Name=MaxPrice Style='width: 400px;'>\n";
	print "		<OPTION>Any</OPTION>\n";
	$pcount2 = 20;
	$sprice = 100000;
	for ($x=0;$x<=$pcount2-1; $x++) {
		if ($s_maxprice eq $sprice) {
			print "		<OPTION Value='$sprice' SELECTED>$sprice</OPTION>\n";
		} else {
			print "		<OPTION Value='$sprice'>$sprice</OPTION>\n";
		}
	$sprice=$sprice+100000;
	}
	print "		<OPTION>2000000+</OPTION>\n";
	print "    </SELECT>\n";

	print "</DIV>\n";

## This is the search form Unit Type Field

	print "  <DIV style='position: absolute; left: 120px; top: 248px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";

	print "    <SELECT Name=UnitType>\n";
	print "		<OPTION>Any</OPTION>\n";
	$pcount1 = @utype;
	for ($x=0;$x<=$pcount1-1; $x++) {
		if ($s_utype eq $utype[$x]) {
			print "		<OPTION Value='$utype[$x]' SELECTED>$utype[$x]</OPTION>\n";
		} else {
			print "		<OPTION Value='$utype[$x]'>$utype[$x]</OPTION>\n";
		}
	}
	print "    </SELECT>\n";

	print "</DIV>\n";

## This is the search form Unit Status Field

	print "  <DIV style='position: absolute; left: 120px; top: 269px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";

	print "    <SELECT Name=UnitStatus>\n";
	$pcount1 = @ustatus;
	for ($x=0;$x<=$pcount1-1; $x++) {
		if ($s_ustatus eq $ustatus[$x]) {
			print "		<OPTION Value='$ustatus[$x]' SELECTED>$ustatus[$x]</OPTION>\n";
		} else {
			print "		<OPTION Value='$ustatus[$x]'>$ustatus[$x]</OPTION>\n";
		}
	}
	print "    </SELECT>\n";

	print "</DIV>\n";

## This is the search form Unit Status Field

	print "  <DIV style='position: absolute; left: 120px; top: 300px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";

	print "    <SELECT Name=SaleType>\n";
	print "		<OPTION>Any</OPTION>\n";
	$pcount1 = @stype;
	for ($x=0;$x<=$pcount1-1; $x++) {
		if ($s_stype eq $stype[$x]) {
			print "		<OPTION Value='$stype[$x]' SELECTED>$stype[$x]</OPTION>\n";
		} else {
			print "		<OPTION Value='$stype[$x]'>$stype[$x]</OPTION>\n";
		}
	}
	print "    </SELECT>\n";

	print "</DIV>\n";


	print "  <DIV style='position: absolute; left: 40px; top: 350px; width: 70px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";
	     if ($s_mtype eq "Detail") { print " <input type='radio' name='MapType' value='Detail' checked>Detailed\n"; } else { print " <input type='radio' name='MapType' value='Detail'>Detailed\n"; }
	print "</DIV>\n";


	print "  <DIV style='position: absolute; left: 120px; top: 350px; width: 70px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";
	     if ($s_mtype eq "List") { print " <input type='radio' name='MapType' value='List' checked>List\n"; } else { print " <input type='radio' name='MapType' value='List'>List\n"; }
	print "</DIV>\n";


	print "  <DIV style='position: absolute; left: 170px; top: 350px; width: 70px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";
	     if ($s_mtype eq "Map") { print " <input type='radio' name='MapType' value='Map' checked>Map\n"; } else { print " <input type='radio' name='MapType' value='Map'>Map\n"; }
	print "</DIV>\n";

## This is the search form submit area and special buttons

	print "  <DIV style='position: absolute; left: 89px; top: 390px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";
	print "    <INPUT TYPE=Submit Name=Submit Value='Search'>\n";
	print "</DIV>\n";



	print "  <DIV style='position: absolute; left: 54px; top: 430px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";
	print "    <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/addto.png'>\n";
	print "</DIV>\n";

	print "  <DIV style='position: absolute; left: 54px; top: 450px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";
	print "    <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/addonbehalf.png' TITLE='$ENV{QUERY_STRING}'>\n";
	print "</DIV>\n";

#	print "  <DIV style='position: absolute; left: 10px; top: 75px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>BathS:</SPAN></DIV>\n";
#	print "  <DIV style='position: absolute; left: 10px; top: 100px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>BATH:</SPAN></DIV>\n";


	print "</DIV>\n";
	print "</FORM>\n";
}



sub build_seller_resources() {
	print "<DIV class='seller_resources'>\n";
	print "  <DIV style='position: absolute; left: 0px; top: 4px; width: 390px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/label_sellerresources.png'></SPAN></DIV>\n";
	print "</DIV>\n";
}


sub build_search_home() {

	$areaIcon = "TRI_back.png";
	if ($s_community eq "Danville") { $areaIcon = "DAN_back.png"; }
	if ($s_community eq "San Ramon") { $areaIcon = "SAN_back.png"; }
	if ($s_community eq "Alamo") { $areaIcon = "ALA_back.png"; }
	if ($s_community eq "Blackhawk") { $areaIcon = "BLA_back.png"; }
	if ($s_community eq "Dublin") { $areaIcon = "DUB_back.png"; }
	if ($s_community eq "Pleasanton") { $areaIcon = "PLE_back.png"; }
	if ($s_community eq "Walnut Creek") { $areaIcon = "WAL_back.png"; }
	if ($s_community eq "Lafayette") { $areaIcon = "LAF_back.png"; }

	if ($s_mtype eq "Map") { print "<DIV class='floatit2_map'>\n"; } else { print "<DIV class='floatit2'>\n"; }
	print "  <DIV style='position: absolute; left: 0px; top: 4px; width: 800px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/searchresults.png'></SPAN></DIV>\n";
	print "  <DIV style='position: absolute; left: 0px; top: 0px; width: 800px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/$areaIcon'></SPAN></DIV>\n";
	if ($s_mtype eq "Detail") { 
		print "  <DIV style='position: absolute; left: 0px; top: 90px; width: 818px; height: 382px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: auto;'>\n";
		buildALLProperty_detail();
		print "  </DIV>\n";
	}
	if ($s_mtype eq "List") { 
		searchlist_head();
		print "  <DIV style='position: absolute; left: 0px; top: 85px; width: 818px; height: 382px; border-style:solid; border-width: 1px; text-align: left; vertical-align: top; overflow: auto;'>\n";
		buildALLProperty_list();
		print "  </DIV>\n";
	}
	if ($s_mtype eq "Map") { 
		print "  <DIV id=MapDiv style='position: absolute; left: 0px; top: 75px; width: 818px; height: 800px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: auto;'>\n";
		buildALLProperty_map();
		print "  </DIV>\n";
	}

	print "  <DIV style='position: absolute; left: 0px; top: 30px; width: 800px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='smallmenu_text_foreground'>$prop_count Properties Match Your Criteria</SPAN></DIV>\n";
	print "</DIV>\n";
}


########################################################################
### Sub buildALLProperty is the main property display sub routine
########################################################################


sub buildALLProperty_list() {




	$sort_string1="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=1";
	$sort_string2="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=2";
	$sort_string3="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=3";
	$sort_string4="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=4";
	$sort_string5="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=5";
	$sort_string6="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=6";
	$sort_string7="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=7";



### Dfine the defautls

	$s_str1 = "";
	$s_str2 = "";
        $s_str3 = "";
	$s_str4 = "";
	$s_str5 = "";
	$s_str6 = "";
	$s_str7 = "";
	$o_by = "ORDER BY Price DESC";

	$s_str1 = "(Area='$s_community')";
	$s_str2 =" AND (Status='ACTV' OR Status='BOMK' OR Status='New' OR Status='PCH')";
	$s_str3 =" AND (BuildingType='Detached' OR BuildingType='Condo' OR BuildingType='Townhouse' OR BuildingType='Duet' OR BuildingType='Patio Home')";
	$s_str4 =" AND (Price > 15000)";


	if ($s_community eq "All") { $s_str1 = "(Area='Danville' OR Area='San Ramon' OR Area='Dublin' OR Area='Blackhawk' OR Area='Alamo' OR Area='Pleasanton' OR Area='Walnut Creek' OR Area='Rossmoor' OR Area='Diablo' OR Area='Lafayette')"; }
	

	if ($s_ustatus eq "Available") { $s_str2 = " AND (Status='ACTV' OR Status='BOMK' OR Status='New' OR Status='PCH')";}
	if ($s_ustatus eq "New") { $s_str2 = " AND (Status='New' OR Status='BOMK')";}
	if ($s_ustatus eq "All Changes") { $s_str2 = " AND (Status='BOMK' OR Status='New' OR Status='PCH')";}

	if ($s_utype eq "Single Family") { $s_str3 = " AND (BuildingType='Detached')"; }
	if ($s_utype eq "Condo/Townhouse") { $s_str3 = " AND (BuildingType='Condo' OR BuildingType='Townhouse' OR BuildingType='Duet' OR BuildingType='Patio Home')"; }

	$s1_minbed = $s_minbed;
	$s1_maxbed = $s_maxbed;
	if ($s_minbed eq "Any") { $s1_minbed = 1; }
	if ($s_minbed eq "6+") { $s1_minbed = 6; }
	if ($s_maxbed eq "Any" || $s_maxbed eq "6+") { $s1_maxbed = 10; }
	if ($s1_minbed > $s1_maxbed) { $s_minbed = $s_maxbed; $s1_minbed = $s1_maxbed; }
	$s_str5 = " AND (Bed>=$s1_minbed AND Bed<=$s1_maxbed)";	

	$s1_minbath = $s_minbath;
	$s1_maxbath = $s_maxbath;
	if ($s_minbath eq "Any") { $s1_minbath = 1; }
	if ($s_minbath eq "6+") { $s1_minbath = 6; }
	if ($s_maxbath eq "Any" || $s_maxbath eq "6+") { $s1_maxbath = 10; }
	if ($s1_minbath > $s1_maxbath) { $s_minbath = $s_maxbath; $s1_minbath = $s1_maxbath; }
	$s_str6 = " AND (Bath>=$s1_minbath AND Bath<=$s1_maxbath)";	

	$s1_minprice = $s_minprice;
	$s1_maxprice = $s_maxprice;
	if ($s_minprice eq "Any") { $s1_minprice = 100000; }
	if ($s_minprice eq "2000000\+") { $s1_minprice = 20000000; }
	if ($s_maxprice eq "Any" || $s_maxprice eq "2000000\+") { $s1_maxprice = 20000000; }
	if ($s1_minprice > $s1_maxprice) { $s_minprice = $s_maxprice; $s1_minprice = $s1_maxprice; }
	$s_str7 = " AND (Price>=$s1_minprice AND Price<=$s1_maxprice)";	

	if ($s_ssort eq "1") { $o_by = "ORDER BY Price DESC"; }
	if ($s_ssort eq "2") { $o_by = "ORDER BY BuildingType DESC"; }
	if ($s_ssort eq "3") { $o_by = "ORDER BY Status DESC"; }
	if ($s_ssort eq "4") { $o_by = "ORDER BY Bed DESC"; }
	if ($s_ssort eq "5") { $o_by = "ORDER BY Bath DESC"; }
	if ($s_ssort eq "6") { $o_by = "ORDER BY SqFt DESC"; }
	if ($s_ssort eq "7") { $o_by = "ORDER BY DOM DESC"; }



	$SQL = "SELECT * FROM PropMLS WHERE $s_str1 $s_str2 $s_str3 $s_str4 $s_str5 $s_str6 $s_str7 $o_by";
#	print "$SQL - $s_minprice - $s_maxprice";
#	goto PASSED;
	$TStyle = @_[1];
	$FTop = @_[2];
	

        # fetch and display data, ensure user has requested some rows
	$db=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s");                    #New instance
	if (! $db){
	    print "Error opening data source $DSN $db";
	    exit(0);
	}
	# Use $rc to check if we could query the database and $db to hold the SQL results

	$rc=$db->Sql($SQL);				#execute SQL query
	if ($rc){
	    $db->Close();
	    print "Error $rc getting INFO from table THEMES in First Iteration";
	    exit(0);
	}


	print "<TABLE class='listings'>\n";

	$prop_count=0;
  	while ($db->FetchRow()){			
	    @data=$db->Data();	
	    print "<TR>";
	    $ticon = "<IMG SRC='http://www.agentrobin.com/Img/UFR.png' TITLE='$data[2]'>";
	    if ($data[2] eq "Detached") { $ticon = "<IMG SRC='http://www.agentrobin.com/Img/SFR.png' TITLE='Single Family Home'>"; }
	    if ($data[2] eq "Condo" || $data[2] eq "Townhouse" || $data[2] eq "Duet" || $data[2] eq "Patio Home") { $ticon = "<IMG SRC='http://www.agentrobin.com/Img/MFR.png' TITLE='$data[2]'>"; }
	    print "<TD Width=40>$ticon</TD>";
	    print "<TD Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TD>";

	    print "<TD Width=60><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>$data[9]</SPAN></TD>";
	    print "<TD Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TD>";

	    print "<TD Width=220><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>\U$data[5]</SPAN></TD>";
	    print "<TD Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TD>";

	    print "<TD Width=100><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>\U$data[3]</SPAN></TD>";
	    print "<TD Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TD>";

	    print "<TD Width=40><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>$data[11]</SPAN></TD>";
	    print "<TD Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TD>";

	    print "<TD Width=40><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>$data[12]</SPAN></TD>";
	    print "<TD Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TD>";

	    print "<TD Width=70><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>$data[13]</SPAN></TD>";
	    print "<TD Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TD>";

	    print "<TD Width=70><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>$data[10]</SPAN></TD>";
	    print "<TD Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TD>";

	    print "<TD Width=90><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>$data[4]</SPAN></TD>";
	    print "</SPAN></TR>\n";
	    $prop_count++;


	}
        $db->Close();
	PASSED:

	print "</TABLE>\n";


}

sub searchlist_head() {

	print "  <DIV style='position: absolute; left: 0px; top: 60px; width: 818px; height: 40px; border-style:solid; border-width: 1px; text-align: left; vertical-align: top; overflow: hidden; background-color: rgb(224,225,233);'>\n";

	print "<TABLE class='listings_head'>\n";
	    print "<TR>";
	    print "<TH Width=40 CENTER><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string2'>TYPE</A></SPAN></TH>";
	    print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>";

	    print "<TH Width=59><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string3'>STATUS</A></SPAN></TH>";
	    print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>";

	    print "<TH Width=217 align=CENTER><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'>ADDRESS</SPAN></TH>";
	    print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>";

	    print "<TH Width=99 align=CENTER><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'>CITY</SPAN></TH>";
	    print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>";

	    print "<TH Width=40><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string4'>BED</A></SPAN></TH>";
	    print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>";

	    print "<TH Width=39><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string5'>BATH</A></SPAN></TH>";
	    print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>";

	    print "<TH Width=69><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string6'>SqFt</A></SPAN></TH>";
	    print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>";

	    print "<TH Width=69><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string7'>DOM</A></SPAN></TH>";
	    print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>";

	    print "<TH Width=90><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string1'>PRICE</A></SPAN></TH>";
	    print "</TR>";
	print "</TABLE>\n";
	print "</DIV>\n";
}


sub buildALLProperty_map() {


}

sub buildALLProperty_detail() {


	$sort_string1="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=1";
	$sort_string2="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=2";
	$sort_string3="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=3";
	$sort_string4="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=4";
	$sort_string5="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=5";
	$sort_string6="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=6";
	$sort_string7="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=7";



### Dfine the defautls

	$s_str1 = "";
	$s_str2 = "";
        $s_str3 = "";
	$s_str4 = "";
	$s_str5 = "";
	$s_str6 = "";
	$s_str7 = "";
	$o_by = "ORDER BY Price DESC";

#### This builds the search query ###############

	$s_str1 = "(Area='$s_community')";
	$s_str2 =" AND (Status='ACTV' OR Status='BOMK' OR Status='New' OR Status='PCH')";
	$s_str3 =" AND (BuildingType='Detached' OR BuildingType='Condo' OR BuildingType='Townhouse' OR BuildingType='Duet' OR BuildingType='Patio Home')";
	$s_str4 =" AND (Price > 15000)";


	if ($s_community eq "All") { $s_str1 = "(Area='Danville' OR Area='San Ramon' OR Area='Dublin' OR Area='Blackhawk' OR Area='Alamo' OR Area='Pleasanton' OR Area='Walnut Creek' OR Area='Rossmoor' OR Area='Diablo' OR Area='Lafayette')"; }
	


	if ($s_ustatus eq "Available") { $s_str2 = " AND (Status='ACTV' OR Status='BOMK' OR Status='New' OR Status='PCH')";}
	if ($s_ustatus eq "New") { $s_str2 = " AND (Status='New' OR Status='BOMK')";}
	if ($s_ustatus eq "All Changes") { $s_str2 = " AND (Status='BOMK' OR Status='New' OR Status='PCH')";}

	if ($s_utype eq "Single Family") { $s_str3 = " AND (BuildingType='Detached')"; }
	if ($s_utype eq "Condo/Townhouse") { $s_str3 = " AND (BuildingType='Condo' OR BuildingType='Townhouse' OR BuildingType='Duet' OR BuildingType='Patio Home')"; }

	$s1_minbed = $s_minbed;
	$s1_maxbed = $s_maxbed;
	if ($s_minbed eq "Any") { $s1_minbed = 1; }
	if ($s_minbed eq "6+") { $s1_minbed = 6; }
	if ($s_maxbed eq "Any" || $s_maxbed eq "6+") { $s1_maxbed = 10; }
	if ($s1_minbed > $s1_maxbed) { $s_minbed = $s_maxbed; $s1_minbed = $s1_maxbed; }
	$s_str5 = " AND (Bed>=$s1_minbed AND Bed<=$s1_maxbed)";	

	$s1_minbath = $s_minbath;
	$s1_maxbath = $s_maxbath;
	if ($s_minbath eq "Any") { $s1_minbath = 1; }
	if ($s_minbath eq "6+") { $s1_minbath = 6; }
	if ($s_maxbath eq "Any" || $s_maxbath eq "6+") { $s1_maxbath = 10; }
	if ($s1_minbath > $s1_maxbath) { $s_minbath = $s_maxbath; $s1_minbath = $s1_maxbath; }
	$s_str6 = " AND (Bath>=$s1_minbath AND Bath<=$s1_maxbath)";	

	$s1_minprice = $s_minprice;
	$s1_maxprice = $s_maxprice;
	if ($s_minprice eq "Any") { $s1_minprice = 100000; }
	if ($s_minprice eq "2000000\+") { $s1_minprice = 20000000; }
	if ($s_maxprice eq "Any" || $s_maxprice eq "2000000\+") { $s1_maxprice = 20000000; }
	if ($s1_minprice > $s1_maxprice) { $s_minprice = $s_maxprice; $s1_minprice = $s1_maxprice; }
	$s_str7 = " AND (Price>=$s1_minprice AND Price<=$s1_maxprice)";	

	if ($s_ssort eq "1") { $o_by = "ORDER BY Price DESC"; }
	if ($s_ssort eq "2") { $o_by = "ORDER BY BuildingType DESC"; }
	if ($s_ssort eq "3") { $o_by = "ORDER BY Status DESC"; }
	if ($s_ssort eq "4") { $o_by = "ORDER BY Bed DESC"; }
	if ($s_ssort eq "5") { $o_by = "ORDER BY Bath DESC"; }
	if ($s_ssort eq "6") { $o_by = "ORDER BY SqFt DESC"; }
	if ($s_ssort eq "7") { $o_by = "ORDER BY DOM DESC"; }



	$SQL = "SELECT * FROM PropMLS WHERE $s_str1 $s_str2 $s_str3 $s_str4 $s_str5 $s_str6 $s_str7 $o_by";
#	print "$SQL - $s_minprice - $s_maxprice";
#	goto PASSED;

####################### End building the Search Query ###################	

        # fetch and display data, ensure user has requested some rows
	$db=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s");                    #New instance
	if (! $db){
	    print "Error opening data source $DSN $db";
	    exit(0);
	}
	# Use $rc to check if we could query the database and $db to hold the SQL results

	$rc=$db->Sql($SQL);				#execute SQL query
	if ($rc){
	    $db->Close();
	    print "Error $rc getting INFO from table THEMES in First Iteration";
	    exit(0);
	}

	print "<TABLE class='listings'>\n";

	$prop_count=0;
  	while ($db->FetchRow()){			
	    @data=$db->Data();	

### Need to get the thumbnail photo link ###

	    $MLSID = $data[0];
            $MLS1 = substr($MLSID, 0, 1);
            $MLS2 = substr($MLSID, 1, 1);
            $MLS3 = substr($MLSID, 2, 1);
            $MLS4 = substr($MLSID, 3, 1);
            $MLS5 = substr($MLSID, 4, 1);
            $MLS6 = substr($MLSID, 5, 1);
            $MLS7 = substr($MLSID, 6, 1);
            $MLS8 = substr($MLSID, 7, 1);
	    $IMGURL = "http://ca-ccar.photos.mlsfinder.com/thumbs/" . $MLS1 . "/" . $MLS2 . "/" . $MLS3 . "/" . $MLS4 . "/" . $MLS5 . "/" . $MLS6 . "/" . $MLS7 . "/" . $MLS8 . "/" . $MLSID . "-1.jpg";
	    $DC1 = substr($data[24],0,50);
	    $DC2 = substr($data[24],50,45). ".....";


	    print "<TR><TD>";
	    print "<DIV style='position: relative; left: 30px; top: 0px; width: 760px; height: 82px; border-style:solid; border-width: 2px; border-color: rgb(194,195,213); background-color: rgb(235,235,246) ;text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n";
	    print "    <DIV style='position: absolute; left: 0px; top: 0px; width: 100px; height: 80px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'><IMG BORDER=0 SRC='$IMGURL' WIDTH=100% HEIGHT=100%></DIV>\n";


	    print "    <DIV style='position: absolute; left: 110px; top: -3px; width: 300px; height: 30px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails_bold'>\U$data[5] - $data[3]</DIV>\n";
	    print "    <DIV style='position: absolute; left: 110px; top: 15px; width: 200px; height: 25px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails'>Bedrooms: $data[11] Bathrooms: $data[12]</DIV>\n";
	    print "    <DIV style='position: absolute; left: 110px; top: 30px; width: 200px; height: 25px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails'>Sq. Foot: $data[13] Lot Sq. Foot: $data[34]</DIV>\n";
	    print "    <DIV style='position: absolute; left: 110px; top: 45px; width: 200px; height: 25px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails'>Year Built: $data[33]</DIV>\n";
	    print "    <DIV style='position: absolute; left: 110px; top: 60px; width: 200px; height: 25px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: hidden;'><SPAN class='propdetails'>Courtesy of $data[25]-$data[26]</DIV>\n";
	    print "    <DIV style='position: absolute; left: 350px; top: 15px; width: 300px; height: 50px; border-style:outset; border-width: 0px; background-color: rgb(224,225,233); text-align: left; vertical-align: top;'>\n";
	    print "        <DIV style='position: absolute; left: 5px; top: 0px; width: 300px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails_comments'>$DC1</DIV>\n";
	    print "        <DIV style='position: absolute; left: 5px; top: 15px; width: 300px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails_comments'>$DC2</DIV>\n";
	    print "    </DIV><BR>\n";

	    $zprice = $data[4];
	    $zlen = length($zprice);
	    if ($zlen == 6) { $rprice = "\$ " . substr($zprice,0,3) . "," .substr($zprice,3,3); }
	    if ($zlen == 7) { $rprice = "\$ " . substr($zprice,0,1) . "," .substr($zprice,1,3) . "," .substr($zprice,4,3); }
	    print "    <DIV style='position: absolute; left: 670px; top: -3px; width: 80px; float: right; height: 30px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails_bold'>$rprice</DIV>\n";

	    print "</DIV><BR>\n";
	    print "</TD></TR>";



	    $prop_count++;


	}
        $db->Close();
	PASSED:

	print "</TABLE>\n";


}


sub leftarrow() {

	$URL = $_[0];

		print "   <DIV class='leftnav'>\n";
		print "          <DIV style='position: absolute; left: 0px; top: 140px; text-align:center;'><IMG BORDER=0 SRC='http://www.agentrobin.com/Img/leftarrow.png'></DIV>\n";
		print "	  </DIV>\n";

}
Creat By MiNi SheLL
Email: devilkiller@gmail.com