#!/usr/bin/perl

print "Content-type: text/html\n\n";

require "config.idx";

$long = $ENV{'QUERY_STRING'};

if ($long) {
	@pairs=split(/&/,$long);
	foreach $item(@pairs) {
		($name,$content)=split (/=/,$item,2);
		$content=~tr/+/ /;
		$content=~ s/%(..)/pack("c",hex($1))/ge;
		if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$content; }
		else { $INPUT{$name} = $content; }
	}
}
else {
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; }
		else { $INPUT{$name} = $value; }
	}
}


@rawCookies = split(/;/,$ENV{'HTTP_COOKIE'});
foreach (@rawCookies) {
	($cookieName, $cookieValue) = split(/=/,$_);
	$cookieName =~ s/ //gi;
	$Cookies{$cookieName}=$cookieValue;
}


$sql_query = qq~select MLSNUM from listings_res3 where Status = '1' ~;

@search_vars = ();

$INPUT{Show} = "10" unless $INPUT{Show};
$INPUT{Show} = "50" if ($INPUT{Show} > '50');

$INPUT{MinPrice} =~ s/\,//gi;
$INPUT{MaxPrice} =~ s/\,//gi;
$INPUT{MinPrice} =~ s/\$//gi;
$INPUT{MaxPrice} =~ s/\$//gi;

if ($INPUT{City}) {
$sql_query .= "AND (";
	(@City) = split(/\,/, $INPUT{City});
	foreach $cit (@City) {
	$sql_query .= "City = ? OR ";
	push @search_vars, $cit;
	}
$sql_query .= "ENDOFFIELD";
$sql_query =~ s/ OR ENDOFFIELD//gi;
$sql_query .= ") ";
}

#if ($INPUT{County}) {
#$sql_query .= "AND (";
#	(@County) = split(/\,/, $INPUT{County});
#	foreach $county (@County) {
#	$sql_query .= "County = ? OR ";
#	push @search_vars, $county;
#	}
#$sql_query .= "ENDOFFIELD";
#$sql_query =~ s/ OR ENDOFFIELD//gi;
#$sql_query .= ") ";
#}


if ($INPUT{MinPrice}) {
$sql_query .= "AND Price >= ? ";
push @search_vars, $INPUT{MinPrice};
}

if ($INPUT{MaxPrice}) {
$sql_query .= "AND Price <= ? ";
push @search_vars, $INPUT{MaxPrice};
}

if ($INPUT{MinBed}) {
$sql_query .= "AND Bedrooms >= ? ";
push @search_vars, $INPUT{MinBed};
}

if ($INPUT{MinBath}) {
$sql_query .= "AND FullBaths >= ? ";
push @search_vars, $INPUT{MinBath};
}

if ($INPUT{Acreage}) {
$sql_query .= "AND Acres >= ? ";
push @search_vars, $INPUT{Acreage};
}

if ($INPUT{YBuilt}) {
$sql_query .= "AND YearBuilt >= ? ";
push @search_vars, $INPUT{YBuilt};
}

if ($INPUT{MinSF}) {
$sql_query .= "AND TotalSqFt >= ? ";
push @search_vars, $INPUT{MinSF};
}

if ($INPUT{MaxSF}) {
$sql_query .= "AND TotalSqFt <= ? ";
push @search_vars, $INPUT{MaxSF};
}

if ($INPUT{elementaryschool}) {
$sql_query .= "AND (";
	(@elementaryschool) = split(/\,/, $INPUT{elementaryschool});
	foreach $elemschool (@elementaryschool) {
	$sql_query .= "ElementarySchool = ? OR ";
	push @search_vars, $elemschool;
	}
$sql_query .= "ENDOFFIELD";
$sql_query =~ s/ OR ENDOFFIELD//gi;
$sql_query .= ") ";
}

if ($INPUT{middleschool}) {
$sql_query .= "AND (";
	(@middleschool) = split(/\,/, $INPUT{middleschool});
	foreach $school (@middleschool) {
	$sql_query .= "MiddleSchool = ? OR ";
	push @search_vars, $school;
	}
$sql_query .= "ENDOFFIELD";
$sql_query =~ s/ OR ENDOFFIELD//gi;
$sql_query .= ") ";
}

if ($INPUT{highschool}) {
$sql_query .= "AND (";
	(@highschool) = split(/\,/, $INPUT{highschool});
	foreach $school (@highschool) {
	$sql_query .= "HighSchool = ? OR ";
	push @search_vars, $school;
	}
$sql_query .= "ENDOFFIELD";
$sql_query =~ s/ OR ENDOFFIELD//gi;
$sql_query .= ") ";
}

if ($INPUT{Address}) {
$sql_query .= "AND AddressStreet LIKE ? ";
push @search_vars, '%' . $INPUT{Address} . '%';
}

if ($INPUT{Remarks}) {
$sql_query .= "AND Remarks LIKE ? ";
push @search_vars, '%' . $INPUT{Remarks} . '%';
}

if ($INPUT{sortby}) {
$sql_query .= "ORDER BY $INPUT{sortby}";
#push @search_vars, $INPUT{sortby};
}

if ($INPUT{orderby}) {
$sql_query .= " $INPUT{orderby}";
#push @search_vars, $INPUT{orderby};
}


if ($sql_query =~ / AND /i) {

   $qqsth = $dbh->prepare($sql_query);
   $qqsth->execute(@search_vars);

   while (my($ml_num) = $qqsth->fetchrow_array()) {
      $total_count++;
      $listing_order_number{$ml_num} = $total_count;
      $previous_listing{$ml_num} = $previous_mls_number;
      $next_listing{$previous_mls_number} = $ml_num;
      $previous_mls_number = $ml_num;
   }

}



$oasth = $dbh->prepare("select * from listings_res3 where MLSNUM = ?");
$oasth->execute($INPUT{mlsnumber});

while ($data_ref = $oasth->fetchrow_hashref()) {
%db = %$data_ref;


$TotalSqFt = &commas($db{TotalSqFt});




($LivingRoomLength,$LivingRoomWidth) = split(/X/i,$db{LivingRoomSize});
($GreatRoomLength,$GreatRoomWidth) = split(/X/i,$db{GreatRoomSize});
($FamilyRoomLength,$FamilyRoomWidth) = split(/X/i,$db{FamilyRoomSize});
($KitchenLength,$KitchenWidth) = split(/X/i,$db{KitchenSize});
($DiningRoomLength,$DiningRoomWidth) = split(/X/i,$db{DiningRoomSize});
($DenStudyLength,$DenStudyWidth) = split(/X/i,$db{DenStudySize});
($Bedroom1Length,$Bedroom1Width) = split(/X/i,$db{Bedroom1Size});
($Bedroom2Length,$Bedroom2Width) = split(/X/i,$db{Bedroom2Size});
($Bedroom3Length,$Bedroom3Width) = split(/X/i,$db{Bedroom3Size});
($Bedroom4Length,$Bedroom4Width) = split(/X/i,$db{Bedroom4Size});
($Bedroom5Length,$Bedroom5Width) = split(/X/i,$db{Bedroom5Size});
($Bathroom1Length,$Bathroom1Width) = split(/X/i,$db{Bathroom1Size});
($Bathroom2Length,$Bathroom2Width) = split(/X/i,$db{Bathroom2Size});
($UtilityRoomLength,$UtilityRoomWidth) = split(/X/i,$db{UtilityRoomSize});
($OtherRoom1Length,$OtherRoom1Width) = split(/X/i,$db{OtherRoom1Size});
($OtherRoom2Length,$OtherRoom2Width) = split(/X/i,$db{OtherRoom2Size});
($OtherRoom3Length,$OtherRoom3Width) = split(/X/i,$db{OtherRoom3Size});
($Outbuilding1Length,$Outbuilding1Width) = split(/X/i,$db{Outbuilding1Size});



unless ($db{GreatRoomLevel}) {
$db{GreatRoomLevel} = "-";
}
unless ($db{FamilyRoomLevel}) {
$db{FamilyRoomLevel} = "-";
}
unless ($db{KitchenLevel}) {
$db{KitchenLevel} = "-";
}
unless ($db{DiningRoomLevel}) {
$db{DiningRoomLevel} = "-";
}
unless ($db{DenStudyLevel}) {
$db{DenStudyLevel} = "-";
}
unless ($db{Bedroom1Level}) {
$db{Bedroom1Level} = "-";
}
unless ($db{Bedroom2Level}) {
$db{Bedroom2Level} = "-";
}
unless ($db{Bedroom3Level}) {
$db{Bedroom3Level} = "-";
}
unless ($db{Bedroom4Level}) {
$db{Bedroom4Level} = "-";
}
unless ($db{Bedroom5Level}) {
$db{Bedroom5Level} = "-";
}
unless ($db{Bathroom1Level}) {
$db{Bathroom1Level} = "-";
}
unless ($db{Bathroom2Level}) {
$db{Bathroom2Level} = "-";
}
unless ($db{OtherRoom1Level}) {
$db{OtherRoom1Level} = "-";
}
unless ($db{OtherRoom2Level}) {
$db{OtherRoom2Level} = "-";
}
unless ($db{UtilityRoomLevel}) {
$db{UtilityRoomLevel} = "-";
}

unless ($db{LivingRoomLevel}) {
$db{LivingRoomLevel} = "-";
}

unless ($LivingRoomLength) {
$LivingRoomLength = "-";
}
unless ($LivingRoomWidth) {
$LivingRoomWidth = "-";
}
unless ($GreatRoomLength) {
$GreatRoomLength = "-";
}
unless ($GreatRoomWidth) {
$GreatRoomWidth = "-";
}
unless ($FamilyRoomLength) {
$FamilyRoomLength = "-";
}
unless ($FamilyRoomWidth) {
$FamilyRoomWidth = "-";
}
unless ($KitchenLength) {
$KitchenLength = "-";
}
unless ($KitchenWidth) {
$KitchenWidth = "-";
}
unless ($DiningRoomLength) {
$DiningRoomLength = "-";
}
unless ($DiningRoomWidth) {
$DiningRoomWidth = "-";
}
unless ($DenStudyLength) {
$DenStudyLength = "-";
}
unless ($DenStudyWidth) {
$DenStudyWidth = "-";
}
unless ($Bedroom1Length) {
$Bedroom1Length = "-";
}
unless ($Bedroom1Width) {
$Bedroom1Width = "-";
}
unless ($Bedroom2Length) {
$Bedroom2Length = "-";
}
unless ($Bedroom2Width) {
$Bedroom2Width = "-";
}
unless ($Bedroom3Length) {
$Bedroom3Length = "-";
}
unless ($Bedroom3Width) {
$Bedroom3Width = "-";
}
unless ($Bedroom4Length) {
$Bedroom4Length = "-";
}
unless ($Bedroom4Width) {
$Bedroom4Width = "-";
}
unless ($Bedroom5Length) {
$Bedroom5Length = "-";
}
unless ($Bedroom5Width) {
$Bedroom5Width = "-";
}
unless ($Bathroom1Length) {
$Bathroom1Length = "-";
}
unless ($Bathroom1Width) {
$Bathroom1Width = "-";
}
unless ($Bathroom2Length) {
$Bathroom2Length = "-";
}
unless ($Bathroom2Width) {
$Bathroom2Width = "-";
}
unless ($OtherRoom1Length) {
$OtherRoom1Length = "-";
}
unless ($OtherRoom1Width) {
$OtherRoom1Width = "-";
}
unless ($OtherRoom2Length) {
$OtherRoom2Length = "-";
}
unless ($OtherRoom2Width) {
$OtherRoom2Width = "-";
}
unless ($UtilityRoomLength) {
$UtilityRoomLength = "-";
}
unless ($UtilityRoomWidth) {
$UtilityRoomWidth = "-";
}


$LivingRoomLength =~ s/CHR1/\'/gi;


$LivingRoomWidth =~ s/CHR1/\'/gi;


$GreatRoomLength =~ s/CHR1/\'/gi;


$GreatRoomWidth =~ s/CHR1/\'/gi;


$FamilyRoomLength =~ s/CHR1/\'/gi;


$FamilyRoomWidth =~ s/CHR1/\'/gi;


$KitchenLength =~ s/CHR1/\'/gi;


$KitchenWidth =~ s/CHR1/\'/gi;


$DiningRoomLength =~ s/CHR1/\'/gi;


$DiningRoomWidth =~ s/CHR1/\'/gi;


$DenStudyLength =~ s/CHR1/\'/gi;


$DenStudyWidth =~ s/CHR1/\'/gi;


$Bedroom1Length =~ s/CHR1/\'/gi;


$Bedroom1Width =~ s/CHR1/\'/gi;


$Bedroom2Length =~ s/CHR1/\'/gi;


$Bedroom2Width =~ s/CHR1/\'/gi;


$Bedroom3Length =~ s/CHR1/\'/gi;


$Bedroom3Width =~ s/CHR1/\'/gi;


$Bedroom4Length =~ s/CHR1/\'/gi;


$Bedroom4Width =~ s/CHR1/\'/gi;


$Bedroom5Length =~ s/CHR1/\'/gi;


$Bedroom5Width =~ s/CHR1/\'/gi;


$Bathroom1Length =~ s/CHR1/\'/gi;


$Bathroom1Width =~ s/CHR1/\'/gi;


$Bathroom2Length =~ s/CHR1/\'/gi;


$Bathroom2Width =~ s/CHR1/\'/gi;


$OtherRoom1Length =~ s/CHR1/\'/gi;


$OtherRoom1Width =~ s/CHR1/\'/gi;


$OtherRoom2Length =~ s/CHR1/\'/gi;


$OtherRoom2Width =~ s/CHR1/\'/gi;


$UtilityRoomLength =~ s/CHR1/\'/gi;


$UtilityRoomWidth =~ s/CHR1/\'/gi;




$LivingRoomLength =~ s/CHR2/\"/gi;


$LivingRoomWidth =~ s/CHR2/\"/gi;


$GreatRoomLength =~ s/CHR2/\"/gi;


$GreatRoomWidth =~ s/CHR2/\"/gi;


$FamilyRoomLength =~ s/CHR2/\"/gi;


$FamilyRoomWidth =~ s/CHR2/\"/gi;


$KitchenLength =~ s/CHR2/\"/gi;


$KitchenWidth =~ s/CHR2/\"/gi;


$DiningRoomLength =~ s/CHR2/\"/gi;


$DiningRoomWidth =~ s/CHR2/\"/gi;


$DenStudyLength =~ s/CHR2/\"/gi;


$DenStudyWidth =~ s/CHR2/\"/gi;


$Bedroom1Length =~ s/CHR2/\"/gi;


$Bedroom1Width =~ s/CHR2/\"/gi;


$Bedroom2Length =~ s/CHR2/\"/gi;


$Bedroom2Width =~ s/CHR2/\"/gi;


$Bedroom3Length =~ s/CHR2/\"/gi;


$Bedroom3Width =~ s/CHR2/\"/gi;


$Bedroom4Length =~ s/CHR2/\"/gi;


$Bedroom4Width =~ s/CHR2/\"/gi;


$Bedroom5Length =~ s/CHR2/\"/gi;


$Bedroom5Width =~ s/CHR2/\"/gi;


$Bathroom1Length =~ s/CHR2/\"/gi;


$Bathroom1Width =~ s/CHR2/\"/gi;


$Bathroom2Length =~ s/CHR2/\"/gi;


$Bathroom2Width =~ s/CHR2/\"/gi;


$OtherRoom1Length =~ s/CHR2/\"/gi;


$OtherRoom1Width =~ s/CHR2/\"/gi;


$OtherRoom2Length =~ s/CHR2/\"/gi;


$OtherRoom2Width =~ s/CHR2/\"/gi;


$UtilityRoomLength =~ s/CHR2/\"/gi;


$UtilityRoomWidth =~ s/CHR2/\"/gi;










################ MORTGAGE CALCULATOR #####################################

	$preprice = $db{Price};

	$principal = "$db{Price}";
	$interest = 6.5;
	$monthlyinterest = ($interest)/1200;
	$termyear = 30;
	$numberofmonths = $termyear*12;
	
	$temp = 1 + $monthlyinterest;
	
	$expon = 1;
	for ($p = 0; $p < $numberofmonths; $p++)
	{
		$expon = $temp * $expon;
	}
	
	$expon = 1 / $expon;
	$expon = 1 - $expon;
	$expon = $monthlyinterest / $expon;

	$mtax = $db{EstimatedAnnualTax};
	$mtax = $mtax / 12;	

	$monthlypayment = $principal * $expon;
	$monthlypayment = $monthlypayment + $mtax;

	$monthlypayment=sprintf("%.2f",$monthlypayment);
	$monthlypayment = &commas($monthlypayment);



##############################################################################

	$db{Price} = &commas($db{Price});
	$monthlypayment = &commas($monthlypayment);
	$mortgagetax = $db{EstimatedAnnualTax};
	$db{EstimatedAnnualTax} = &commas($db{EstimatedAnnualTax});


	$paymentdisclosure =qq~
	* Payment based on $db{Price} sales price at 6.5% interest rate and $db{EstimatedAnnualTax} annual taxes.  Payment does not include homeowners insurance, possible PMI insurance.   For an exact payment on this property you will want to seek a mortgage officer.
	~;

if ($db{VirtualTourURL} =~ /http|www|visualtour/i) { $toururl =qq~<a href="$db{VirtualTourURL}" target="_blank"><img src="images/viewvirtualtour.jpg" height="30" width="368" alt="Click to View Virtual Tour" border="0"></a><br><br>~; }

if ($db{SaleRent} eq "S") {
$db{SaleRent} = "For Sale";
}
else {
$db{SaleRent} = "For Rent";
}

if ($db{Address2}) {
$db{Address2} = "$db{Address2}<br>";
}
else {
}

if ($db{ListingOffice1ID} eq "48") {
	if ($db{CoAgentID} eq "") {
	$db{CoAgentID} = "";
	}
	else {
	$db{CoAgentID} = "<a href=agents.idx?action=showagent&agent=$db{CoAgentID}>$db{CoAgentName}</a><br>";
	}	
$AgentName = "<a href=agents.idx?action=showagent&agent=$db{AgentID}>$db{AgentName}</a>";
$printoffice = qq~
<table border=0 cellpadding=0 cellspacing=0>
<tr>
<td>
<img src=images/era_showlogo.gif>
</td>
<td valign="top">
<font size="3"><b>Offered By:</b><br><a href="http://www.munciemls.com/agents.idx?action=showagent&agent=$db{AgentID}">$db{AgentName}</a><br>$db{CoAgentID}$db{ListingOffice1Name}</font><br>
</td>
<td>
<img src=images/era_showlogo.gif>
</td>
</tr>
</table>
~;
}
else {
	if ($db{CoAgentID} eq "") {
	$db{CoAgentID} = "";
	}
	else {
	$db{CoAgentID} = "$db{CoAgentName}<br>";
	}

$printoffice = "<table border=0 cellpadding=0 cellspacing=0><tr><td><img src=images/era_showlogo.gif></td><td><b><center>You may be represented by Eagle Real Estate when purchasing this property!<br>Please Call (765) 741-9111<br></center></td></tr></table>";
$realoffice = "Provided by $db{ListingOffice1Name} $db{AgentName}";
}




@thefeatures = split(/\|/,$db{UsesFeaturesDataToChoose});

$startcount = "0";
foreach $one (@thefeatures) {

$yasth = $dbh->prepare("select featurename,categoryname from features where codenum = ?");
$yasth->execute($one);

while (($featurename,$categoryname) = $yasth->fetchrow_array()) {

$categoryname = lc($categoryname);
$featurename = lc($featurename);

$realname =~ s/CHR1/\'/gi;
$realname =~ s/CHR2/\"/gi;
$categoryname =~ s/CHR1/\'/gi;
$categoryname =~ s/CHR2/\"/gi;


$showfeaturestable .= "<td nowrap><img src=images/dot.gif>$categoryname <b>$featurename</b></td>\n";

if ($startcount eq "1") {
$showfeaturestable .= "</tr><tr>\n";
$startcount = "0";
}
else {
$startcount++;
}

}
}







if ($db{Garage}) {
$fGarage = "<img src=images/dot.gif>Garage <b>$db{Garage}</b><img src=images/line_spacer.gif height=1 width=1><br>";
}
else {
}



if ($db{YearBuilt}) {
$fYearBuilt = "<img src=images/dot.gif>Year Built <b>$db{YearBuilt}</b><br>";
}
else {
}

if ($db{OutbuildingType}) {
$fOutbuildingType = "<img src=images/dot.gif>Outbuilding <b>$db{OutbuildingType}</b><img src=images/line_spacer.gif height=1 width=1><br>";
}
else {
}



&pull_photo_data_for_property_details_page($db{MLSNUM},9);  # routine at the bottom of config.idx



if (-e "/home/muncieml/public_html/pdf/$db{MLSNUM}\.pdf") {
$showpdf = "
<table border=\"0\" cellpadding=\"4\" cellspacing=\"0\">
<tr>
<td valign=\"top\">
<a href=\"pdf/$db{MLSNUM}.pdf\" target=\"_blank\"><img src=\"images/pdficon.gif\" border=\"0\"></a><br>
</td>
<td valign=\"middle\">
<a href=\"pdf/$db{MLSNUM}.pdf\" target=\"_blank\" class=\"pdf\">View Full Color PDF Brochure</a><br>
</td>
</tr>
</table>
";
}


if (-e "/home/muncieml/public_html/pdf/$db{MLSNUM}a\.pdf") {
$showpdf .= "
<table border=\"0\" cellpadding=\"4\" cellspacing=\"0\">
<tr>
<td valign=\"top\">
<a href=\"pdf/$db{MLSNUM}a.pdf\" target=\"_blank\"><img src=\"images/pdficon.gif\" border=\"0\"></a><br>
</td>
<td valign=\"middle\">
<a href=\"pdf/$db{MLSNUM}a.pdf\" target=\"_blank\" class=\"pdf\">View Full Color PDF Brochure</a><br>
</td>
</tr>
</table>
";
}

if ($totalpictures > 1) {
   $showgallery = "<table border=\"0\" cellpadding=\"0\" cellspacing=\"1\" bgcolor=\"#CCCCFF\"><tr>$showthumbs</tr></table>";
}
else {
   $showgallery = "";
}

if ($ENV{QUERY_STRING} =~ /City/) {
$check_back =qq~<a href="javascript:history.back()"><img src="images/top_pn_back.gif" width="49" height="27" alt="" border="0"></a>~;
}
else {
$check_back =qq~<a href="propertysearch.idx?type=Residential"><img src="images/top_pn_back.gif" width="49" height="27" alt="" border="0"></a>~;
}

$searchstrings = "City=$INPUT{City}&County=$INPUT{County}&MinPrice=$INPUT{MinPrice}&MaxPrice=$INPUT{MaxPrice}&MinBed=$INPUT{MinBed}&MinBath=$INPUT{MinBath}&Acreage=$INPUT{Acreage}&YBuilt=$INPUT{YBuilt}&MinSF=$INPUT{MinSF}&MaxSF=$INPUT{MaxSF}&elementaryschool=$INPUT{elementaryschool}&middleschool=$INPUT{middleschool}&highschool=$INPUT{highschool}&Address=$INPUT{Address}&Remarks=$INPUT{Remarks}&Show=$INPUT{Show}&sortby=$INPUT{sortby}&orderby=$INPUT{orderby}&Page=$INPUT{Page}";


if ($listing_order_number{$db{MLSNUM}} eq "1" || $listing_order_number{$db{MLSNUM}} eq "") {
$check_prev =qq~<img src="images/top_pn_prev_na.gif" width="44" height="13" alt="">~;
$listing_order_number{$db{MLSNUM}} = "1";
}
else {
$check_prev =qq~<a href="?$searchstrings&mlsnumber=$previous_listing{$db{MLSNUM}}"><img src="images/top_pn_prev.gif" width="44" height="13" alt="Go To Previous Listing" border="0"></a>~;
}



if ($listing_order_number{$db{MLSNUM}} eq $total_count || $total_count eq "") {
$check_next =qq~<img src="images/top_pn_next_na.gif" width="43" height="13" alt="">~;
$total_count = "1";
}
else {
$check_next =qq~<a href="?$searchstrings&mlsnumber=$next_listing{$db{MLSNUM}}"><img src="images/top_pn_next.gif" width="43" height="13" alt="Go To Next Listing" border="0"></a>~;
}

if ($INPUT{gate} eq "email") {
$checksave = "";
}
else {
$checksave = "<a href=\"javascript:save=window.open('save.idx?mlsnumber=$db{MLSNUM}&type=res','save','width=320, height=325, scrollbars=no'); save.focus();\"><img src=\"images/actions/savethishome.gif\" border=0></a><br>";
}

print <<"STARTOFTHEPAGE";

<html><head><title>MuncieMLS.com</title>
<script Language="JavaScript">
testurl = new Array($bigcount);

$buildscript



			function showupdate(photoIndex, photoDisplayType)
			{
			document['picture'].src = testurl[photoIndex];
			
			return;
			}
			
</script>



STARTOFTHEPAGE

&header_listings;




print qq~
<table border="0" cellpadding="0" cellspacing="0" width="751">
	<tr>
		<td valign="top" width="751">



<TABLE WIDTH=749 BORDER=0 CELLPADDING=0 CELLSPACING=0>
	<TR>
		<TD ROWSPAN=3>
			<IMG SRC="images/display/top_left_fill.gif" WIDTH=8 HEIGHT=69 ALT=""></TD>
		<TD COLSPAN=3 background="images/display/fill_address.gif" height="37" width="741">
			<table border="0" cellpadding="0" cellspacing="0" width="100%">
				<tr>
				<td valign="top" width="60%">
					<font face="Arial Narrow" size="5">$db{AddressNumber} $db{AddressDirection} $db{AddressStreet}, $db{City}</font><br>
				</td>
				<td valign="middle" width="25%" align="right"><font color="navy"><b>payments as low<br><a href="javascript:mortgagechange=window.open('mortgagechange.idx?price=$preprice&mlsnum=$db{MLSNUM}&mortgagetax=$db{EstimatedAnnualTax}','mortgagechange','width=384, height=385, scrollbars=yes'); mortgagechange.focus();">[Change]</a> as \$$monthlypayment*</b></font><br></td>
				<td valign="top" width="15%"><center><font face="Arial Narrow" size="5">\$$db{Price}</font><br></center></td>
				</td>
				</tr>
			</table>
		</TD>
	</TR>
	<TR>
		<TD ROWSPAN=2>
			<table border="0" cellpadding="0" cellspacing="0" width="136">
				<tr>
					<td valign="top" colspan="3" width="136">
						<img src="images/top_pn_top.gif" width="136" height="5" alt=""><br>
					</td>
				</tr>
				<tr>
					<td valign="top" rowspan="4" width="49">
						$check_back<br>
					</td>
					<td valign="top" width="44">
						$check_prev<br>
					</td>
					<td valign="top" width="43">
						$check_next<br>
					</td>
				</tr>
				<tr>
					<td valign="top" colspan="2" width="87">
						<img src="images/top_pn_divider.gif" width="87" height="3" alt=""><br>
					</td>
				</tr>
				<tr>
					<td valign="top" width="87" colspan="2">
						<table border="0" cellpadding="0" cellspacing="0" width="87">
							<tr>
								<td valign="top" width="35" align="right" class="pn">
									$listing_order_number{$db{MLSNUM}}&nbsp;<br>
								</td>
								<td valign="top" width="18">
									<img src="images/top_pn_of.gif" width="18" height="11" alt=""><br>
								</td>
								<td valign="top" width="34" align="left" class="pn">
									&nbsp;$total_count<br>
								</td>
							</tr>
						</table>
					</td>
				</tr>
			</table>
		</TD>
		<TD ROWSPAN=2>
			<IMG SRC="images/display/top_residentialoverview.gif" WIDTH=400 HEIGHT=32 ALT=""></TD>
		<TD valign="top" background="images/display/fill_address.gif" height="22" width="205">
			<font size="3" face="Arial"><b>http://$db{MLSNUM}.<font face="Arial Narrow">MuncieMLS</font>.com</b></font><br></TD>
	</TR>
	<TR>
		<TD>
			<IMG SRC="images/display/top_urlbottom.gif" WIDTH=205 HEIGHT=10 ALT=""></TD>
	</TR>
</TABLE>
<br>
<table border="0" cellpadding="0" cellspacing="0" width="751">
<tr>
<td width="375" valign="top">
	<table border="0" cellpadding="0" cellspacing="0" width="375">
	<tr>
		<td width="375" valign="top">
			<center>
			<img src="$showpicture" name=picture width="368" height="272"><br>
			$showgallery$toururl</center>
			<center>
				<table border="0" cellpadding="3" cellspacing="1" width="360" bgcolor="navy">
					<tr>
					<td width="100%" bgcolor="white">
						<!-- ZiffTalk button code starts-->
						<table>
						<tr>
						<td><div align='center'>
						<img src='images/live_agent.gif' border='0' width="360" height="35" usemap='#66672'>
						</div>
						</td>
						</tr>
						</table>
						<!-- ZiffTalk button code ends-->
					</td>
					</tr>
					<tr>
					<td width="100%" bgcolor="#E2E2E2">$printoffice</td>
					</tr>
				</table>
			</center>
			<img src="images/line_spacer.gif" height="5" width="1"><br>
			<center>
				<table border="0" cellpadding="0" cellspacing="0" width="360">
					<tr>
					<td width="178" valign="top">
						<a href="http://www.gettherightloan.com/loan.cgi"><img src="images/display/action/applyforloan.gif" border=0></a><br><img src="images/line_spacer.gif" height="4" width="1"><br>
						<a href="javascript:email=window.open('email.idx?action=listingmain&mlsnumber=$db{MLSNUM}&type=','email','width=375, height=450, scrollbars=no'); email.focus();"><img src="images/display/action/emailthishome.gif" border=0></a><br><img src="images/line_spacer.gif" height="4" width="1"><br>
						<a href="http://maps.google.com/maps?q=$db{AddressNumber} $db{AddressDirection} $db{AddressStreet}, $ShowCity{$db{City}}, IN $db{Zip}" target="_new"><img src="images/display/action/mapproperty.gif" border="0"></a><br>
					</td>
					<td width="4" valign="top">
					<img src="images/line_spacer.gif" height="1" width="4"><br>
					</td>
					<td valign="top" width="178">
						<a href="#requestshowing"><img src="images/display/action/requestashowing.gif" border=0></a><br><img src="images/line_spacer.gif" height="4" width="1"><br>
						<a href="javascript:printversion=window.open('showdetails_print.idx?mlsnumber=$db{MLSNUM}','printversion','width=635, height=540, scrollbars=yes'); printversion.focus();"><img src="images/display/action/printer.gif" border="0" alt="Printer Friendly Version"></a><br><img src="images/line_spacer.gif" height="4" width="1"><br>
						$checksave
					</td>
					</tr>
				</table>
			</center>
		</td>
	</tr>
	</table>
<br>
<center>
<table border="0" cellpadding="1" cellspacing="0" width="330" bgcolor="white">
	<tr>
		<td valign="top" width="100%" bgcolor="white" colspan="3"><font face="Tahoma" size="2" color="#000099"><b>Request A Showing</b></font></td>
	</tr>
	<tr>
		<td valign="top" width="100%">
~;
if ($INPUT{send}) {

		my $can = $dbh->prepare("select firstname,lastname from agents where mlsid = '$INPUT{Preferred_Agent}' and display = '1' ORDER BY agentid ASC LIMIT 0,1");
		$can->execute;
		while (($canfirstname,$canlastname) = $can->fetchrow_array()) {
		$canagentname = "$canfirstname $canlastname";
		}

	unless ($INPUT{Preferred_Agent} eq "a top producing agent") {
		
		my $sta = $dbh->prepare("select email from agents where mlsid = '$INPUT{Preferred_Agent}' and display = '1' ORDER BY agentid ASC LIMIT 0,1");
		$sta->execute;
		while (($email) = $sta->fetchrow_array()) {
		$stagentemail = $email;
		}

		open(MAIL,"|/usr/sbin/sendmail -t");
		print MAIL "To: $stagentemail\n";
		print MAIL "From: Brenda.Cross\@EagleSold.com\n";
		print MAIL "Subject: \*\*Online Showing Request received from your client!\*\*\n";
		print MAIL "Content-type: text/html\n\n";
		print MAIL qq~
		<html>
		<head>
		<title>E-Mailer</title>
		<link rel="stylesheet" TYPE="text/css" href="http://www.munciemls.com/includes/style.css">
		</head>
		<body bgcolor="white" leftMargin="0" topMargin="0" marginwidth="0" marginheight="0">
		<br><br>
		<center>
		<table border="0" cellspacing="0" cellpadding="0" width="600">
		<tr>
		<td valign="top" width="600">
		<img src="http://www.munciemls.com/images/emailheader.gif"><br>
		<table border="0" cellspacing="0" cellpadding="15" width="100%">
		<tr>
		<td valign="top" width="100%">
		<font size="2" face="Arial">
		<b>NEW SHOWING REQUESTED ONLINE!<br>
		Below is a copy of the showing request.</b><br><br>
		
		<u><b>Client Information</b></u><br>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{FirstName}<br>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{cAddress}<br>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{cCity}, $INPUT{cState} $INPUT{cZipCode}<br>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Phone Number $INPUT{Phone}<br>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;E-Mail Address $INPUT{EmailAddress}<br>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MuncieMLS.com UserID $INPUT{userid}<br><br>
		<u><b>Property Information</b></u><br>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MLS Number $INPUT{mlsnumber}<br>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{address}<br>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{city}, $INPUT{state} $INPUT{zip}<br>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Preferred Agent $canagentname<br><br>
		<u><b>Requested Time Of Showing</b></u><br>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{TMonth} $INPUT{TMonthDay} at $INPUT{TTimeHour}:$INPUT{TTimeMinute} $INPUT{TTimeAP}<br><br>
		<u><b>E-Mail Message</b></u><br>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{EmailMessage}<br><br>
		</font>
		</td>
		</tr>
		</table>
		<img src="http://www.munciemls.com/images/emailfooter.gif"><br><br><br>
		</td>
		</tr>
		</table>
		</center>
		</body>
		</html>
		~;
		close(MAIL); 
		}

open(MAIL,"|/usr/sbin/sendmail -t");
print MAIL "To: Ryan.Orr\@EagleSold.com\n";
print MAIL "From: info\@EagleSold.com\n";
print MAIL "Subject: \*\*Online Showing Request received!\*\*\n";
print MAIL "Content-type: text/html\n\n";
print MAIL qq~
<html>
<head>
<title>E-Mailer</title>
<link rel="stylesheet" TYPE="text/css" href="http://www.munciemls.com/includes/style.css">
</head>
<body bgcolor="white" leftMargin="0" topMargin="0" marginwidth="0" marginheight="0">
<br><br>
<center>
<table border="0" cellspacing="0" cellpadding="0" width="600">
<tr>
<td valign="top" width="600">
<img src="http://www.munciemls.com/images/emailheader.gif"><br>
<table border="0" cellspacing="0" cellpadding="15" width="100%">
<tr>
<td valign="top" width="100%">
<font size="2" face="Arial">
<b>NEW SHOWING REQUESTED ONLINE!<br>
Below is a copy of the showing request.</b><br><br>

<u><b>Client Information</b></u><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{FirstName}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{cAddress}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{cCity}, $INPUT{cState} $INPUT{cZipCode}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Phone Number $INPUT{Phone}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;E-Mail Address $INPUT{EmailAddress}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MuncieMLS.com UserID $INPUT{userid}<br><br>
<u><b>Property Information</b></u><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MLS Number $INPUT{mlsnumber}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{address}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{city}, $INPUT{state} $INPUT{zip}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Preferred Agent $canagentname<br><br>
<u><b>Requested Time Of Showing</b></u><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{TMonth} $INPUT{TMonthDay} at $INPUT{TTimeHour}:$INPUT{TTimeMinute} $INPUT{TTimeAP}<br><br>
<u><b>E-Mail Message</b></u><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{EmailMessage}<br><br>
</font>
</td>
</tr>
</table>
<img src="http://www.munciemls.com/images/emailfooter.gif"><br><br><br>
</td>
</tr>
</table>
</center>
</body>
</html>
~;
close(MAIL);

open(MAIL,"|/usr/sbin/sendmail -t");
print MAIL "To: $INPUT{EmailAddress}\n";
print MAIL "From: Brenda.Cross\@EagleSold.com\n";
print MAIL "Subject: \*\* Your recent Eagle showing request has been received! \*\*\n";
print MAIL "Content-type: text/html\n\n";
print MAIL qq~
<html>
<head>
<title>E-Mailer</title>
<link rel="stylesheet" TYPE="text/css" href="http://www.munciemls.com/includes/style.css">
</head>
<body bgcolor="white" leftMargin="0" topMargin="0" marginwidth="0" marginheight="0">
<br><br>
<center>
<table border="0" cellspacing="0" cellpadding="0" width="600">
<tr>
<td valign="top" width="600">
<img src="http://www.munciemls.com/images/emailheader.gif"><br>
<table border="0" cellspacing="0" cellpadding="15" width="100%">
<tr>
<td valign="top" width="100%">
<font size="2" face="Arial">
<b>Thank you for your recent online showing request!<br>
Below is a copy of the showing request for your records.  Please allow up to 24 hours for an Eagle representative to be in contact with you to confirm your showing.  Please note: Your showing request may be delayed if submited on Saturday, Sunday, or on Holidays.  Please call our office at 765-741-9111 if you need to change your appointment or have not received your confirmation before your showing time.</b><br><br>

<u><b>Client Information</b></u><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{FirstName}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{cAddress}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{cCity}, $INPUT{cState} $INPUT{cZipCode}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Phone Number $INPUT{Phone}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;E-Mail Address $INPUT{EmailAddress}<br><br>
<u><b>Property Information</b></u><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MLS Number $INPUT{mlsnumber}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{address}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{city}, $INPUT{state} $INPUT{zip}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Preferred Agent $canagentname<br><br>
<u><b>Requested Time Of Showing</b></u><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{TMonth} $INPUT{TMonthDay} at $INPUT{TTimeHour}:$INPUT{TTimeMinute} $INPUT{TTimeAP}<br><br>
<u><b>E-Mail Message</b></u><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$INPUT{EmailMessage}<br><br>
</font>
</td>
</tr>
</table>
<img src="http://www.munciemls.com/images/emailfooter.gif"><br><br><br>
</td>
</tr>
</table>
</center>
</body>
</html>
~;
close(MAIL);

print qq~
<font size="1" color="red"><b>Thank You, your request for a showing has been successfully sent to Eagle.  Please allow up to 24 hours for an Eagle representative to be in contact with you to confirm your showing.  Please call our office at 765-741-9111 if you need to change your appointment or have not received your confirmation before your showing time.</b></font><br>
~;
}
else {
my $rqasth = $dbh->prepare("select userid,email,password,firstname,lastname,address,city,state,zipcode,Phone,myERAAgent from users where userid = '$Cook{userid}'");
$rqasth->execute;
while (($ruserid,$remail,$rpassword,$rfirstname,$rlastname,$raddress,$rcity,$rstate,$rzip,$rphone,$ragentid) = $rqasth->fetchrow_array()) {

	if ($ragentid) {

		my $bpasth = $dbh->prepare("select mlsid,firstname,lastname from agents where mlsid = '$ragentid' and display = '1' ORDER BY agentid ASC LIMIT 0,1");
		$bpasth->execute;
		while (($amlsid,$firstname,$lastname) = $bpasth->fetchrow_array()) {
		$useagent = "<option value=\"$amlsid\">$firstname $lastname</option>\n";
		}

		my $apasth = $dbh->prepare("select mlsid,firstname,lastname from agents where display = '1' ORDER BY lastname ASC");
		$apasth->execute;
		while (($bmlsid,$firstname,$lastname) = $apasth->fetchrow_array()) {
		$buildpull .= "<option value=\"$bmlsid\">$firstname $lastname</option>\n";
		}

	}
	else {
		my $apasth = $dbh->prepare("select mlsid,firstname,lastname from agents where display = '1' ORDER BY lastname ASC");
		$apasth->execute;
		while (($cmlsid,$firstname,$lastname) = $apasth->fetchrow_array()) {
		$buildpull .= "<option value=\"$cmlsid\">$firstname $lastname</option>";
		}
	}


@days   = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
@months = ('January','February','March','April','May','June','July','August','September','October','November','December');

($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);

if ($hour eq "13") {
$hour = "1";
$pm = "y";
}if ($hour eq "14") {
$hour = "2";
$pm = "y";
}if ($hour eq "15") {
$hour = "3";
$pm = "y";
}if ($hour eq "16") {
$hour = "4";
$pm = "y";
}if ($hour eq "17") {
$hour = "5";
$pm = "y";
}if ($hour eq "18") {
$hour = "6";
$pm = "y";
}if ($hour eq "19") {
$hour = "7";
$pm = "y";
}if ($hour eq "20") {
$hour = "8";
$pm = "y";
}if ($hour eq "21") {
$hour = "9";
$pm = "y";
}if ($hour eq "22") {
$hour = "10";
$pm = "y";
}if ($hour eq "23") {
$hour = "11";
$pm = "y";
}if ($hour eq "24") {
$hour = "12";
$pm = "y";
}
$time = sprintf("%02d:%02d",$hour,$min);
$tdate = "$days[$wday], $months[$mon] $mday, $year";

$mon = $mon - 1;

if ($pm eq "y") {
$tm = "pm";
}
else {
$tm = "am";
}

if ($mday < "10") {
$mday = "0$mday";
}

if ($mon eq "12") {
$mon = "1";
}
else {
$mon++;
}

$newyear = $year+1900;
$actdate = "$mon\/$mday\/$newyear";

print qq~
<!-- Showing Form -->
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<FORM method="get" ACTION="showdetails.idx">
<input type="hidden" name="mlsnumber" value="$db{MLSNUM}">
<input type="hidden" name="send" value="1">
<input type="hidden" name="userid" value="$Cook{userid}">
<input type="hidden" name="city" value="$db{City}">
<input type="hidden" name="state" value="$db{State}">
<input type="hidden" name="zip" value="$db{Zip}">
<input type="hidden" name="address" value="$db{AddressNumber} $db{AddressDirection} $db{AddressStreet}">
<input type="hidden" name="City" value="$INPUT{City}">
<input type="hidden" name="County" value="$INPUT{County}">
<input type="hidden" name="MinPrice" value="$INPUT{MinPrice}">
<input type="hidden" name="MaxPrice" value="$INPUT{MaxPrice}">
<input type="hidden" name="MinBed" value="$INPUT{MinBed}">
<input type="hidden" name="MinBath" value="$INPUT{MinBath}">
<input type="hidden" name="Acreage" value="$INPUT{Acreage}">
<input type="hidden" name="YBuilt" value="$INPUT{YBuilt}">
<input type="hidden" name="MinSF" value="$INPUT{MinSF}">
<input type="hidden" name="MaxSF" value="$INPUT{MaxSF}">
<input type="hidden" name="elementaryschool" value="$INPUT{elementaryschool}">
<input type="hidden" name="middleschool" value="$INPUT{middleschool}">
<input type="hidden" name="highschool" value="$INPUT{highschool}">
<input type="hidden" name="Address" value="$INPUT{Address}">
<input type="hidden" name="Remarks" value="$INPUT{Remarks}">
<input type="hidden" name="Show" value="$INPUT{Show}">
<input type="hidden" name="sortby" value="$INPUT{sortby}">
<input type="hidden" name="orderby" value="$INPUT{orderby}">
<input type="hidden" name="Page" value="$INPUT{Page}">
<table border="0" cellpadding="2" cellspacing="0" width="100%">
<tr>
<td width="100%">
<font size="1"><b>Contact Information:</b></font><br>
<font size="1" face="Arial">
<u>Name</u><br>
<INPUT TYPE=TEXT SIZE=25 NAME="FirstName" value="$rfirstname $rlastname" class="adminform"><br>
<u>Address</u><br>
<INPUT TYPE=TEXT SIZE=25 NAME="cAddress" value="$raddress" class="adminform"><br>
<INPUT TYPE=TEXT SIZE=16 NAME="cCity" value="$rcity" class="adminform">, <SELECT NAME="cState" class="adminform">
		<OPTION value="$rstate">$rstate</OPTION>
                <OPTION>Alabama</OPTION>
                <OPTION>Alaska</OPTION>
                <OPTION>Arizona</OPTION>
                <OPTION>Arkansas</OPTION>
                <OPTION>California</OPTION>
                <OPTION>Connecticut</OPTION>
                <OPTION>Colorado</OPTION>
                <OPTION>Delaware</OPTION>
                <OPTION>District of Columbia</OPTION>
                <OPTION>Florida</OPTION>
                <OPTION>Georgia</OPTION>
                <OPTION>Hawaii</OPTION>
                <OPTION>Idaho</OPTION>
                <OPTION>Illinois</OPTION>
                <OPTION selected>Indiana</OPTION>
                <OPTION>Iowa</OPTION>
                <OPTION>Kansas</OPTION>
                <OPTION>Kentucky</OPTION>
                <OPTION>Louisiana</OPTION>
                <OPTION>Maine</OPTION>
                <OPTION>Maryland</OPTION>
                <OPTION>Massachusetts</OPTION>
                <OPTION>Michigan</OPTION>
                <OPTION>Minnesota</OPTION>
                <OPTION>Mississippi</OPTION>
                <OPTION>Missouri</OPTION>
                <OPTION>Montana</OPTION>
                <OPTION>Nebraska</OPTION>
                <OPTION>New Hampshire</OPTION>
                <OPTION>New Jersey</OPTION>
                <OPTION>New Mexico</OPTION>
                <OPTION>New York</OPTION>
                <OPTION>Nevada</OPTION>
                <OPTION>North Carolina</OPTION>
                <OPTION>North Dakota</OPTION>
                <OPTION>Ohio</OPTION>
                <OPTION>Oklahoma</OPTION>
                <OPTION>Oregon</OPTION>
                <OPTION>Pennsylvania</OPTION>
                <OPTION>Rhode Island</OPTION>
                <OPTION>South Carolina</OPTION>
                <OPTION>South Dakota</OPTION>
                <OPTION>Tennessee</OPTION>
                <OPTION>Texas</OPTION>
                <OPTION>Utah</OPTION>
                <OPTION>Vermont</OPTION>
                <OPTION>Virginia</OPTION>
                <OPTION>Washington</OPTION>
                <OPTION>West Virginia</OPTION>
                <OPTION>Wisconsin</OPTION>
                <OPTION>Wyoming</OPTION>
                </SELECT> <INPUT TYPE=TEXT SIZE=5 NAME="cZipCode" value="$rzip" class="adminform"><br>
		<u>Phone</u> Used to verify appointment<br>
		<INPUT TYPE=TEXT SIZE=25 NAME="Phone" value="$rphone" class="adminform"><br>
		<u>E-Mail Address</u><br>
		<INPUT TYPE=TEXT SIZE=25 NAME="EmailAddress" value="$remail" class="adminform"><br>
</td>
</tr>
<tr>
<td width="100%">
<font size="1"><b>When would you like to see this property?</b></font><br>
<SELECT NAME=TMonth SIZE=1 class="adminform">
		<OPTION value="$months[$mon]">$months[$mon]</option>
		<option value="Not Selected">----</option>
                <OPTION value="January">January</option>
                <OPTION value="February">February</option>
                <OPTION value="March">March</option>
                <OPTION value="April">April</option>
                <OPTION value="May">May</option>
                <OPTION value="June">June</option>
                <OPTION value="July">July</option>
                <OPTION value="August">August</option>
                <OPTION value="September">September</option>
                <OPTION value="October">October</option>
                <OPTION value="November">November</option>
                <OPTION value="December">December</option>
</select>
<SELECT NAME=TMonthDay SIZE=1 class="adminform">
		<OPTION value="$mday">$mday</option>
		<option value="No Selected">----</option>
                <OPTION value="01">01</option>
                <OPTION value="02">02</option>
                <OPTION value="03">03</option>
                <OPTION value="04">04</option>
                <OPTION value="05">05</option>
                <OPTION value="06">06</option>
                <OPTION value="07">07</option>
                <OPTION value="08">08</option>
                <OPTION value="09">09</option>
                <OPTION value="10">10</option>
                <OPTION value="11">11</option>
                <OPTION value="12">12</option>
                <OPTION value="13">13</option>
                <OPTION value="14">14</option>
                <OPTION value="15">15</option>
                <OPTION value="16">16</option>
                <OPTION value="17">17</option>
                <OPTION value="18">18</option>
                <OPTION value="19">19</option>
                <OPTION value="20">20</option>
                <OPTION value="21">21</option>
                <OPTION value="22">22</option>
                <OPTION value="23">23</option>
                <OPTION value="24">24</option>
                <OPTION value="25">25</option>
                <OPTION value="26">26</option>
                <OPTION value="27">27</option>
                <OPTION value="28">28</option>
                <OPTION value="29">29</option>
                <OPTION value="30">30</option>
                <OPTION value="31">31</option>
</select> at 
<select name="TTimeHour" size="1" class="adminform">
	<Option value="1">1</option>
	<Option value="2">2</option>
	<Option value="3">3</option>
	<Option value="4">4</option>
	<Option value="5">5</option>
	<Option value="6">6</option>
	<Option value="7">7</option>
	<Option value="8">8</option>
	<Option value="9">9</option>
	<Option value="10">10</option>
	<Option value="11">11</option>
	<Option value="12">12</option>
</select>:
<select name="TTimeMinute" size="1" class="adminform">
	<Option value="15">15</option>
	<Option value="30">30</option>
	<Option value="45">45</option>
	<Option value="00" selected>00</option>
</select>&nbsp;
<select name="TTimeAP" size="1" class="adminform">
	<Option value="PM" selected>PM</option>
	<Option value="AM">AM</option>
</select>
</center>
</td>
</tr>
<tr>
<td width="100%" valign="top">
<font size="1"><b>Choose your showing agent preference:</b></font><br>
<select name=Preferred_Agent class="adminform">
$useagent
<option value="a&nbsp;top&nbsp;producing&nbsp;agent">Please Choose For Me</option>
<option value=>==================</option>
$buildpull
</select>
</td>
</tr>
<tr>
<td width="100%" valign="top">
<font size="1" color="black"><b>Message To Showing Agent:</b></font><br>
<TEXTAREA ROWS=2 COLS=40 NAME=EmailMessage WRAP=PHYSICAL></TEXTAREA>
</td>
</tr>
<tr>
<td colspan="2">
<center><INPUT TYPE=SUBMIT VALUE="Submit Request" class="adminform"></center>
</td>
</tr>
</table>
</FORM>
</td>
</tr>

</table>

<!-- END Showing Form -->
~;
}
}


print qq~
</td>
</tr>
</table>
</center>

</td>
<td width="1" valign="top">
	<img src="images/line_spacer.gif" height="1" width="1"><br>
</td>
<td width="375" valign="top" bgcolor="white">
<img src="images/line_spacer.gif" height="1" width="11"><font face="Tahoma" size="2">$db{Remarks}</font><br>$showpdf
<img src="images/line_spacer.gif" height="3" width="1"><br>
<table border="0" cellpadding="1" cellspacing="0" width="375" bgcolor="#CCCCFF">
	<tr>
		<td valign="top" width="100%" bgcolor="#000099" colspan="3"><font face="Tahoma" size="2" color="white"><b>General Information</b></font></td>
	</tr>
	<tr>
		<td valign="top" nowrap>
			<img src="images/dot.gif">Total Rooms <b>$db{Rooms}</b><br><img src="images/line_spacer.gif" height="1" width="1"><br>
			<img src="images/dot.gif">Bedrooms <b>$db{Bedrooms}</b><br><img src="images/line_spacer.gif" height="1" width="1"><br>
			<img src="images/dot.gif">Full Bathrooms <b>$db{FullBaths}</b><br><img src="images/line_spacer.gif" height="1" width="1"><br>
			<img src="images/dot.gif">Half Bathrooms <b>$db{HalfBaths}</b><br><img src="images/line_spacer.gif" height="1" width="1"><br>
			<img src="images/dot.gif">Square Feet $db{TotalSqFt}<a href="javascript:sqftdetails=window.open('sqdetails.idx?mlsnumber=$db{MLSNUM}','sqftdetails','width=384, height=385, scrollbars=yes'); sqftdetails.focus();">[D]</a></b><br><img src="images/line_spacer.gif" height="1" width="1"><br>
			<img src="images/dot.gif">Est. Annual Taxes <b>$db{EstimatedAnnualTax}</b><img src="images/line_spacer.gif" height="1" width="1"><br>
			<img src="images/dot.gif">Year Built <b>$db{YearBuilt}</b><br><img src="images/line_spacer.gif" height="1" width="1"><br>
			<img src="images/dot.gif">Acres <b>$db{Acres}</b><br><img src="images/line_spacer.gif" height="1" width="1"><br>
		</td>
		<td valign="top" width="1"><img src="iamges/line_spacer.gif" height="1" width="1"><br></td>
		<td valign="top" nowrap>
			$fGarage
			$fOutbuildingType
			<img src="images/dot.gif">Township <b>$db{Township}</b><br><img src="images/line_spacer.gif" height="1" width="1"><br>
			<img src="images/dot.gif">Area <b>$db{Area}</b><br><img src="images/line_spacer.gif" height="1" width="1"><br>
			<img src="images/dot.gif">Subdivision <b>$db{Subdivision}</b><br><img src="images/line_spacer.gif" height="1" width="1"><br>
			<img src="images/dot.gif">Elem. School <b>$db{ElementarySchool}</b><br><img src="images/line_spacer.gif" height="1" width="1"><br>
			<img src="images/dot.gif">Middle School <b>$db{MiddleSchool}</b><br><img src="images/line_spacer.gif" height="1" width="1"><br>
			<img src="images/dot.gif">High School <b>$db{HighSchool}</b><br><img src=images/line_spacer.gif height=1 width=1><br>
		</td>
	</tr>
	<tr>
		<td valign="top" colspan="3" width="100%">
		<table border="0" cellpadding="0" cellspacing="0" width="100%">
		<tr>
			<td valign="top" width="15"><img src="images/dot.gif"></td>
			<td valign="top" width="100%">Directions: <b>$db{Directions}</b><br></td>
		</tr>
		</table>
		</td>
	</tr>
</table>
<img src="images/line_spacer.gif" height="3" width="1"><br>
<table border="0" cellpadding="1" cellspacing="0" width="375" bgcolor="#CCCCFF">
	<tr>
		<td valign="top" width="100%" bgcolor="#000099" colspan="3"><font face="Tahoma" size="2" color="white"><b>Property Features</b></font></td>
	</tr>
	$showfeaturestable
</table>
<img src="images/line_spacer.gif" height="3" width="1"><br>
<table border="0" cellpadding="1" cellspacing="0" width="375" bgcolor="#CCCCFF">
	<tr>
		<td valign="top" width="100%" bgcolor="#000099" colspan="3"><font face="Tahoma" size="2" color="white"><b>Room Measurements</b></font></td>
	</tr>
	<tr>
		<td valign="top" width="100%">
    <table border="0" cellpadding="1" cellspacing="0" width="375">
              <tr bgcolor="#999999"> 
                <td valign="top"><font color="#FFFFFF"><b>Room</b></font></td>
                <td valign="top"><div align="center"><font color="#FFFFFF"><b></b></font></div></td>
                <td valign="top">&nbsp;</td>
                <td valign="top"><div align="center"><font color="#FFFFFF"><b></b></font></div></td>
                <td valign="top"><div align="center"><font color="#FFFFFF"><b>Level</b></font></div></td>
                <td valign="top"><strong><font color="#FFFFFF">Room</font></strong></td>
                <td valign="top"><div align="center"><font color="#FFFFFF"><b></b></font></div></td>
                <td valign="top">&nbsp;</td>
                <td valign="top"><div align="center"><font color="#FFFFFF"><b></b></font></strong></div></td>
                <td valign="top"><div align="center"><font color="#FFFFFF"><b>Level</b></font></strong></div></td>
              </tr>
              <tr> 
                <td valign="top"><b>Bedroom 1</b></td>
                <td valign="top"><div align="center"><b>$Bedroom1Length</b></div></td>
                <td valign="top"><div align="center"><b>x</b></div></td>
                <td valign="top"><div align="center"><b>$Bedroom1Width</b></div></td>
                <td valign="top"><div align="center"><b>$db{Bedroom1Level}</b></div></td>
                <td valign="top"><b>Kitchen</b></td>
                <td valign="top"><div align="center"><b>$KitchenLength</b></div></td>
                <td valign="top"><div align="center"><b>x</b></div></td>
                <td valign="top"><div align="center"><b>$KitchenWidth</b></div></td>
                <td valign="top"><div align="center"><b>$db{KitchenLevel}</b></div></td>
              </tr>
              <tr bgcolor="#EAE7E7"> 
                <td valign="top"><b>Bedroom 2</b></td>
                <td valign="top"><div align="center"><b>$Bedroom2Length</b></div></td>
                <td valign="top"><div align="center"><b>x</b></div></td>
                <td valign="top"><div align="center"><b>$Bedroom2Width</b></div></td>
                <td valign="top"><div align="center"><b>$db{Bedroom2Level}</b></div></td>
                <td valign="top"><b>Dining Room</b></td>
                <td valign="top"><div align="center"><b>$DiningRoomLength</b></div></td>
                <td valign="top"><div align="center"><b>x</b></div></td>
                <td valign="top"><div align="center"><b>$DiningRoomWidth</b></div></td>
                <td valign="top"><div align="center"><b>$db{DiningRoomLevel}</b></div></td>
              </tr>
              <tr> 
                <td valign="top"><b>Bedroom 3</b></td>
                <td valign="top"><div align="center"><b>$Bedroom3Length</b></div></td>
                <td valign="top"><div align="center"><b>x</b></div></td>
                <td valign="top"><div align="center"><b>$Bedroom3Width</b></div></td>
                <td valign="top"><div align="center"><b>$Bedroom3Level</b></div></td>
                <td valign="top"><b>Family Room</b></td>
                <td valign="top"><div align="center"><b>$FamilyRoomLength</b></div></td>
                <td valign="top"><div align="center"><b>x</b></div></td>
                <td valign="top"><div align="center"><b>$FamilyRoomWidth</b></div></td>
                <td valign="top"><div align="center"><b>$db{FamilyRoomLevel}</b></div></td>
              </tr>
              <tr bgcolor="#EAE7E7"> 
                <td valign="top"><b>Bedroom 4</b></td>
                <td valign="top"><div align="center"><b>$Bedroom4Length</font></div></td>
                <td valign="top"><div align="center"><b>x</b></div></td>
                <td valign="top"><div align="center"><b>$Bedroom4Width</b></div></td>
                <td valign="top"><div align="center"><b>$db{Bedroom4Level}</b></div></td>
                <td valign="top"><b>Den / Study</b></td>
                <td valign="top"><div align="center"><b>$DenStudyLength</b></div></td>
                <td valign="top"><div align="center"><b>x</b></div></td>
                <td valign="top"><div align="center"><b>$DenStudyWidth</b></div></td>
                <td valign="top"><div align="center"><b>$db{DenStudyLevel}</b></div></td>
              </tr>
              <tr> 
                <td valign="top"><b>Bedroom 5</b></td>
                <td valign="top"><div align="center"><b>$Bedroom5Length</b></div></td>
                <td valign="top"><div align="center"><b>x</b></div></td>
                <td valign="top"><div align="center"><b>$Bedroom5Width</b></div></td>
                <td valign="top"><div align="center"><b>$db{Bedroom5Level}</b></div></td>
                <td valign="top"><b>Other Room</b></td>
                <td valign="top"><div align="center"><b>$OtherRoom1Length</b></div></td>
                <td valign="top"><div align="center"><b>x</B></div></td>
                <td valign="top"><div align="center"><b>$OtherRoom1Width</b></div></td>
                <td valign="top"><div align="center"><b>$db{OtherRoom1Level}</b></div></td>
              </tr>
              <tr bgcolor="#EAE7E7"> 
                <td valign="top"><b>Bathroom 1</b></td>
                <td valign="top" colspan="4"><div align="center"><b>$Bathroom1Size</b></div></td>
                <td valign="top"><b>Other Room</b></td>
                <td valign="top"><div align="center"><b>$OtherRoom2Length</font></div></td>
                <td valign="top"><div align="center"><b>x</b></div></td>
                <td valign="top"><div align="center"><b>$OtherRoom2Width</b></div></td>
                <td valign="top"><div align="center"><b>$db{OtherRoom2Level}</b></div></td>
              </tr>
              <tr> 
                <td valign="top"><b>Bathroom 2</b></td>
                <td valign="top" colspan="4"><div align="Center"><b>$Bathroom2Size</b></div></td>
	        <td valign="top"><b>Other Room</b></td>
                <td valign="top"><div align="center"><b>$OtherRoom3Length</b></div></td>
                <td valign="top"><div align="center"><b>x</b></div></td>
                <td valign="top"><div align="center"><b>$OtherRoom3Width</b></div></td>
                <td valign="top"><div align="center"><b>$db{OtherRoom3Level}</b></div></td>
              </tr>
              <tr bgcolor="#EAE7E7"> 
                <td valign="top"><b>Living Room</font></td>
                <td valign="top"><div align="center"><b>$LivingRoomLength</b></div></td>
                <td valign="top"><div align="center"><b>x</b></div></td>
                <td valign="top"><div align="center"><b>$LivingRoomWidth</b></div></td>
                <td valign="top"><div align="center"><b>$db{LivingRoomLevel}</b></div></td>
                <td valign="top"><b>Utility Room</b></td>
                <td valign="top"><div align="center"><b>$UtilityRoomLength</b></div></td>
                <td valign="top"><div align="center"><b>x</font></b></td>
                <td valign="top"><div align="center"><b>$UtilityRoomWidth</b></div></td>
                <td valign="top"><div align="center"><b>$db{UtilityRoomLevel}</b></div></td>
              </tr>
              <tr> 
                <td valign="top"><b>Great Room</font></td>
                <td valign="top"><div align="center"><b>$GreatRoomLength</b></div></td>
                <td valign="top"><div align="center"><b>x</b></div></td>
                <td valign="top"><div align="center"><b>$GreatRoomWidth</b></div></td>
                <td valign="top"><div align="center"><b>$db{GreatRoomLevel}</b></div></td>
                <td valign="top" colspan="5">&nbsp;</td>
              </tr>
            </table>
		</td>
	</tr>
</table>
<br>$realoffice<br>$paymentdisclosure




</td>
</tr>
</table>




<br>

~;
unless ($INPUT{send} eq "1") {

@variables = ($Cook{userid},$INPUT{mlsnumber});
$sql_query = "INSERT INTO hits values (?,?,'res',now())";
my $zzaasth = $dbh->do($sql_query, undef, @variables);

my $uasth = $dbh->do("update users set lastlogin = now() where userid = '$Cook{userid}'");

}

$dbh->disconnect;

&footer;

}


sub commas {
	local($_)=@_;
	1 while s/(.*\d)(\d\d\d)/$1,$2/;
	$_;
}