PROPERTIES

Select a recently added item or alternatively search below for a specific category.

<% Set MyCmd = Server.CreateObject("ADODB.Command") MyCmd.ActiveConnection = MyConn MyCmd.CommandText = "SELECT * FROM Forces_Properties WHERE PropertyID = ? AND Deleted = 'no' AND Paid = 'yes'" MyCmd.Parameters.Append MyCmd.CreateParameter("", 3, 1, , request("id")) Set RSNews = Server.CreateObject("ADODB.RecordSet") RSNews.Open MyCmd IF RSNews.EOF then %>

Sorry! Property no longer exists.

<%else Do While Not RSNews.EOF%>

<%=RSNews("Title")%>

<%=RSNews("Title")%>

£<%=RSNews("Price")%>

<%if RSNews("Image1") <> "" then%>" width="300" class="mainimg" alt="" /><%end if%>

PRICE :
£<%=RSNews("Price")%>   

PROPERTY REF : <%=RSNews("PropertyID")%>
END DATE : <%=DateAdd("m", 6, RSNews("EntryDate"))%>

Description :
<%=RSNews("Description")%>

Property :
<%if RSNews("PropertyType") = "tolet" then saytype = "To Let" else saytype = "For Sale" end if%> <%=saytype%>

Item Location :
<%=RSNews("Location")%>

<%if session("AccountID") > 0 then%>

Contact Details :
<%=RSNews("TelNo")%>
"><%=RSNews("Email")%>

" class="email">EMAIL SELLER <%else%> " class="email2">LOGIN FOR DETAILS <%end if%>
<%RSNews.Movenext Loop end if%>