<% sSQL = "SELECT * FROM RELISTING where REListingEndDate >= #" & Date() & "# ORDER BY REListingId DESC" Set rsSearch = Server.CreateObject("ADODB.Recordset") rsSearch.Open sSQL, objADO, 3, 3 %>

NEWEST PROPERTIES

The lastest listings added to our database are located below.

<% x = 0 For x = 1 to 5 If rsSearch.eof then Exit For Else %> <% rsSearch.MoveNext End If Next objADO.close set objADO = nothing %>
" class='link'> <%If Len(rsSearch("REListingImage")) > 0 Then If UCase(Left(rsSearch("REListingImage"),7))="HTTP://" Then%> " border="0" height="110" width="150"> <%Else%> " border="0" height="110" width="150"> <%End If Else%> <%End If%>
Location <%=rsSearch("REListingCity")%>
Property Type <%= rsSearch("REListingType") %>
Bedrooms <% if rsSearch("ReListingBedrooms") > 0 then %> <%=rsSearch("ReListingBedrooms")%> <% else %> Not Given <% end if %>
Bathrooms <% if rsSearch("ReListingBathrooms") > 0 then %> <%=rsSearch("ReListingBathrooms")%> <% else %> Not Given <% end if %>
Price <% if rsSearch("ReListingPrice") > 0 then %> <%= formatcurrency(rsSearch("ReListingPrice"))%> <% else %> Contact For Price <% end if %>
" class='link'>View Details
<% if Session("AccessLevel") = "1" or session("UserName") = rsSearch("REListingUserName") then %> ">   ">
<% end if %>