Tabi hocam ne demek. MYSQL için değerler vermiştim. access kullanıyorsanız, ayarını yaparsınız.
[CODE] <div id="anket">
<h3> Özel Haber</h3>
<%kdGenel.Open "SELECT HaberID, kategori, Baslik,manset, ozet, Kucuk_Resim FROM tblHaberler WHERE Durum = "& strDBTrue &" AND kategori=39 ORDER BY Tarih DESC limit 1", adoCon, 1, 3
If Not kdGenel.Eof Then
Response.Write ""
intLooper = 1
Do While intLooper <= 3 AND Not kdGenel.Eof %>
<table height="" border="0" cellspacing="0" cellpadding="0" id="table43">
<tr>
<td align="center"
widş="" style="border-style:none; border-widş:medium; " valign="top">
<table border="0" widş="90%" id="table44" height="" cellspacing="0" cellpadding="0">
<tr>
<td height="10">
<img border="0" src="img/bos.gif" widş="23" height="1"></td>
</tr>
<tr>
<td valign="top" align="left">
<b><a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"> <% =server.HTMLEncode((left(kdGenel("baslik"),80))) %></a></b><br></k3>
<img src="<%=ResimBul(kdGenel("kucuk_resim"))%>" alt="<%=kdGenel("baslik")%>" onError="şis.src='<%=strScriptYolu%>resimler/haber/ş_resimyok.gif';" style="widş: 80px; margin-left:0; margin-right:5px; margin-top:3px; margin-bottom:0" align="left" /></a>
<% =server.HTMLEncode((left(kdGenel("ozet"),105))) %> <font color="#CC0000">
<a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><img border="0" src="http://www.kpss10.com/img/devam.gif">
<span class="devamfont" style="text-decoration: none; font-weight:700">Devamı</a></font></td>
</tr>
</table>
</td>
</tr>
</table>
<%
If intLooper Mod 2 = 0 AND intLooper <> 16 Then Response.Write ""
intLooper = intLooper + 1
kdGenel.Movenext
Loop
Response.Write ""
End If
kdGenel.Close %>
<%
SQL = "SELECT"
If strVtTuru <> "mySQL" Then SQL = SQL & " TOP 10"
SQL = SQL & " baslik, okunma, haberID, tarih, kategori FROM tblHaberler WHERE tarih >= "& strDBtarihLimit & SQLTarih(DateAdd("d", -40, Date())) & strDBtarihLimit &" AND durum = "& strDBTrue &" AND onay = "& strDBTrue &" AND kategori=39 AND kategori <> "& intKoseYazilari
SQL = SQL & " ORDER BY okunma DESC"
If strVtTuru = "mySQL" Then SQL = SQL & " LIMIT 5"
kdYardimci.Open SQL, adoCon, 1, 3
If Not kdYardimci.EOF Then
intLooper = 1
Response.Write "<ul>"
Do While Not kdYardimci.EOF AND intLooper <= 5
Response.Write("<li><b><a href="""& LinkVer("haber", kdYardimci("haberID"), kdYardimci("baslik"), KategoriBul(kdYardimci("kategori"))) &""">"& Trim((left(kdYardimci("baslik"),38))) &"</a><b></li>")
kdYardimci.MoveNext
intLooper = intLooper + 1
Loop
Response.Write "</ul>"
Else
Response.Write "<ul><li></li></ul>"
End If
kdYardimci.Close %></div>[/CODE]