Arkadaslar

En son 5 veya 10 haberi listelemesini sağlayan
haber sitesinin sağ tarafında "En Çok Okunanlar" gibi bir şey istiyorum ama bir türlü beceremedim.

En son 5 haber listelerken sağında bulunduğu kategori ismini yazmasını istiyorum.

Örnek

En Son 5 Haber

x Haber 1 - Sağlık
x Haber 2 - Eğitim
x Haber 3 - Spor
x Haber 4 - Sağlık
x Haber 5 - Eğitim

Aşağıdaki kodları, haber sisteminin herhangi bir yerinde kullanabilirsiniz.

Sitenizin başka bölümünde kullanacaksanız, haber sisteminin fonksiyon sayfasını, o sayfaya include etmelisiniz.

[CODE]<%
Set kdYeniler = Server.CreateObject("Adodb.Recordset")
kdYeniler.Open "SELECT TOP 5 baslik, durum, onay, tarih, kategori, haberID FROM tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC",adoCon, 1, 3
If Not kdYeniler.EOF Then
     Do While Not kdYeniler.EOF
          Response.Write("<a href=""haber_oku.asp?haber="& kdYeniler("haberID") &""" title="""& kdYeniler("baslik") &""">"& Trim(kdYeniler("baslik")) &"</a> - "& KategoriBul(kdYeniler("kategori") &"<br />")
     kdYeniler.MoveNext
     Loop
End If
kdYeniler.Close
Set kdYeniler = Noşing
%>[/CODE]

tşk ederim.

abi bunu yazdığımda böyle bi hata alıyorum


Hata Tipi:
Microsoft VBScript derleme hatası (0x800A03EE)
')' gerekli
/design/inc_sag_menu.asp, line 83, column 138
Response.Write("<a href=""haber_oku.asp?haber="& kdYeniler("haberID") &""" title="""& kdYeniler("baslik") &""">"& Trim(kdYeniler("baslik")") &"</a> - "& KategoriBul(kdYeniler("kategori") &"<br/>")
-----------------------------------------------------------------------------------------------------------------------------------------^


sorun nerde acaba

tamam abi yaptım sorun veridiğin kodda

Response.Write("<a href=""haber_oku.asp?haber="& kdYeniler("haberID") &""" title="""& kdYeniler("baslik") &""">"& Trim(kdYeniler("baslik")) &"</a> - "& KategoriBul(kdYeniler("kategori")( BU BÖLÜME ")" BUNU YAZMAYI UNUTMUŞSUN ONUN İÇİN OLMUŞ" &"<br />")


Arkadaşlar aşağıdaki kodu kullanırsanız çalışacaktır



<%
Set kdYeniler = Server.CreateObject("Adodb.Recordset")
kdYeniler.Open "SELECT TOP 5 baslik, durum, onay, tarih, kategori, haberID FROM tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC",adoCon, 1, 3
If Not kdYeniler.EOF Then
     Do While Not kdYeniler.EOF
          Response.Write("<a href=""haber_oku.asp?haber="& kdYeniler("haberID") &""" title="""& kdYeniler("baslik") &""">"& Trim(kdYeniler("baslik")) &"</a> - "& KategoriBul(kdYeniler("kategori")) &"<br />")
     kdYeniler.MoveNext
     Loop
End If
kdYeniler.Close
Set kdYeniler = Noşing
%>


hockeyy2007-10-30 04:19:49

Murat abii bunu sadece 1 kategori için nasıl yaparız yanii mesela ben belirliyecem başında a kategorisi yazacak altında o kategoriye ait son 5 haber abi bunu nasıl yaparız ben yapamadım bi türlü lütfen yardım