<%set rs=server.createobject("adodb.recordset")
rs.open "haber where sondakika=true and koseyazisi=false and haberonay='Evet' order by tarih desc",cilem,1,3
kayitsayisi = rs.recordcount%>
tema/<%=tema%>/genelustbar.gif<%Else%>tema/<%=tema%>/sondakikabg.gif<% end if%>">
<%set rs3=server.createobject("adodb.recordset")
rs3.open "haber where mansethaber=true and koseyazisi=false and haberonay='Evet' order by tarih desc",cilem,1,3
mansetkayitsayisi = rs3.recordcount%>
<%if mansetkayitsayisi="" or mansetkayitsayisi="0" then %>
<%Else%>
Yükleniyor...
Manşet
<%
yeni = Request.QueryString("yeni")
If yeni="" Then yeni=1
rs3.pagesize = mansetsayisi
rs3.absolutepage = yeni
yeni_sayfa = rs3.pagecount
for i=1 to rs3.pagesize
if rs3.eof then
exit for
end if
%>
<%manset = manset + 1%><%
rs3.movenext
Next
%>
<%set rs3=server.createobject("adodb.recordset")
rs3.open "haber where mansethaber=true and koseyazisi=false and haberonay='Evet' order by tarih desc",cilem,1,3
mansetkayitsayisi= rs3.recordcount%>
<%
yeni = Request.QueryString("yeni")
If yeni="" Then yeni=1
rs3.pagesize = mansetsayisi
rs3.absolutepage = yeni
yeni_sayfa = rs3.pagecount
for i=1 to rs3.pagesize
if rs3.eof then
exit for
end if
%>
tema/<%=tema%>/mansetresimyok.gif<% else %><%if rs3("resimsec")="Url" then %><%=rs3("resimurl")%><% else %>resim/<%=rs3("resim")%><% end if%><% end if%>" width="220" hspace="1" vspace="1" style="border: 1px solid #C0C0C0">
<%=rs3("baslik")%>
<%=rs3("kisahaber")%>
<%mansetsira = mansetsira + 1%><%
rs3.movenext
Next
%>
<%end if%>
<%HaberSirala = 2
set rs=server.createobject("adodb.recordset")
rs.open "haber where haberonay='Evet' and koseyazisi=false order by mansethaber desc , tarih desc",cilem,1,3
habersayisi = rs.recordcount%>
<% If rs.EOF And rs.BOF Then %>
<% Else%>
<%
sayfa_sayisi=genelsayfasayisi
sayfasayisi = "sayfa_sayisi"
sayfano = Request.QueryString("sayfano")
ToplamKayit = rs.recordcount
ToplamSayfa = ToplamKayit/sayfa_sayisi
Function Tamamla(ToplamSayfa)
If InStr(ToplamSayfa, ",") <> 0 Then
Tamamla = Int(ToplamSayfa + 1)
Else
Tamamla = ToplamSayfa
End If
End Function
GenelSayfa = Tamamla(ToplamSayfa)
if sayfano = "" or sayfano = 1 then
sayfano = 0
else
end if
if sayfano > 1 then
sayfano = sayfano-1
else
sayfano=sayfano
end if
ilksayfa = sayfa_sayisi * sayfano
sonsayfa = ilksayfa + sayfa_sayisi
%>
<%
sayi = 0
do while not rs.eof
sayi=sayi+1
if sayi > ilksayfa and sayi =< sonsayfa then
%>
<% if yan=HaberSirala then
response.write ("
")
yan=0
End if
%>
<%=rs("baslik")%>
<%if rs("resimsiz")="" or rs("resimsiz")="Kapat" then %><% else %>
<%=rs("resimurl")%><% else %>resim/<%=rs("resim")%><% end if%>" alt="<%=rs("baslik")%>" style="border:1px solid #DDDDDD; width: 80px; margin-left:0; margin-right:5px; margin-top:3px; margin-bottom:0" align="left" /><% end if%><%=rs("kisahaber")%>...&uyeid=<%=rs("uyeid")%>">
Devamı
<% yan=yan+1
if yan = (HaberSirala+1) then
response.write ("
")
end if
%>
<%
else
end if
rs.movenext
loop%>
İlk Sayfa -
<%
if sayfano <> 0 then%>
Önceki Sayfa -
<%else
end if%>
<%
for sayfanumarasi = 1 to GenelSayfa
%>
[<%=sayfanumarasi%>]<%
if sayfanumarasi <> GenelSayfa then %> <%else%><%end if%><%
next
%>
<%
if GenelSayfa <> sayfano+1 then%>
-
Sonraki Sayfa
<%else
end if%>
-
Son Sayfa
<%end if%>
<%katid=rs2("katid")%>
<%Set rs = cilem.Execute("Select * from haber where koseyazisi=false and katid ="&rs2("katid")&" and haberonay='Evet' order by bolum desc")
If not rs.eof then%>
<%Set basliksay = cilem.Execute("Select count(bolum) from haber where koseyazisi=false and katid=" & katid& "and haberonay='Evet' ")
basliksayisi = rs.recordcount%>
<%If basliksay(0) > 5 then verisay = 4 else verisay = basliksay(0)
basliksay.close%>
<%For i = 1 to verisay
If i = 1 then %>
<% Else%>
Devamı
