<td style="width:336px; padding-right:10px;">
<%
mansetSQL = "tblHaberler.haberID, tblHaberler.kategori, tblHaberler.ozet, tblHaberler.Tarih, tblHaberler.Kucuk_resim, tblHaberler.Baslik_ID, tblMansetler.id, tblMansetler.haber_id, tblMansetler.baslik, tblMansetler.sira"
mansetSQL = mansetSQL & " FROM tblHaberler, tblMansetler"
mansetSQL = mansetSQL & " WHERE tblHaberler.durum = "& strDBTrue &" AND tblHaberler.onay = "& strDBTrue &" AND tblHaberler.haberID = tblMansetler.haber_id"
arrMansetHaberler = Split(strMansetHaberler, ",")
For intLooper = 0 To UBound(arrMansetHaberler) - 1
mansetSQL = mansetSQL & " AND tblHaberler.haberID <> "& arrMansetHaberler(intLooper)
Next
mansetSQL = mansetSQL & " ORDER BY tblMansetler.sira ASC, tblHaberler.Tarih DESC"
SQL = LimitSQLOlustur(mansetSQL, "3")
kdGenel.Open SQL, adoCon, 1, 3
If Not kdGenel.Eof Then
intLooper = 0
Do While intLooper <= 3 AND Not kdGenel.Eof
intLooper = intLooper + 1 %>
<div class="son_haber" style="margin-bottom:5px;<% If intLooper = 3 Then Response.Write " margin-bottom:0;"%>">
<h3><a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><%=Left(kdGen el("baslik"),50)%><% If Len(kdGenel("baslik")) > 50 Then Response.Write "..."%></a></h3>
<img src="<%=ResimBul(kdGenel("kucuk_resim"))%>" class="th-haber-resim" style="margin-right:7px;" onError="this.src='<%=strScriptYolu%>upload/resimler/haber/th_resimyok.gif';" />
<a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>" class="aOzet"><%=Left(kdGenel("ozet"),150)%><% If Len(kdGenel("ozet")) > 150 Then Response.Write "..."%></a>
<p class="smOzet"><a href="<%=LinkVer("kategori", kdGenel("kategori"), "", KategoriBul(kdGenel("kategori")))%>"><%=KategoriBu l(kdGenel("kategori"))%></a> | <%=tarihFormatla(kdGenel("tarih"), 1)%></p>
</div>
<%
kdGenel.Movenext
Loop
End If
kdGenel.Close %>
</td>
<td>
<h3 class="baslik">EDİTÖRÜN SEÇTİKLERİ</h3>
<ul id="secim">
<%
kdYardimci.Open LimitSQLOLustur("haberID, baslik, kategori FROM tblHaberler WHERE durum = "& strDBTrue &" AND onay = "& strDBTrue &" AND secili = "& strDBTrue &" AND kategori <> "& intKoseYazilari &" ORDER BY tarih DESC", "15"), adoCon, 1, 3
If Not kdYardimci.Eof Then
intLooper = 1
Do While Not kdYardimci.Eof AND intLooper <= 15
intLooper = intLooper + 1 %>
<li class="haber<% Response.Write (intLooper Mod 2) + 1 %>"><a href="<%=LinkVer("haber", kdYardimci("haberID"), kdYardimci("baslik"), KategoriBul(kdYardimci("kategori")))%>"><%=kdYardi mci("baslik")%></a></li>
<% kdYardimci.Movenext
Loop
End If
kdYardimci.Close %>
</ul>