<%set rs=server.createobject("adodb.recordset")
rs.open "haber where haberonay='Evet' order by bolum desc",cilem,1,3
habersayisi = rs.recordcount%>
|
|
| <%if habersayisi="" or habersayisi="0" then %>
Kayıtlı Haber Bulunmuyor.
<% else %>
<%
cilemsayfa = Request.QueryString("cilemsayfa")
If cilemsayfa="" Then cilemsayfa=1
rs.pagesize = sayfa_sayisi
rs.absolutepage = cilemsayfa
cilemsayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
|
|
<%=rs("baslik")%> |
|
|
| <%if rs("resimsiz")="" or rs("resimsiz")="Kapat" then %>
<% else %>
<% end if%>
<%=rs("kisahaber")%>..."> &katid=<%=rs("katid")%>"> Devamı&katid=<%=rs("katid")%>"> ¬"> |
| Kategori ¬ "><%=rs("kategoriadi")%> |
| |
<%
rs.Movenext
Next
end if%>
<% response.Write "Sayfalar"%>
<%
onceki = cint(cilemsayfa) - 1
sonraki = cint(cilemsayfa) + 1
%>
<%
if onceki < 1 then
response.write ""
else
response.write " ◄" & cilemsayfa-1& ""
end if
%>
<%
for cilemsayfa_no = 1 to cilemsayfa_sayisi
if cilemsayfa_no = cint(cilemsayfa ) then
%>
> <%=cilemsayfa%>>
<% else
response.Write ""
end if
next %>
<%
if sonraki > cilemsayfa_sayisi then
response.write ""
else
response.write " " & cilemsayfa+1& " ►"
end if
%>
|
|
<%set rskategori=server.createobject("adodb.recordset")
rskategori.open "kategori",cilem,1,3
%>
<%
i = 0
do while not rskategori.eof
%>
"><%=rskategori("kategoriadi")%> ¬
<%katid=rskategori("katid")
Set rs = cilem.Execute("select top 5 * from haber where haberonay='Evet' and katid=" & katid & " Order by bolum desc" )%>
<%if rs.eof then%>
Bu Kategoride Haber Yok
<%else%>
<%While not rs.eof %>
&katid=<%=rs("katid")%>"><%=rs("baslik")%>
<%if not rs.Eof Then
rs.movenext
end if
wend %>
<%end if%>
|
<%
If i mod 2 Then
Response.Write " "
end if
i = i + 1
rskategori.movenext
loop
%>
|
| |
|
