• 03-05-2010, 17:08:02
    #1
    <div id="anket1">
    <h3>Son yorumlar</h3>
    </div>
    
       <marquee onMouseOver=this.stop() onMouseOut=this.start() scrollamount="2" scrolldelay="90" behavior="scroll" direction="up"  width="100%" height="180" style="background-image : URL(<%=strScriptYolu%>img/bg/yorum_bg.png) ;">
    <%
       kdGenel.Open "SELECT yorumID, tarih, yazan,  yorum FROM tblYorumlar WHERE Durum = "& strDBTrue &" ORDER BY Tarih DESC", adoCon, 1, 3
             If Not kdGenel.Eof Then
             
    
                intLooper = 0
    
                Do While intLooper <= 6 AND Not kdGenel.Eof
    
                   intLooper = intLooper + 1 %>
    
    
    <div class="yorum_baslik">
                <table width="570" cellpadding="0" border="0" cellspacing="0">
                <tr>
                   <td  class="yorum_ad"><b><%=kdGenel("yazan")%></b></td>
                   <td  class="yorum_tarih"><%=tarihFormatla(kdGenel("tarih"), 1)%></td>
                </tr>
                </table>
             </div>
             <div class="yorum_ozet"><%=kdGenel("yorum")%></div>
                   <%
    
                   kdGenel.Movenext
                Loop
    
             End If
    
             kdGenel.Close %>
          </marquee>
    Bu kod çalışıyor arkadaşlar ancak ben buna haber başlıklarını ekleyemedim... Yazan kişinin yan tarafında haber başlığı cıksa çok muhteşem olcak

    demo :Burada resmi var

    demo link:Burada sağ tarafta yazarların altında


    Kullanmak isteyen olursa css'sini de atayım;
    /* Yorumlar */
    
    #yorumlar {
       margin-bottom:10px; font-size:11px; }
    
    #yorumlar td {
       font-size:11px; }
       
    #yorum-yaz label {
       display:block; float:left; margin-bottom:5px; margin-top:5px; text-align: right; width: 85px; padding-right: 20px;}
    
    #yorum-yaz input, #yorum-yaz textarea {
       display: block; float: left; }
    
    #yorum-yaz br {
       clear:left; }
    
    .yorum_baslik {
       padding:6px 0; border:1px solid #ccc; background:#f7f7f7; margin-bottom:3px; }
    
    .yorum_ad a { 
       font-weight:bold; text-decoration:none; }
    
    .yorum_ad {
       padding:1px 0 0 27px; background:url(../img/icon/yorum.gif) 3% 62% no-repeat; }
    
    .yorum_tarih {
       padding:2px 0 0 25px; background:url(../img/icon/tarih.gif) 1% 60% no-repeat; color:#666;  }
    
    .yorum_ihbar {
       padding:2px 0 0 23px; background:url(../img/icon/ihbar.gif) 1% 60% no-repeat; }
    
    .yorum_ihbar a {
       color:#666; text-decoration:none; }
    
    .yorum_ad a:hover, .yorum_ihbar a:hover {
       text-decoration:underline; }
    
    .yorum_ozet {
       padding:5px 0 3px 10px; margin-bottom:3px; }
    
    .uyari {
       padding:10px 0; text-align:center; width:100%; border:1px solid #FF3300; background: #FFCCCC; }
    
    .puan {
       color:#999; }
  • 03-05-2010, 18:35:52
    #2
    Kimlik doğrulama veya yönetimden onay bekliyor.
    İlgili satırı aşağıdaki gibi düzenlerseniz haber başlığının çıkması lazım.

    Response.Write("<div class=""yorum_baslik""><div class=""yorum_ad"">&nbsp;&nbsp;&nbsp;<b>"& Trim(kdYardimci("yazan")) &"</b> - "& kdYardimci("baslik") &"</div><div class=""yorum_ad"">&nbsp;&nbsp;&nbsp;<a style=""font-weight:bold;"" href="""& LinkVer("haber", kdMenu("haber"), kdYardimci("baslik"), KategoriBul(kdYardimci("kategori"))) &""" title="""& kdYardimci("baslik") &""">"& Trim(kdYardimci("baslik")) &"</a></div><div class=""yorum_ozet"">"& Trim(kdYardimci("yorum")) &"</div></div>")
    Tema güzel olmuş, elinize sağlık.
  • 03-05-2010, 21:56:26
    #3
    Yanlış kodu vermişim :/ özür dilerim düzelttim kullandığım kodu...bunda haber başlıkları birtürlü cıkmıyor :/
  • 07-05-2010, 14:17:48
    #4
    kdGenel.Open "SELECT yorumID, tarih, yazan, yorum FROM tblYorumlar .. satırında haber numarasını alıp, döngü içinde haber id'sinden sorgulama yaparsanız, sorgu sonucu haber başlığını da alabilirsiniz.