template186

<% Set ObjDatas = CreateObject("ADODB.Recordset") StrSQL = " SELECT TblMain.MID, TblPropertys.PID, TblPropertys.StrPropertyName_T, TblPropertys.StrBedRoom, TblPropertys.StrPrice, TblPropertys.Pabi, TblPropertys.StrImageThumb, TblAreas.StrArea_T, TblLocations.StrLocation_T, TblTypes.StrType_T "_ &" FROM TblTypes INNER JOIN (TblLocations INNER JOIN (TblAreas INNER JOIN (TblPropertys INNER JOIN TblMain ON TblPropertys.PID = TblMain.PID) ON TblAreas.AID = TblPropertys.AID) ON TblLocations.LID = TblPropertys.LID) ON TblTypes.TID = TblPropertys.TID "_ &" ORDER BY TblMain.MID DESC;" ObjDatas.CursorType = 3 ObjDatas.LockType = 1 ObjDatas.Open StrSQL, StrConn Set ObjDatas1 = CreateObject("ADODB.Recordset") StrSQL = " SELECT * From TblLocations Order By StrLocation_T asc" ObjDatas1.CursorType = 3 ObjDatas1.LockType = 1 ObjDatas1.Open StrSQL, StrConn Set ObjDatas2 = CreateObject("ADODB.Recordset") StrSQL = " SELECT * From TblTypes Order By StrType_T asc" ObjDatas2.CursorType = 3 ObjDatas2.LockType = 1 ObjDatas2.Open StrSQL, StrConn Set ObjDatas3 = CreateObject("ADODB.Recordset") StrSQL = " SELECT * From TblAreas Order By StrArea_T asc" ObjDatas3.CursorType = 3 ObjDatas3.LockType = 1 ObjDatas3.Open StrSQL, StrConn StrCountOfObjDatas = ObjDatas.RecordCount %>

<% For i=1 To 6 If ObjDatas.Eof Then Exit For %> <% If (i mod 3)=0 Then Response.Write "" End If ObjDatas.MoveNext Next %>

'" style="CURSOR :hand;">


" width="160" height="107">
<%=ObjDatas("StrPropertyName_T")%> <%=ObjDatas("StrType_T")%>
Şehir : <%=ObjDatas("StrLocation_T")%>
Bölge : <%=ObjDatas("StrArea_T")%>
Fiyat : <%=ObjDatas("StrPrice")%> <%=ObjDatas("Pabi")%>	m² : <%=ObjDatas("StrBedRoom")%>

Sitemizde <%=StrCountOfObjDatas%> emlak ilanı kayıtlı.

EMLAK DATÇA DATÇA EMLAK

datça apart otel ,datça tatil datça otel,datça

datça,datça emlak,datça ,datça,datça www.datcadesign.com