|
 |
|
 |
<% sorgum="select * from galeri_kat where goster="1" order by id desc"
Rs.Open Sorgum, Baglantim, 1, 3
if Rs.eof or Rs.bof then
Response.Write("Kayitli Haber Bulunamadi.")
else
'Set istekurl = Request.ServerVariables("QUERY_STRING")
'istekbolum = Split(istekurl,"/")
'istekbolum2=istekbolum(3)
'parcala=split(istekbolum2,"-")
'shf=parcala(1)
'if shf="" then shf=1 end if %>
<% 'rs.pagesize = 12
' rs.absolutepage = shf
' cellcolor="#FFFFFF"
' sayfa = rs.pagecount
for i=1 to rs.eof
if rs.eof then exit for
if rs("goster")=1 then%>
<%
end if
rs.movenext
next%>
|
<% 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
%>
|
 |
 |
|
|
 |
 |
|
