|
<%set rs=server.createobject("adodb.recordset")
rs.open "haber where sondakika=true and koseyazisi=false and haberonay=true ORDER BY cDate(tarih) desc, cDate(saat) desc",cilem,1,3
kayitsayisi = rs.recordcount%>
| <%=webadresi%><%=klasor%>tema/<%=tema%>/genelustbar.gif<%Else%><%=webadresi%><%=klasor%>tema/<%=tema%>/sondakikabg.gif<% end if%>">
|
<%set rsmanset=server.createobject("adodb.recordset")
rsmanset.open "haber where mansethaber=true and koseyazisi=false and haberonay=true ORDER BY cDate(tarih) desc, cDate(saat) desc",cilem,1,3
mansetkayitsayisi = rsmanset.recordcount%>
<%if mansetkayitsayisi="" or mansetkayitsayisi="0" then %>
<%Else%>
 |
Yükleniyor... |
|
<%
rsmanset.pagesize = mansetsayisi
for i=1 to rsmanset.pagesize
if rsmanset.eof then
exit for
end if
%>
<%manset = manset + 1%><%
rsmanset.movenext
Next
%>
<%set rsmanset=server.createobject("adodb.recordset")
rsmanset.open "haber where mansethaber=true and koseyazisi=false and haberonay=true ORDER BY cDate(tarih) desc, cDate(saat) desc",cilem,1,3
mansetkayitsayisi= rsmanset.recordcount%>
<%
rsmanset.pagesize = mansetsayisi
for i=1 to rsmanset.pagesize
if rsmanset.eof then
exit for
end if
%>
|
 <%=webadresi%><%=klasor%>tema/<%=tema%>/mansetresimyok.gif<% else %><%if guvenlik(rsmanset("resimsec"))="Url" then %><%=guvenlik(rsmanset("resimurl"))%><% else %><%=webadresi%><%=klasor%>resim/<%=guvenlik(rsmanset("resim"))%><% end if%><% end if%>" width="280" hspace="1" vspace="1" style="border: 1px solid #C0C0C0"> |
|
<%=guvenlik(rsmanset("baslik"))%> |
|
<%=guvenlik(rsmanset("kisahaber"))%>
|
<%mansetsira = mansetsira + 1%><%
rsmanset.movenext
Next
%>
<%end if%>
|
|
|
<%HaberSirala = 2
set rs=server.createobject("adodb.recordset")
Rs.Open "SELECT * FROM haber where haberonay=true and koseyazisi=false ORDER BY mansethaber desc, cDate(tarih) desc, cDate(saat) 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
%>
|
|
<%=guvenlik(rs("baslik"))%> |
|
|
|
|
|
<% 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%>
|
|
|
<%set rskategori=server.createobject("adodb.recordset")
rskategori.open "kategori",cilem,1,3
%>
<%
ayir=2
Dim l
l= 0
do while l < 4 and not rskategori.eof
%>
<%
Dim kategoriler
kategoriler = 0
do while kategoriler < ayir and NOT rskategori.eof
%>
| <%if seo=true then %>-<%=kelime(rskategori("kategoriadi"))%>.html"><% else %>"><% end if%><%=guvenlik(rskategori("kategoriadi"))%>
¬ |
<%KATID=guvenlik(rskategori("KATID"))%>
<%Set rs = cilem.Execute("Select * from haber where koseyazisi=false and KATID ="&guvenlik(rskategori("KATID"))&" and haberonay=true order by ID desc")
If not rs.eof then%>
<%Set basliksay = cilem.Execute("Select count(ID) from haber where koseyazisi=false and KATID=" & cint(KATID)& "and haberonay=true ")
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%>
<%
end if
rs.movenext
next
End If
rs.close %>
|
|
<%
rskategori.Movenext
kategoriler = kategoriler + 1
loop
%>
<%
l=2+1
loop%>
|
|
|
|
|
