|
|
Property in Fethiye
<%
dsn= "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}"
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.Open dsn
set connjs = Server.CreateObject("adodb.connection")
set rsjs = Server.CreateObject("adodb.recordset")
connjs.open dsn
rssqljs = "Select * from otel where bnc = 'apartments'"
rsjs.open rssqljs, connjs, 1, 3
If NOT (rsjs.BOF AND rsjs.EOF) Then
resix=rsjs.Fields.Item("resim1").Value
if resix = "" then resix = "logos.gif"
%>
|
|
Apartments for sale in Turkey
|
| <%=rsjs.Fields.Item("description").Value%> Apartments for sale in <%
MM_bagspi= "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}"
set conn = Server.CreateObject("adodb.connection")
set rsj = Server.CreateObject("adodb.recordset")
conn.open MM_bagspi
rsjsql = "Select * from ouryer order by ilce ASC"
rsj.open rsjsql, conn, 1, 3
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rsj.pagesize = 50
rsj.absolutepage = sayfa
sayfa_sayisi = rsj.pagecount
for i=1 to rsj.pagesize
if rsj.eof then
exit for
end if
ilce = rsj.Fields.Item("ilce").Value
response.write PCase(ilce) & " "
rsj.movenext
Next
rsj.Close()
%> apartments for sale in turkey |
<%
end if
rsjs.Close()
%><%
dsn= "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}"
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.Open dsn
set connjs = Server.CreateObject("adodb.connection")
set rsjs = Server.CreateObject("adodb.recordset")
connjs.open dsn
rssqljs = "Select * from otel where bnc = 'villas'"
rsjs.open rssqljs, connjs, 1, 3
If NOT (rsjs.BOF AND rsjs.EOF) Then
resix=rsjs.Fields.Item("resim1").Value
if resix = "" then resix = "logos.gif"
%>
|
|
Villas for sale in Turkey
|
| <%=rsjs.Fields.Item("description").Value%> Villas for sale in <%
MM_bagspi= "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}"
set conn = Server.CreateObject("adodb.connection")
set rsj = Server.CreateObject("adodb.recordset")
conn.open MM_bagspi
rsjsql = "Select * from ouryer order by ilce ASC"
rsj.open rsjsql, conn, 1, 3
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rsj.pagesize = 50
rsj.absolutepage = sayfa
sayfa_sayisi = rsj.pagecount
for i=1 to rsj.pagesize
if rsj.eof then
exit for
end if
ilce = rsj.Fields.Item("ilce").Value
response.write PCase(ilce) & " "
rsj.movenext
Next
rsj.Close()
%> villas for sale in turkey |
<%
end if
rsjs.Close()
%><%
dsn= "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}"
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.Open dsn
set connjs = Server.CreateObject("adodb.connection")
set rsjs = Server.CreateObject("adodb.recordset")
connjs.open dsn
rssqljs = "Select * from otel where bnc = 'land'"
rsjs.open rssqljs, connjs, 1, 3
If NOT (rsjs.BOF AND rsjs.EOF) Then
resix=rsjs.Fields.Item("resim1").Value
if resix = "" then resix = "logos.gif"
%>
|
|
Land for sale in Turkey
|
| <%=rsjs.Fields.Item("description").Value%> Land for sale in <%
MM_bagspi= "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}"
set conn = Server.CreateObject("adodb.connection")
set rsj = Server.CreateObject("adodb.recordset")
conn.open MM_bagspi
rsjsql = "Select * from ouryer order by ilce ASC"
rsj.open rsjsql, conn, 1, 3
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rsj.pagesize = 50
rsj.absolutepage = sayfa
sayfa_sayisi = rsj.pagecount
for i=1 to rsj.pagesize
if rsj.eof then
exit for
end if
ilce = rsj.Fields.Item("ilce").Value
response.write PCase(ilce) & " "
rsj.movenext
Next
rsj.Close()
%> land for sale in turkey |
House Hotel Apart Land Villa Commercial Satılık
Kiralık Emlak Arsa
<%
end if
rsjs.Close()
%>
|