<!-- #INCLUDE FILE="security.asp" -->

<!-- #INCLUDE FILE="incADO.asp" -->


<%

strAccessLevel = session("AccessLevel")
strUserName2 = session("userName")
strId = request("Id")

' Create a recordset object to store specific table information
	Set objrs = Server.CreateObject("ADODB.Recordset")

SQL = "Select * From TblWishList where Id=" & strId	

	'Set the recordset object equal to the SQL query string
		objrs.Open SQL, objADO, 1, 3
		
		'strId = objrs("Id")
		strType = objrs("PropertyType")
		strTerms = objrs("PropertyTerms")
		strLowPrice = objrs("LowPrice")
		strHighPrice = objrs("HighPrice")
		strTotalFt = objrs("TotalFt")
		strBedrooms = objrs("Bedrooms")
		strBathrooms = objrs("Bathrooms")
		strState = objrs("State")
		strCity = objrs("City")
		strZip = objrs("Zip")
		strCountry = objrs("Country")
		
		PageNo = cInt(request.form("page"))
		sSQL = request.form("strSQL")
		If PageNo = "" then
		PageNo=1
		end if

		If PageNo < 1 then
		PageNo=1
		end if
	
	
sSQL = "SELECT * FROM (REFlooring RIGHT JOIN (RERoom RIGHT JOIN (REExterior RIGHT JOIN"
sSQL = sSQL & " (REAC RIGHT JOIN (((((REHeat RIGHT JOIN (REGarage RIGHT JOIN"
sSQL = sSQL & " (REDriveway RIGHT JOIN REListing ON REDriveway.REDrivewayID = REListing.REDrivewayID)"
sSQL = sSQL & " ON REGarage.REGarageID = REListing.REGarageID) ON REHeat.REHeatID = REListing.REHeatID)"
sSQL = sSQL & " LEFT JOIN RERoof ON REListing.RERoofID = RERoof.RERoofID) LEFT JOIN"
sSQL = sSQL & " RESewer ON REListing.RESewerID = RESewer.RESewerID) LEFT JOIN"
sSQL = sSQL & " REStyle ON REListing.REStyleID = REStyle.REStyleID) LEFT JOIN"
sSQL = sSQL & " REWater ON REListing.REWaterID = REWater.REWaterID) ON REAC.REACID = REListing.REACID)"
sSQL = sSQL & " ON REExterior.REExteriorID = REListing.REExteriorID)"
sSQL = sSQL & " ON (RERoom.RERoomID = REListing.REListingRoom8ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom7ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom6ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom5ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom4ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom3ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom2ID)"
sSQL = sSQL & " AND (RERoom.RERoomID = REListing.REListingRoom1ID))"
sSQL = sSQL & " ON (REFlooring.REFlooringID = REListing.REListingFlooring8ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring7ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring6ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring5ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring4ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring3ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring2ID)"
sSQL = sSQL & " AND (REFlooring.REFlooringID = REListing.REListingFlooring1ID))"
sSQL = sSQL & " WHERE ("
	If Len(strType) > 0 Then sSQL = sSQL & "(REListingType='" + strType + "') AND "
	If Len(strTerms) > 0 Then sSQL = sSQL & "(RESaleType='" + strTerms + "') AND "
	If (strBedrooms) <> 0 Then sSQL = sSQL & "((REListingBedrooms) >= " & strBedrooms & ") AND "
	If (strBathrooms) <> 0 Then sSQL = sSQL & "((REListingBathrooms) >= " & strBathrooms & ") AND "
	If (strTotalFt) <> 0 Then sSQL = sSQL & "(REListingTotalFt >= " & strTotalFt & ") AND "
	
	If strState <> "" Then sSQL = sSQL & "(REListingState = '" + strState + "') AND "
	If strCity <> "" Then sSQL = sSQL & "(REListingCity = '" + strCity + "') AND "
	If strZip <> "" Then sSQL = sSQL & "(REListingZip = '" + strZip + "') AND "
	If strCountry <> "" Then sSQL = sSQL & "(REListingCountry = '" + strCountry + "') AND "
	
	If (strLowPrice) <> 0 And Len(strHighPrice) < 1 Then sSQL = sSQL & "(REListingPrice >= " & strLowPrice & ") AND "
	If (strLowPrice) <> 0 And Len(strHighPrice) > 0 Then sSQL = sSQL & "(REListingPrice BETWEEN " & strLowPrice & " AND " & strHighPrice & ") AND "
	
	sSQL = sSQL & "(REListingActive=True)) order by REListingCity, REListingPrice, REListingAddress1"
	

Set rsSearch = Server.CreateObject("ADODB.Recordset")
rsSearch.Open sSQL, objADO, 3, 3
TotalRecs = rsSearch.recordcount
rsSearch.Pagesize=9
TotalPages = cInt(rsSearch.pagecount)
if PageNo > TotalPages then
PageNo = TotalPages
end if
if not rsSearch.eof then
rsSearch.absolutepage=PageNo

strSaleType = rsSearch("RESaleType")

end if

if not rsSearch.eof then
strStateName = rsSearch("REListingState")

SQL = "SELECT * FROM TblStates where StateName = '" + strStateName + "'"

Set rsState = Server.CreateObject("ADODB.Recordset")
rsState.Open SQL, objADO, 3, 3
end if 


Sub DisplayREThumbnails%>
	
	<a href="detail.asp?ID=<%=rsSearch("REListingID")%>">
		<%If Len(rsSearch("REListingImage")) > 0 Then
			If UCase(Left(rsSearch("REListingImage"),7))="HTTP://" Then%>
				<img src="<%=rsSearch("REListingImage")%>" border="0" height="110" width="150">
			<%Else%>
				<img src="upload/<%=rsSearch("REListingImage")%>" border="0" height="110" width="150">
			<%End If
		Else%>
			<img src="images/photonotavailable.gif" border="0" height="110" width="150">
		<%End If%></a>
		
		
		<% if Session("AccessLevel") = "1" or  session("UserName") = rsSearch("REListingUserName") then %>
		
		<a href="step1.asp?ID=<%=rsSearch("ReListingID")%>">
		
		
		<img src="images/ibtnedit.gif" border=0></a>&nbsp;&nbsp;
		<a href="delete.asp?ID=<%=rsSearch("ReListingID")%>"><img src="images/ibtnDelete.gif" border=0></a>
		<br>
		<% end if %>
		<font size="1">
		<%= rsSearch("REListingType") %>, <%= rsSearch("RESaleType") %><br>
		Date Listed: <%= rsSearch("REDateAdded") %><br>
		Site Listing #: <%= rsSearch("REListingId") %><br>
		
		<p>
		<% if rsSearch("REListingPrice") > 0 then %>
		Price: <%= formatCurrency(rsSearch("REListingPrice"))%><br>
		<% else %>
		Contact For Price<br>
		<% end if %>
		
		
		<%
		if rsSearch("REDisplayAddress") = "1" then 
		Response.Write rsSearch("REListingAddress1") & "<br>"
		end if 
		Response.Write rsSearch("REListingCity") & ",&nbsp;" & rsState("StateId") & "&nbsp;" & rsSearch("REListingZip")%></font></a><br><font size="2" face="Arial" style="font-family: Arial, MS Sans Serif; font-size: 8pt">
		<%
		lREListingTotalFt = rsSearch("REListingTotalFt")
		iREListingBedrooms = rsSearch("REListingBedrooms")
		iREListingBathrooms = rsSearch("REListingBathrooms")
		curREListingPrice = rsSearch("REListingPrice")
		If lREListingTotalFt > 0 Then Response.Write lREListingTotalFt & " sq. ft.<br>"
		If iREListingBedrooms > 0 Then Response.Write iREListingBedrooms & "&nbsp;Bedrooms"
		If iREListingBathrooms > 0 And Len(iREListingBathrooms) > 0 Then 
			Response.Write "&nbsp;/&nbsp;" & iREListingBathrooms & "&nbsp;Baths<br>"
		
		End If
		%></font>
		<p>
<%End Sub%>
	  
<!-- #include file="inclTop.asp" -->

    <!-- #include file="incside.asp" -->
            <p><b><font size="2" color="#000000">&nbsp &nbsp WISH LIST RESULTS</font></b> - 
            
            
            <font size="2">&nbsp &nbsp <%=TotalRecs%> item(s) found
              <p>
            
 </p>

<% 
x = 0
For x = 1 to 3
	If rsSearch.eof then
		Exit For
	Else		
%>
    

<table border="0" cellpadding="0" cellspacing="0" style="font-family: Arial, MS Sans Serif; font-size: 8pt">
      
      
	  <tr>
		

		<td width="155" valign="top" align="center"><%If Not rsSearch.EOF Then%><%Call DisplayREThumbnails%>
		<%rsSearch.MoveNext%>
		<%End If%></td>

		
		<td bgcolor="#C0C0C0" width="1" align="center"></td>
		
		
		<td width="155" valign="top" align="center"><%If Not rsSearch.EOF Then%><%Call DisplayREThumbnails%>
		<%rsSearch.MoveNext%>
		<%End If%></td>

		
		<td bgcolor="#C0C0C0" width="1" align="center"></td>
		

		<td width="155" valign="top" align="center"><%If Not rsSearch.EOF Then%><%Call DisplayREThumbnails%>
		<%End If%></td>
		
		</tr>
		
		
		<tr>
		<td  width="139" bgcolor="#C0C0C0" height="1"></td>
		<td width="1" ></td>
		
		<td  width="139" bgcolor="#C0C0C0" width="1"></td>
		<td width="1" ></td>
		
		<td  width="139" bgcolor="#C0C0C0" height="1"></td>
		
		</tr>
		
		
		</table>
			
		<%If Not rsSearch.EOF Then rsSearch.MoveNext%>
		<%		
		End If
		Next 
		%> 
		
		
<table border="0" cellpadding="0" cellspacing="0" width="435" 
	style="font-family: Arial, MS Sans Serif; font-size: 8pt">
<tr><td width="33%" valign="top" align="center"><br>
	<form method="post" action="viewwishlist.asp" id=form1 name=form1>
		<input type="hidden" name="Page" value="<%=PageNo-1%>">
		<input type="hidden" name="Type" value="<%=strType%>">
		<input type="hidden" name="Terms" value="<%=strTerms%>">
		<input type="hidden" name="LowPrice" value="<%=strLowPrice%>">
		<input type="hidden" name="HighPrice" value="<%=strHighPrice%>">
		<input type="hidden" name="Bedrooms" value="<%=strBedrooms%>">
		<input type="hidden" name="Bathrooms" value="<%=strBathrooms%>">
		<input type="hidden" name="TotalFt" value="<%=strTotalFt%>">	
		<input type="hidden" name="City" value="<%=strCity%>">
		<input type="hidden" name="State" value="<%=strState%>">	
		<input type="hidden" name="Zip" value="<%=strZip%>">
		<input type="hidden" name="Country" value="<%=strCountry%>">
		<input type="hidden" name="Id" value="<%=strId%>">	
		
				
		<INPUT ID=cmdNavPrev title='Click here to go to Previous Page' TYPE=submit VALUE="<" style='font-family: Small Fonts; font-size:7pt; font-weight:600; color:#21638C; width:55; height:18'>
		</form></td>
<td width="33%" valign="top" align="center"><br>
    <font class="menuDisabled">Page <%=PageNo%>&nbsp;of&nbsp;<%=TotalPages%></font><br>
	<font class="menuDisabled"><%=TotalRecs%> item(s) found.</font>
	</td>	
<td width="33%" valign="top" align="center"><br>
<form method="post" action="viewwishlist.asp" id=form2 name=form2>
		<input type="hidden" name="Page" value="<%=PageNo+1%>">		
			
		<input type="hidden" name="Type" value="<%=strType%>">
		<input type="hidden" name="Terms" value="<%=strTerms%>">
		<input type="hidden" name="LowPrice" value="<%=strLowPrice%>">
		<input type="hidden" name="HighPrice" value="<%=strHighPrice%>">
		<input type="hidden" name="Bedrooms" value="<%=strBedrooms%>">
		<input type="hidden" name="Bathrooms" value="<%=strBathrooms%>">
		<input type="hidden" name="TotalFt" value="<%=strTotalFt%>">	
		<input type="hidden" name="City" value="<%=strCity%>">
		<input type="hidden" name="State" value="<%=strState%>">	
		<input type="hidden" name="Zip" value="<%=strZip%>">
		<input type="hidden" name="Country" value="<%=strCountry%>">
		<input type="hidden" name="Id" value="<%=strId%>">	
			
			
		<INPUT ID=cmdNavNext title='Click here to go to Next Page' TYPE=submit VALUE=">" style='font-family: Small Fonts; font-size:7pt; font-weight:600; color:#21638C; width:55; height:18'>
		</form></td></tr></table>
<!--#INCLUDE FILE="inclfooter.asp"-->