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

© 2007 Özkurtinsaat.com
Tasarım:Datcadesign

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