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



<% 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 %>
<% katid = rskategori("katid") Set rshaberresim = 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;" rshaberresim.Open sor,conn,1,3 %> <% sayfa = Request.QueryString("sayfa") If sayfa="" Then sayfa="1" rshaberresim.pagesize = 7 rshaberresim.absolutepage = sayfa sayfa_sayisi = rshaberresim.pagecount for i=1 to rshaberresim.pagesize If rshaberresim.eof Then exit for %>"/> <% rshaberresim.MoveNext next rshaberresim.close Set rshaberresim = Nothing %>
<% katid = rskategori("katid") Set rshaber = 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;" rshaber.Open sor,conn,1,3 sirahaber=0 %> <% sayfa = Request.QueryString("sayfa") If sayfa="" Then sayfa="1" rshaber.pagesize = 7 rshaber.absolutepage = sayfa sayfa_sayisi = rshaber.pagecount for i=1 to rshaber.pagesize If rshaber.eof Then exit for %> <% sirahaber = sirahaber+1 rshaber.MoveNext next rshaber.close Set rshaber = Nothing %>
<% katid = rskategori("katid") Set rskisa_yazi = 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;" rskisa_yazi.Open sor,conn,1,3 %> <% katid = rskategori("katid") Set rshaberid = 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;" rshaberid.Open sor,conn,1,3 %> <% katid = rskategori("katid") Set rshabertarih = 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;" rshabertarih.Open sor,conn,1,3 %> <% katid = rskategori("katid") Set rshaberresimiki = 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;" rshaberresimiki.Open sor,conn,1,3 %> <% rskisa_yazi.close Set rskisa_yazi = Nothing %> <% rshaberid.close Set rshaberid = Nothing %> <% rshabertarih.close Set rshabertarih = Nothing %> <% rshaberresimiki.close Set rshaberresimiki = Nothing %>
" align="absmiddle">IMKB: <%=rsborsa("borsa")%>    " align="absmiddle">Dolar: <%=rsborsa("dolar")%>    " align="absmiddle">Euro: <%=rsborsa("euro")%>    " align="absmiddle">Altın: <%=rsborsa("altin")%>
<% Set rshaberaltmanset = Server.CreateObject("ADODB.Recordset") sor = "SELECT * FROM haber where tur=2 and veri_turu=1 and onay=1 and resimsec=1 order by id desc" rshaberaltmanset.Open sor,conn,1,3 %>
<% sayfa = Request.QueryString("sayfa") If sayfa="" Then sayfa="1" rshaberaltmanset.pagesize = 4 rshaberaltmanset.absolutepage = sayfa sayfa_sayisi = rshaberaltmanset.pagecount for i=1 to rshaberaltmanset.pagesize If rshaberaltmanset.eof Then exit for %> <% rshaberaltmanset.MoveNext next rshaberaltmanset.close Set rshaberaltmanset = Nothing %>
<% 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 %>

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")%>
<% do while not rscevap.eof%> <% if not rssoru("strtoplam") = 0 then yuzde = Int((rscevap("strhit") / (rssoru("strtoplam"))) * 100) else yuzde = "0" end if %> <% rscevap.movenext loop %>
" onClick="document.form1.secilenn.value='<%=rscevap("id")%>';"> <%=rscevap("strcevap")%> - (<%=rscevap("strhit")%>)

                                  
 
Mail List
İstatistikler
Kategori Sayısı »
Haber Sayısı »
Köşe Yazısı Sayısı »
Yorum Sayısı »
Köşe Yazarı Sayısı »
Ajanslar
İha Resmi Abonesidir.
İha Abonesidir