05 Eylül 2010 Pazar / Sıcaklık <%=rsborsa("hava_durumu")%>
Yorumlananlar
Warning: mysql_fetch_array(): supplied argument is not a valid MySQL result resource in /home/haberlife/domains/haberlife.net/public_html/video_yorum.php on line 5
Warning: mysql_fetch_array(): supplied argument is not a valid MySQL result resource in /home/haberlife/domains/haberlife.net/public_html/video_yorum.php on line 18
Video Galeri
Warning: mysql_fetch_array(): supplied argument is not a valid MySQL result resource in /home/haberlife/domains/haberlife.net/public_html/video_yorum.php on line 26
Warning: mysql_fetch_array(): supplied argument is not a valid MySQL result resource in /home/haberlife/domains/haberlife.net/public_html/video_yorum.php on line 37
<%
katid = rskategori("katid")
Set rshaberbaslik = Server.CreateObject("ADODB.Recordset")
sor = "SELECT * FROM haber where tur=1 and veri_turu=1 and onay=1 and resimsec=1 and katid =" & katid & " order by id desc;"
rshaberbaslik.Open sor,conn,1,3
sirahaberbaslik=0
%>
<%
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa="1"
rshaberbaslik.pagesize = 7
rshaberbaslik.absolutepage = sayfa
sayfa_sayisi = rshaberbaslik.pagecount
for i=1 to rshaberbaslik.pagesize
If rshaberbaslik.eof Then exit for
%>
<%
sirahaberbaslik = sirahaberbaslik+1
rshaberbaslik.MoveNext
next
rshaberbaslik.close
Set rshaberbaslik = Nothing
%>
"/>
<%
rshaberresim.MoveNext
next
rshaberresim.close
Set rshaberresim = Nothing
%>
| <% rshaberaltmanset.MoveNext next rshaberaltmanset.close Set rshaberaltmanset = Nothing %> | ||||||
<%
katid = rskategori("katid")
Set rshaberhit = Server.CreateObject("ADODB.Recordset")
sor = "SELECT * FROM haber where onay=1 and veri_turu=1 and (tarih=date()-6 or tarih=date()-5 or tarih=date()-4 or tarih=date()-3 or tarih=date()-2 or tarih=date()-1 or tarih=date()) and katid =" & katid & " order by hit desc;"
rshaberhit.Open sor,conn,1,3
%>
<%
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa="1"
rshaberhit.pagesize = 5
rshaberhit.absolutepage = sayfa
sayfa_sayisi = rshaberhit.pagecount
for i=1 to rshaberhit.pagesize
If rshaberhit.eof Then exit for
%>
<%
rshaberhit.MoveNext
next
rshaberhit.close
Set rshaberhit = Nothing
%>
<%
katid = rskategori("katid")
Set rshaberhitilk = Server.CreateObject("ADODB.Recordset")
sor = "SELECT * FROM haber where onay=1 and veri_turu=1 and katid =" & katid & " and (tarih=date()-6 or tarih=date()-5 or tarih=date()-4 or tarih=date()-3 or tarih=date()-2 or tarih=date()-1 or tarih=date()) order by hit desc;"
rshaberhitilk.Open sor,conn,1,3
%>
<%
katid = rskategori("katid")
set rskategoridekisonhaberler = server.createobject("adodb.recordset")
sql = "select * from haber where onay=1 and veri_turu=1 and katid =" & katid & " order by id desc;"
rskategoridekisonhaberler.open sql, conn, 1, 3
for i=1 to 16 step +2
If rskategoridekisonhaberler.eof Then exit for
%>
<% rskategoridekisonhaberler.movenext Next %>
<%
rskategoridekisonhaberler.movenext
If rskategoridekisonhaberler.eof Then exit for
%>
" alt="<%=rskategoridekisonhaberler("baslik")%>" align="left"/><% rskategoridekisonhaberler.movenext Next %>
Köşe Yazarlarımız
Warning: mysql_num_rows(): supplied argument is not a valid MySQL result resource in /home/haberlife/domains/haberlife.net/public_html/kullanici_girisi.php on line 6
Üye Girişi
Haftanın Haberi
Anket» Tarih <%=rssoru("strtarih")%>
| <%=rssoru("strsoru")%> |
Mail List
İstatistikler
Kategori Sayısı »
Haber Sayısı »
Köşe Yazısı Sayısı »
Yorum Sayısı »
Köşe Yazarı Sayısı »
Ajanslar
