kayan haber blogu olsa cok harika olur. bu konuda yardımcı olabilecek arkadaşlar varsa bizimle paylaşırsa sevirim. ilginiz icin teşekkürler.

v5.0 bölümünde paylaşıldı sanırım, o bölümü inceleyiniz.

Selamun Aleyküm

Resimli kayan haber diyorsan

          <!--Son Haberler Başlangıcı-->
          <div class="kutu">
          <h3>Aktif Haberler</h3>
<marquee onmouseover="şis.stop()" style="widş: 150; height: 600;" onmouseout="şis.start();" trueSpeed scrollAmount="2" direction="up">
          <center><ul><%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Hisaristanbul.Com
' http://www.hisaristanbul.com

' Manşet Gösterme Kodları
' Düzenleme: Anıl EKİNCİ
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

          kdMenu.Open "SELECT TOP 20 tarih, baslik, durum, kucuk_resim, onay, haberID FROM tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC",adoCon, 1, 3
          If Not kdMenu.EOF Then
               Do While Not kdMenu.EOF
                    Response.Write("<li><a target=""_blank"" href=""haber_detay.asp?haberID="& kdMenu("haberID") &""" title="""& kdMenu("baslik") &"""><font color=red><b>"& Trim(kdMenu("baslik")) &"</b></font><br><img src="& kdMenu("kucuk_resim") &" hisarhaber/hisar.jpg widş=""115"" height=""80"" border=""0"" /></a></li>")
               kdMenu.MoveNext
               Loop
          End If
          kdMenu.Close %></ul></center></marquee>
          </div>

          <!--En Çok Okunanlar Bitişi-->


Bu kod gardaşım bende v.5.0 bölümünden aldımvatanist2009-04-07 23:38:07

[QUOTE=vatanist] Selamun Aleyküm

Resimli kayan haber diyorsan

          <!--Son Haberler Başlangıcı-->
          <div class="kutu">
          <h3>Aktif Haberler</h3>
<marquee onmouseover="şis.stop()" style="widş: 150; height: 600;" onmouseout="şis.start();" trueSpeed scrollAmount="2" direction="up">
          <center><ul><%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Hisaristanbul.Com
' http://www.hisaristanbul.com

' Manşet Gösterme Kodları
' Düzenleme: Anıl EKİNCİ
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

          kdMenu.Open "SELECT TOP 20 tarih, baslik, durum, kucuk_resim, onay, haberID FROM tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC",adoCon, 1, 3
          If Not kdMenu.EOF Then
               Do While Not kdMenu.EOF
                    Response.Write("<li><a target=""_blank"" href=""haber_detay.asp?haberID="& kdMenu("haberID") &""" title="""& kdMenu("baslik") &"""><font color=red><b>"& Trim(kdMenu("baslik")) &"</b></font><br><img src="& kdMenu("kucuk_resim") &" hisarhaber/hisar.jpg widş=""115"" height=""80"" border=""0"" /></a></li>")
               kdMenu.MoveNext
               Loop
          End If
          kdMenu.Close %></ul></center></marquee>
          </div>

          <!--En Çok Okunanlar Bitişi-->


Bu kod gardaşım bende v.5.0 bölümünden aldım[/QUOTE]

vatanist Karderşim kod için teşekkürler ama bu kodu nerede kullanacağız,sitende baktım,kayan haber var sanırım örnek o ,ama nereye bu kodu uygulayacağızPresident2009-04-08 22:35:21

Selamun Aleyküm

Gardaşım Geç gelen Cevabımdan dolayı özürdilrim

http://www.gemerekli.com/dosyalar/resimli_kayan_haber.rar buradan resimli kayan haber dosyasını indir sitenin anadizininde blok klasörü var onun içine at

<!--#include file="blok/resimli_kayan_haber.asp"--> ve sitede göstermek istediğin dosyalara bu kodu ekle

örnek default.asp dosyasını aç ctrl+f tuşuna basarak sag diye arama yap sağdaki blokların kodlarını göreceksin sende orada görmek istediğin yere ekle

ve bu uygulamayı videolar galeri sayfalar haber detay dada göstemek istersen aynı şekilde kodu ekle


Allaha emanet ol

Free bir sitede karalama ,antreman yaptığım bir haber sitesi oluşturdum,orada eklentin ile netice aldım.
Emeklerine sağlık Vatanist Teşekkür ederim,kardeşim President2009-04-11 18:32:42

[QUOTE=vatanist] Selamun Aleyküm

Gardaşım Geç gelen Cevabımdan dolayı özürdilrim

http://www.gemerekli.com/dosyalar/resimli_kayan_haber.rar buradan resimli kayan haber dosyasını indir sitenin anadizininde blok klasörü var onun içine at

<!--#include file="blok/resimli_kayan_haber.asp"--> ve sitede göstermek istediğin dosyalara bu kodu ekle

örnek default.asp dosyasını aç ctrl+f tuşuna basarak sag diye arama yap sağdaki blokların kodlarını göreceksin sende orada görmek istediğin yere ekle

ve bu uygulamayı videolar galeri sayfalar haber detay dada göstemek istersen aynı şekilde kodu ekle


Allaha emanet ol[/QUOTE]




ilgin için teşekür ederim. söylediklelerini yaptım ama kücük resimleri göstermiyor. bir eksiklik var bulamadım istersen siteye gir bi bak. www.muhabir46.com

Her dediğinizi yaptım ama bir türlü resimleri gösteremedim. Yardımcı olurmusunuz...

emeğenize sağlık

Şu şekilde deneyin.


<!--Son Haberler Başlangıcı-->
          <div class="kutu">
          <h3>Aktif Haberler</h3>
<marquee onmouseover="şis.stop()" style="widş: 150; height: 600;" onmouseout="şis.start();" trueSpeed scrollAmount="2" direction="up">
          <center><ul><%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Hisaristanbul.Com
' http://www.hisaristanbul.com

' Manşet Gösterme Kodları
' Düzenleme: Anıl EKİNCİ
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

          kdMenu.Open "SELECT TOP 20 tarih, baslik, durum, kucuk_resim, onay, haberID FROM tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC",adoCon, 1, 3
          If Not kdMenu.EOF Then
               Do While Not kdMenu.EOF
                    Response.Write("<li><a href=""haber_detay.asp?haberID="& kdMenu("haberID") &""" title="""& kdMenu("baslik") &"""><font color=red><b>"& Trim(kdMenu("baslik")) &"</b></font><br><img src="& ResimBul(kdGenel("kucuk_resim")) &" hisarhaber/hisar.jpg widş=""115"" height=""80"" border=""0"" /></a></li>")
               kdMenu.MoveNext
               Loop
          End If
          kdMenu.Close %></ul></center></marquee>
          </div>

          <!--En Çok Okunanlar Bitişi-->

Olmuyor dostum. Verdiğin kodda hata veriyor. Ne yaptıysam beceremedim. Resim bir türlü gözükmüyor. Bana yardım edermisiniz. Çok basit bir nededi olduğunu biliyorum. Ama beceremedim.

Arkadaşlar kodlar verilmiş ama yapılımını yazmamışınız.. bunları biz ne yapacagız ayrıntılı şekilde yazılırsa güzel olur..Bende yapmak istiyorum..

[QUOTE=can_dost] Arkadaşlar kodlar verilmiş ama yapılımını yazmamışınız.. bunları biz ne yapacagız ayrıntılı şekilde yazılırsa güzel olur..Bende yapmak istiyorum..

[/QUOTE]


Kodlar ve kodların nasıl uygulanacağı çok güzel bir şekilde anlatılmış. Daha dikkatli okuyun lütfen. Paylaşımı yeniden bu konuda yapan arkadaşa teşekkür ederiz.

||| İnclude Yöntemleri |||

İyi Çalışmalar Dileriz
Aytaç Engin

Benim sorunum resimlerin görünmemesi. Onu anlatısan. Kodlarla ilgili sorunum yok. Sitemde de görünüyor zaten. Ama resimler görünmüyor. Yardım lütfen.

www.degisengolcuk.com

Arkadaşlar. mysql verşi tababnında calısıyormu bu script. ben dene
dim olmadı da yardım lütfen...

bu aktif haber bloğunu iframe olarak başka siteye son dakika haber olarak nasıl ekleyebiliriz arkadaşlar. kodları bilen varsa yardımcı olsun lütfen...

teşekkür ederiz paylaşım için

Merhaba arkadaşlar ben Kayan haber blogunu kurdum güzel çalışıyordu fakat siteyi seo lu yaptım Kayan haber bölümü seo lu aktif olmadı dolayısıyla kayan haberlere tıklayınca haberler hata veriyor Kayan haber blogunu seolu sisteme nasıl sevircez lütfen yardımcı olun arkadaşlar

[QUOTE=vatanist] Selamun Aleyküm

Resimli kayan haber diyorsan

          <!--Son Haberler Başlangıcı-->
          <div class="kutu">
          <h3>Aktif Haberler</h3>
<marquee onmouseover="şis.stop()" style="widş: 150; height: 600;" onmouseout="şis.start();" trueSpeed scrollAmount="2" direction="up">
          <center><ul><%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Hisaristanbul.Com
' http://www.hisaristanbul.com

' Manşet Gösterme Kodları
' Düzenleme: Anıl EKİNCİ
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

          kdMenu.Open "SELECT TOP 20 tarih, baslik, durum, kucuk_resim, onay, haberID FROM tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC",adoCon, 1, 3
          If Not kdMenu.EOF Then
               Do While Not kdMenu.EOF
                    Response.Write("<li><a target=""_blank"" href=""haber_detay.asp?haberID="& kdMenu("haberID") &""" title="""& kdMenu("baslik") &"""><font color=red><b>"& Trim(kdMenu("baslik")) &"</b></font><br><img src="& kdMenu("kucuk_resim") &" hisarhaber/hisar.jpg widş=""115"" height=""80"" border=""0"" /></a></li>")
               kdMenu.MoveNext
               Loop
          End If
          kdMenu.Close %></ul></center></marquee>
          </div>

          <!--En Çok Okunanlar Bitişi-->


Bu kod gardaşım bende v.5.0 bölümünden aldım[/QUOTE]


<img src="&ResimBul(kdMenu("kucuk_resim")) &" widş=""115"" height=""80"" border=""0"" />   bu kodu yukradakı ilgili kısımla değiştirisen sorun cozulecektir... olmazsa resim boyutunu 115*80 den 104*80 olarak değiştir...

Arkadaşlar bu verdiğiniz aşağıdaki link bozuk bana biri bu kayan haber bölümü ve galeri bloğunu verebilirmi acil olarak lazımda..

http://www.gemerekli.com/dosyalar/resimli_kayan_haber.rar

Ben seo problemini çözdümarkadaşlar aşağıdaki kodları aynen kayansonhaberler.asp e atın düzelecektir



<%
          kdMenu.Open "SELECT TOP 20 tarih, baslik, durum, onay, haberID FROM tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC",adoCon, 1, 3
          If Not kdMenu.EOF Then
               Do While Not kdMenu.EOF
                    Response.Write("<a target=""_blank"" href=""/haber/"& kdMenu("haberID") &""" title="""& kdMenu("baslik") &""">"& Trim(kdMenu("baslik")) &"</a>  |  ")
               kdMenu.MoveNext
               Loop
          End If
          kdMenu.Close %><!--En Çok Okunanlar Biti&şorn;i-->




aşağıdaki kodlar ise resimlisonhaberler.asp için



kdMenu.Open "SELECT TOP 20 tarih, baslik, durum, kucuk_resim, onay, haberID FROM tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC",adoCon, 1, 3
          If Not kdMenu.EOF Then
               Do While Not kdMenu.EOF
                    Response.Write("<li><a target=""_blank"" href=""/haber/"& kdMenu("haberID") &""" title="""& kdMenu("baslik") &"""><font color=red><b>"& Trim(kdMenu("baslik")) &"</b></font><br><img src="& kdMenu("kucuk_resim") &" hisarhaber/hisar.jpg widş=""115"" height=""80"" border=""0"" /></a></li>")
               kdMenu.MoveNext
               Loop
          End If
          kdMenu.Close %></ul></center></marquee>
          </div>

          <!--En Çok Okunanlar Biti&şorn;i-->