%Option Explicit
dim oRcProperty1, oRcProperty2, oConn, sqlProperty1, sqlProperty2, pid1, pid2, pid3
dim pid4, pid5, pid6, pdline1, pdline2, pdline3, pdline4, pdline5, pdline6, image1
dim image2, image3
%>
<%
Set oRcProperty1=Server.CreateObject("Adodb.RecordSet")
Set oRcProperty2=Server.CreateObject("Adodb.RecordSet")
sqlProperty1 = "SELECT top 3 tblAddNewProperty.Property_Id AS tblAddNewProperty_Property_Id,"
sqlProperty1 = sqlProperty1 + "tblAddNewProperty.Property_Line_Description,"
sqlProperty1 = sqlProperty1 + "tblPropertyImage.Image_Path1"
sqlProperty1 = sqlProperty1 + " FROM tblPropertyImage INNER JOIN tblAddNewProperty"
sqlProperty1 = sqlProperty1 + " ON tblPropertyImage.Property_Id = tblAddNewProperty.Property_Id"
sqlProperty1 = sqlProperty1 + " WHERE tblAddNewProperty.Property_Status='" & "active"&"'"
sqlProperty1 = sqlProperty1 + " AND tblAddNewProperty.Property_For='" & "sale"&"'"
sqlProperty1 = sqlProperty1 + " ORDER BY tblAddNewProperty.Id DESC"
oRcProperty1.open sqlProperty1,oConn,3
pid1=oRcProperty1("tblAddNewProperty_Property_Id")
image1=oRcProperty1("Image_Path1")
pdline1=oRcProperty1("Property_Line_Description")
oRcProperty1.movenext
pid2=oRcProperty1("tblAddNewProperty_Property_Id")
image2=oRcProperty1("Image_Path1")
pdline2=oRcProperty1("Property_Line_Description")
oRcProperty1.movenext
pid3=oRcProperty1("tblAddNewProperty_Property_Id")
image3=oRcProperty1("Image_Path1")
pdline3=oRcProperty1("Property_Line_Description")
sqlProperty2="select top 3 * from tblAddNewProperty where Property_For='rent' and Property_Status='active' order by Id desc"
oRcProperty2.open sqlProperty2,oConn,3
pid4=oRcProperty2("Property_Id")
pdline4=oRcProperty2("Property_Line_Description")
oRcProperty2.movenext
pid5=oRcProperty2("Property_Id")
pdline5=oRcProperty2("Property_Line_Description")
oRcProperty2.movenext
pid6=oRcProperty2("Property_Id")
pdline6=oRcProperty2("Property_Line_Description")
%>
Brian Thomas Partnership:U.K Property Services
Home
|
About Us
Property Search
Any
75,000
100,000
150,000
175,000
200,000
250,000
300,000
350,000
400,000
450,000
500,000
Type
Any
House
Flat
Bungalow
Letting
Our large,
professionally run
portfolio of rented property is
actively and responsibly
managed and we are constantly
in touch with high calibre prospective tenants.
We offer a service to Landlords in London area and
tailor our service to your exact
requirements.
We believe our charges
are highly competitive and that
our service is first class.
If you are considering renting a home or letting out your
property and would like to know what we can do for you,
we would welcome the opportunity
to speak with you . Please
Contact Us
today.
Copyright
© All rights reserved by Brian Thomas Partnership
-
Website by www.ByteShop.co.uk
<%
Set oRcProperty1=nothing
Set oRcProperty2=nothing
set oConn=nothing
%>