ASP Sayfalandırma hakkında

çok teşekkürler fakat şöyle bir hata verdi;

Microsoft VBScript compilation error '800a041f'
Unexpected 'Next'
/siir_isimleri.asp, line 189
next
^

yardımcı olabilecek yokmu?

kdMenu.Open "SELECT TOP 500 baslik, tarih, durum, onay, haberID FROM tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC",adoCon, 1, 3
If Not kdMenu.EOF Then
Do While Not kdMenu.EOF
Response.Write("<li><a href=""haber_oku.asp?haber="& kdMenu("haberID") &""" title="""& kdMenu("baslik") &""">"& Trim(kdMenu("baslik")) &"</a> Eklenme Tarihi: "& kdMenu("tarih") &"</li>")
kdMenu.MoveNext
Loop
End If
kdMenu.Close %>

----------------------------------------

<%

sirasi = request.querystring("sirasi")

kdMenu.Open "SELECT TOP 500 baslik, tarih, durum, onay, haberID FROM
tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC,
haberID ASC",adoCon, 1, 3

if not hbr.eof then


if sirasi = "" then

sirasi = 1

end if


kdMenu.pagesize = 20

toplam = kdMenu.pagecount

hbr.absolutepage = sirasi

%>

Yukarda Belirtilen Senin İlk attigin kodlar o kısımı hemen altında belirttigim
gibi değiştirirsen hic bir sorun vermeden calisacaktir.Yanlis kopyalama yapmissin
copy paste sırasinda meta karakterler fln filanda geliyor onlari temizlerken
silmeyi unuttugun bi kısım olmus ondan bu hatayi almissin tam emin değilim bu konudan
ama yukardaki verdiqim kodları değiştirirsen sorunun cozulecektir.