Brian Thomas Partnership:U.K Property Services

<%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