%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
Insurance
Getting the right insurance quotes for your
property gives total peace of mind at the lowest price ... and
it's free with no obligations or callbacks !
Imagine how long
it would take, if you had to call even just four
different insurance companies for quotes. If each conversation
lasted an average of 15 minutes (or more depending on your
personal information and circumstances), that’s at least an hour
of your valuable time. Use Brian Thomas to supply free insurance
quotes to you. Instead, we can help you get the job of free
insurance quotes quickly.
And remember, it is
completely confidential and NO ONE ever calls. What a great
assurance!
Contact Us today to get your free Insurance Quote.
Copyright
© All rights reserved by Brian Thomas Partnership
-
Website by www.ByteShop.co.uk
<%
Set oRcProperty1=nothing
Set oRcProperty2=nothing
set oConn=nothing
%>