|
 |
 |
 |
<% Set istekurl = Request.ServerVariables("QUERY_STRING")
istekbolum = Split(istekurl,"/")
istekbolum2=istekbolum(3)
parcala=split(istekbolum2,"-")
Shf=parcala(2)
tur=parcala(1)
btarih=date()
if tur="0" or tur="" then
sorgum="select * from ilan where goster=true order by id desc"
else
sorgum="select * from ilan where tur like '%"&tur&"%' and goster=true order by id desc"
end if
Rs.Open Sorgum, Baglantim, 1, 3
if rs.eof or rs.bof then
Response.Write("Kayıtlı İlan Bulunamadı. ")
else
if shf="" then shf=1 end if
rs.pagesize = 17
rs.absolutepage = shf
cellcolor="#FFFFFF"
sayfa = rs.pagecount%>
<% for i=1 to 17
if rs.eof then exit for
%>
|
| |
<%
rs.movenext
next %>
| Toplam Ilan Sayisi : <%=rs.recordcount %> |
|
<% onceki=shf-1%>
<%if shf=1 then%>
««
<%else%>
««
<%end if%>
| <%if onceki<1 then%>
«
<%else%>
«
<%end if%>
|
<% for y=1 to sayfa %>
<% x=x+1
if shf=y then
response.write ""&y&" | "
else%>
<%=y%> |
<%end if
if x>18 then
response.write (" | | ")
x=0
end if
next
sonraki=shf+1
if sonraki>sayfa then
%>
»
<%else%>
»
<%end if%>
|
<%if shf=sayfa then%>
»»
<%else%>
»»
<%end if%>
|
<% end if %>
|
 |
 |
|
|
 |
 |
<% Rs.Close
%>
|
<%end if%>