<%
Set Rs=Server.CreateObject("Adodb.Recordset")
Sorgu="SELECT * FROM ilanlar order by fiyatus asc"
Rs.Open Sorgu, conn, 1, 3
if not rs.eof then
%>
<%
shf = Request.QueryString("shf")
shf2=shf
if shf="" then
shf=1
end if
rs.pagesize = 10
rs.absolutepage = shf
sayfa = rs.pagecount
response.write rs.recordcount
response.write " Picture(s) Found..."
%>
<%
for i=1 to rs.pagesize
if rs.eof then exit for
yaziid=rs("ilanid")
%>
<%
rs.movenext
next
else
Response.write " "
Response.write "
"
Response.write "Not result found!"
Response.write "
"
Response.write " "
Response.write " "
Response.write " "
Response.write " "
Response.write " "
Response.write " "
Response.write " "
Response.write " "
Response.write ""
end if
l=int(shf)+1
k=int(shf)-1
if not k <= 0 then
response.write ""
response.write "Back"
response.write " "
end if
ss=shf2
for z=1 to sayfa
if shf=z then
if z=ss then
response.write ""
end if
response.write ""&z&""
if z=ss then
response.write " "
end if
else
response.write ""
response.write ""&z&""
response.write " "
end if
next
response.write ""
response.write "Next"
response.write " "
rs.close
set rs=nothing
%>
|
