Kayan Gazete Web Siteleri

Örnek Görünüm İçin
http://www.istanbuldahayat.com
(sağ tarafa bakınız.)


Kodları blok klasorunundeki
en_son_yorumlananlar.asp
son_dakika.asp
dosyalarında kullanabilirsiniz. Tercih sizin.

Ben blok/en_son_yorumlananlar.asp dosyasında kodları kullandım.

-----------------------
en_son_yorumlananlar.asp dosyası

<div id="son-dakika">
<h3>Gazetelerin Web Sayfaları</h3>
<marquee widş="140" onmouseover='şis.stop()' onmouseout='şis.start()' scrolldelay="20" scrollamount="1" truespeed="truespeed" bgcolor="#FFFFFF" height="37" style="position: absolute; vertical-align: bottom; left: 10; top: 20; height: 42px; padding-left: 4px; padding-right: 4px; padding-top: 5px; padding-bottom: 1px"><a href="http://www.hurriyet.com.tr"><img src="http://www.istanbuldahayat.com/images/hurriyet.gif" border="0" style="margin-right:5px;"></a></a>
            <a href="http://www.milliyet.com.tr"><img src="http://www.istanbuldahayat.com/images/milliyet.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.sabah.com.tr"><img src="http://www.istanbuldahayat.com/images/sabah.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.zaman.com.tr"><img src="http://www.istanbuldahayat.com/images/zaman.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.vatanim.com.tr"><img src="http://www.istanbuldahayat.com/images/vatan.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.referans.com.tr"><img src="http://www.istanbuldahayat.com/images/referans.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.aksam.com.tr"><img src="http://www.istanbuldahayat.com/images/aksam.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.cumhuriyet.com.tr"><img src="http://www.istanbuldahayat.com/images/cumhuriyet.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.radikal.com.tr"><img src="http://www.istanbuldahayat.com/images/radikal.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.birgun.net" onClick="window.open('/','_blank', 'toolbar=0, location=0, directories=0, status=1, scrollbars=1, resizable=1, copyhistory=0, menuBar=1, ');return(false)"><img src="http://www.istanbuldahayat.com/images/bir-gun.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.milligazete.com.tr"><img src="http://www.istanbuldahayat.com/images/milli-gazete.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.yenisafak.com.tr"><img src="http://www.istanbuldahayat.com/images/yeni-safak.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.stargazete.com"><img src="http://www.istanbuldahayat.com/images/star.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.takvim.com.tr"><img src="http://www.istanbuldahayat.com/images/takvim.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.vakit.com.tr"><img src="http://www.istanbuldahayat.com/images/vakit.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.fanatik.com.tr"><img src="http://www.istanbuldahayat.com/images/fanatik.gif" border="0" style="margin-right:5px;"></a>
            <a href="http://www.turkiyegazetesi.com"><img src="http://www.istanbuldahayat.com/images/turkiye.gif" border="0" style="margin-right:5px;"></a></marquee>
<br><font style="font-size: 6pt"><br></font><font style="font-size: 8pt"><br>
</font><span style="font-size: 8pt"><br>
</font>
</span>
</div>

<%
SQL = "SELECT haber, Max(tarih) FROM tblYorumlar GROUP BY haber ORDER BY Max(tarih) DESC"
kdMenu.open SQL, adoCon, 1, 3
If Not kdMenu.Eof Then
     Response.Write "<div class=""kutu""><h3>En Son Yorumlananlar</h3><ul>"
     intLooper = 1
     Do While intLooper <= 5 AND NOT kdMenu.Eof
          SQL = "SELECT tblHaberler.baslik, tblHaberler.durum, tblHaberler.onay, tblHaberler.kategori, tblYorumlar.tarih, tblYorumlar.haber"
          SQL = SQL & " FROM tblHaberler, tblYorumlar"
          SQL = SQL & " WHERE tblHaberler.durum = True AND tblHaberler.onay = True AND tblYorumlar.durum = True AND tblHaberler.kategori <> "& intKoseYazilari &" AND tblHaberler.haberID = "& kdMenu("Haber")
          SQL = SQL & " ORDER BY tblYorumlar.tarih DESC"
          kdYardimci.Open SQL, adoCon, 1, 3
          If Not kdYardimci.Eof Then
               Response.Write("<li><a href="""& LinkVer("haber", kdMenu("haber"), kdYardimci("baslik"), KategoriBul(kdYardimci("kategori"))) &""" title="""& kdYardimci("baslik") &""">"& Trim(kdYardimci("baslik")) &"</a></li>")
               intLooper = intLooper + 1
          End If
          kdYardimci.Close
          kdMenu.MoveNext
     Loop
     Response.Write "</ul></div>"
End If
kdMenu.Close
%>

bu kodu sitesine ekleyenler bari web site adlarını buraya yazmaları rica olunur.

mahmutsan arkadasım tşk ekledim ekledigim site adresi www.polemik.org

tşkler mahmutsan kardeş