Acil Yardım

<%
Dim BaslikMenu
Dim Resimler
Dim Ozetler
Dim Basliklar
Dim strStyle
Dim intKategori
Dim strHaberResim
Dim strSonHaberTarih
Dim strMansetHaberler

Sub Manset(intKategori)

strSonHaberTarih = Now()
strMansetHaberler = ""
SQL = "SELECT"
If strVtTuru <> "mySQL" Then SQL = SQL & " TOP 13"
SQL = SQL & " haberID, kategori, baslik, ozet, tarih, editor, yorum, onemli, onay, resim, okunma, manset, Baslik_ID"
SQL = SQL & " FROM tblHaberler WHERE durum = "& strDBTrue &" AND onay = "& strDBTrue &" AND manset = "& strDBTrue &" AND kategori <> "& intKoseYazilari &""
If IsNumeric(intKategori) AND intKategori <> 0 Then
kdYardimci.Open "SELECT * FROM tblKategoriler WHERE ustKatID = "& intKategori &"", adoCon, 1, 3
If Not kdYardimci.Eof Then
SQL = SQL & " AND (kategori = "& intKategori
Do While Not kdYardimci.Eof
SQL = SQL & " OR kategori = "& kdYardimci("katID")
kdYardimci.Movenext
Loop
SQL = SQL & ")"
Else
SQL = SQL & " AND kategori = "& intKategori
End If
kdyardimci.Close
End If
SQL = SQL & " ORDER BY Tarih DESC, haberID DESC"
If strVtTuru = "mySQL" Then SQL = SQL & " LIMIT 13"

kdGenel.Open SQL, adoCon, 1, 3
intToplam = MansetSayi(intKategori)

'// Veritabanında uygun kayıt yoksa hata mesajı önleniyor
If Not intToplam = 0 Then

intLooper = 1

BaslikMenu = "<ul id=""manset"">"
Basliklar = ""
Resimler = ""
Ozetler = ""

'// Kayıtlar gösterilmeye başlanıyor
Do While intLooper <= 13 And Not kdGenel.Eof

strHaberResim = kdGenel("resim")
If InStr(strHaberResim, "http://") = 0 Then
If Left(strHaberResim, 1) <> "/" Then
strHaberResim = strScriptYolu & "resimler/haber/"& strHaberResim
End If
End If

If kdGenel("Tarih") < strSonHaberTarih Then strSonHaberTarih = kdGenel("Tarih")
strMansetHaberler = strMansetHaberler & kdGenel("haberID") &","

If intLooper = 1 Then strStyle = "block" Else strStyle = "none" End If

BaslikMenu = BaslikMenu & "<li><b>"& SaatFormatla(kdGenel("tarih")) &"</b> - <a onmouseover=""javascript:manset('"& intLooper &"')"" href="""& LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori"))) &""">"& Left(kdGenel("baslik"),40)
If Len(kdGenel("baslik")) > 40 Then BaslikMenu = BaslikMenu & ".."
BaslikMenu = BaslikMenu & "</a>"& SimgeGoster(kdGenel("Baslik_ID")) &"</li>"
Basliklar = Basliklar & "<span id=""manset-baslik-"& intLooper &""" style=""display:"& strStyle &""">"& Left(kdGenel("baslik"),40)
If Len(kdGenel("baslik")) > 40 Then Basliklar = Basliklar & "..."
Basliklar = Basliklar &" "
Resimler = Resimler & "<li><a onMouseOver=""document.ortaresim.src='"& strHaberResim &"';"" href="""& LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori"))) &""">"& intLooper &"</a></li>"
Ozetler = Ozetler & "<a href="""& LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori"))) &"""><img src="""& strHaberResim &""" name=""ortaresim"" width=""550"" height=""215"" border=""0"" /></a>"

intLooper = intLooper + 1
kdGenel.MoveNext
Loop

BaslikMenu = BaslikMenu & "</ul>"

End If
kdGenel.Close %>
<script type="text/javascript" language="JavaScript">
function manset(divID) {

for (i=1;i<=<%=intToplam%>;i++) {
document.getElementById('manset-resim-'+i+'').style.display = 'none';
document.getElementById('manset-ozet-'+i+'').style.display = 'none';
document.getElementById('manset-baslik-'+i+'').style.display = 'none';
}

document.getElementById('manset-baslik-'+divID+'').style.display = 'block';
document.getElementById('manset-resim-'+divID+'').style.display = 'block';
document.getElementById('manset-ozet-'+divID+'').style.display = 'block';
}
</script><%
End Sub %>