%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 - Properties In Turkey
 |
 |
 |
Home |
About
Us |
 |
|
| |
|
|
| |
Property Search |
|
| |
|
|
| |
|
|
| |
 |
| |
|
|
|
|
|
| |
|
|
Type |
|
|
| |
|
|
|
| |
|
| |
 |
| |
|
|
 |
 |
 |
 |
|
|
| |
|
|
| |
 |
|
|
 |
 |
|
|
|
|
<%
Set oRcProperty1=nothing
Set oRcProperty2=nothing
set oConn=nothing
%>