mydesign haber scripti yardım

<% 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 %>

<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>

<%

SQL = "SELECT TOP 8 haberID, baslik, ozet, kucuk_resim, durum, onay, tarih, kategori FROM tblHaberler"
SQL = SQL &" WHERE durum = True AND onay = True AND kucuk_resim <> '' AND kategori <> "& intKoseYazilari &" AND tarih < #"& CDate(strSonHaberTarih) &"#"
SQL = SQL &" ORDER BY tarih DESC"
kdGenel.Open SQL, adoCon, 1, 3
If Not kdGenel.Eof Then
Response.Write ""
intLooper = 1
Do While intLooper <= 8 AND Not kdGenel.Eof %><td valign="top" align="center">
<div class="son_haber" style="margin-bottom:5px;<% If intLooper = 0 Then Response.Write " margin-bottom:0;"%>">
<h3><a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><%=Left(kdGen el("baslik"),40)%><% If Len(kdGenel("baslik")) > 40 Then Response.Write "..."%></a></h3>
<a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><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"),90)%><% If Len(kdGenel("ozet")) > 90 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><%
If intLooper Mod 2 = 0 AND intLooper <> 8 Then Response.Write "</tr><tr>"
intLooper = intLooper + 1
kdGenel.Movenext
Loop
Response.Write ""
End If
kdGenel.Close %>