%
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
%>
|
|
| 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 %>
|
|
<%
rsSearch.MoveNext
End If
Next
objADO.close
set objADO = nothing
%>