Sitemde köşe yazarları çok fazla olduğu için anasayfada sınırlamak istiyorum ilk 5 yazarı gösterip diğerlerini başka sayfada göstermem mümkünmü acaba bu konuda bana yardımcı olursanız sevinirim. Birde scriptin özelliğini olan yeni yazı eklendiğinde ilk sıraya o geçiyor 5 yazarı nasıl sabitleyebilirim ?
Script: mydesing haber sistemi
Sitem www.kktcmedya.org
Yardımlarınızı bekliyorum
İstediğim Resim
Uploaded with ImageShack.us
Yazarlar.asp kodları
<!--#include file="../include/blok_include.asp"-->
<%
Dim yBaslikMenu
Dim yBasliklar
Dim yResimler
Dim yTarihler
Dim intYazarToplam
Dim strYazarStyle
yBaslikMenu = "<ul>"
yBasliklar = ""
yResimler = ""
yTarihler = ""
intYazarToplam = 0
Set rs = Server.CreateObject("Adodb.Recordset")
rs.Fields.Append "Haber_ID", 3
rs.Fields.Append "Baslik", 200, 255
rs.Fields.Append "Yazar", 200, 255
rs.Fields.Append "Resim", 200, 255
rs.Fields.Append "Tarih", 7
rs.Open
kdMenu.Open "SELECT UyeID, Ad, Resim FROM tblUyeler", adoCon, 1, 3
If Not kdMenu.Eof Then
Do While Not kdMenu.Eof
SQL = "SELECT"
If strVtTuru <> "mySQL" Then SQL = SQL & " TOP 1"
SQL = SQL & " haberID, baslik, tarih, editor FROM tblHaberler WHERE kategori = "& intKoseYazilari &" AND editor = "& kdMenu("UyeID") &" AND Durum = "& strDBTrue &" AND onay = "& strDBTrue &" ORDER BY tarih DESC"
If strVtTuru = "mySQL" Then SQL = SQL & " LIMIT 1"
kdYardimci.Open SQL, adoCon, 1, 3
If Not kdYardimci.Eof AND IsNull(kdMenu("Ad")) = False Then
With rs
.Addnew
.Fields("Haber_ID") = kdYardimci("haberID")
.Fields("Baslik") = kdYardimci("baslik")
.Fields("Yazar") = kdMenu("Ad")
.Fields("Resim") = kdMenu("Resim")
.Fields("Tarih") = kdYardimci("tarih")
.Update
End With
End If
kdYardimci.Close
kdMenu.Movenext
Loop
End If
kdMenu.Close
rs.Sort = "Tarih DESC"
If Not rs.Eof Then
intLooper = 1
Do While Not rs.Eof
If intLooper = 1 Then strYazarStyle = "block" Else strYazarStyle = "none" End If
yBaslikMenu = yBaslikMenu & "<li><a onmouseover=""javascript:yazarManset('"& intLooper &"')"" href="""& LinkVer("yazar", rs("Haber_ID"), rs("baslik"), rs("Yazar")) &""">"& rs("Yazar") &"</a></li>"
yResimler = yResimler & "<img id=""resim-"& intLooper &""" src="""& strScriptYolu &"upload/resimler/yazar/"& rs("Resim") &""" onError=""this.src='"& strScriptYolu &"upload/resimler/yazar/resim_yok.gif';"" border=""0"" style=""display:"& strYazarStyle &""" />"
yTarihler = yTarihler & "<span id=""tarih-"& intLooper &""" class=""yazar-tarih"" style=""display:"& strYazarStyle &""">"& TarihFormatla(rs("Tarih"),0) &"</span>"
yBasliklar = yBasliklar & "<span id=""baslik-"& intLooper &""" class=""yazar-baslik"" style=""display:"& strYazarStyle &""">"& rs("Baslik") &"</span>"
intLooper = intLooper + 1
intYazarToplam = intYazarToplam + 1
rs.Movenext
Loop %>
<script type="text/javascript" language="JavaScript">
function yazarManset(divID) {
for (i=1;i<=<%=intYazarToplam%>;i++) {
document.getElementById('resim-'+i+'').style.display = 'none';
document.getElementById('tarih-'+i+'').style.display = 'none';
document.getElementById('baslik-'+i+'').style.display = 'none';
}
document.getElementById('baslik-'+divID+'').style.display = 'block';
document.getElementById('resim-'+divID+'').style.display = 'block';
document.getElementById('tarih-'+divID+'').style.display = 'block';
}
</script><%
End If
rs.Close
If intYazarToplam > 0 Then %>
<table width="100%" cellpadding="0" cellspacing="1" border="0" class="yazar-tablo">
<tr>
<td class="yazar-avatar"><%=yResimler%></td>
<td class="yazar-basliklar"><%=yBasliklar%><%=yTarihler%></td></tr>
<tr>
<td colspan="2" class="yazar-ad"><%=yBaslikMenu%></td></tr>
</table><%
End If %> 
