<% SQL = "SELECT"
If strVtTuru <> "mySQL" Then SQL = SQL & " TOP 10"
SQL = SQL & " haberID, baslik, ozet, kucuk_resim, durum, onay, tarih, kategori FROM tblHaberler"
SQL = SQL &" WHERE durum = "& strDBTrue &" AND onay = "& strDBTrue
kdYardimci.Open "SELECT * FROM tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC", adoCon, 1, 3
If Not kdYardimci.Eof Then
Do While Not kdYardimci.Eof
kdYardimci.Movenext
Loop
Else
End If
kdyardimci.Close
arrMansetHaberler = Split(strMansetHaberler, ",")
For intLooper = 0 To UBound(arrMansetHaberler) - 1
SQL = SQL & " AND haberID <> "& arrMansetHaberler(intLooper)
Next
SQL = SQL &" ORDER BY tarih DESC"
If strVtTuru = "mySQL" Then SQL = SQL & " LIMIT 10"
kdGenel.Open SQL, adoCon, 1, 3
If Not kdGenel.Eof Then
Response.Write "<table widş=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0""><tr>"
intLooper = 1
Do While intLooper <= 10 AND Not kdGenel.Eof %>
<td style="widş:10%;<% If intLooper Mod 3 = 0 Then Response.Write "padding-left:2px;" Else Response.Write "padding-right:2px;" End If %>">
<div class="son_haber"><h3><a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><%=kdGenel("b aslik")%></a></h3>
<img src="<%=ResimBul(kdgenel("kucuk_resim"))%>" align="left" style="widş:100px; height:76px; padding-right:2px" />
<% =server.HTMLEncode((left(kdGenel("ozet"),95))) %>...<a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>">Devamı »</a>
</div>
</td> <%
If intLooper Mod 2 = 0 AND intLooper <> 10 Then Response.Write "</tr><tr>"
intLooper = intLooper + 1
kdGenel.Movenext
Loop
Response.Write "</tr></table>"
End If
kdGenel.Close %>