katid=5 'Kategori id request ile de çekebilirsin..
set haber=Server.CreateObject("Adodb.Recordset")
haber.open "Select * from haber where kategori="&katid,accessbaglanti,1,3

for i=1 to 5
'Sayfada görünecek kısım için kodlar buraya örnek response.write (haber("konu"))

haber.movenext
next



Kolay gelsin