Bu rss.asp deki sorun nedir bakar mısınız?

Arkadaşlar rss.asp isimli bir dosya oluşturdum şu şekilde bir rss akış tablosu yaptım fakat firefoxda ve explorer da bu rss yi eklediğimde son verileri okumuyor. Boş olarak gösteriyor. Kodları aşağıda yazıyorum. Asp olarak bir hata yok gibi gözüküyor ama bir de siz bakarmısınız acaba ?

<?xml version="1.0" encoding="iso-8859-9"?>
<rss version="2.0">


<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databese.mdb")
Response.Buffer = True
Response.ContentType = "text/xml"
%>
<channel>
<title>Site.com</title>
<link>http://www.site.com</link>
<description>En son eklenen 20 kayıt</description>
<language>tr</language>
<%
Function degistir(kelime)
kelime=Replace(kelime,"ü","u")
kelime=Replace(kelime,"ş","s")
kelime=Replace(kelime,"ğ","g")
kelime=Replace(kelime,"ı","i")
kelime=Replace(kelime,"ç","c")
kelime=Replace(kelime,"ö","o")
kelime=Replace(kelime,"Ü","U")
kelime=Replace(kelime,"Ş","S")
kelime=Replace(kelime,"Ğ","G")
kelime=Replace(kelime,"İ","I")
kelime=Replace(kelime,"Ç","C")
kelime=Replace(kelime,"Ö","O")
kelime=Replace(kelime," ","-")
degistir=kelime

End Function
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select top 20 * from videolar order by vid desc"
rs.Open SQL,baglanti,1,3
i = 0
Do While i =< 19 And Not rs.Eof


Response.Write "<item>"
Response.Write "<title><![CDATA["&rs("vadi")&"]]></title>"
Response.Write "<link><![CDATA[izle/"& rs("vid") &"/" &degistir(rs("vAdi" ) ) & ".htm]]></link>"
Response.Write "<description><![CDATA[" & left(rs("vAciklama"),310) & "...<br><br><a target=""_blank"" href=""http://www.site.com/izle/"& rs("vid") &"/" &degistir(rs("vAdi" ) ) & ".htm"">Devamı için tıklayınız</a>]]></description>"
Response.Write "</item>"



i = i + 1
rs.MoveNext
Loop
rs.Close
%>
</channel>
</rss>

Şimdiden teşekkür ederim

döngü içinde sorun var sanırım, TOP 20 ile While i =< 19 bölümlerini değiştirmeyi dene, rakamları arttır eğer While i =< 19 kullanıyorsan top 20 yazmana gerek yok!
SQL = "Select * from videolar order by vid desc limit 0,20"
yazsan da olur '0' kayıt sırası, '20' kaç tane kayıt gösterileceğini belirtir.

nerde kullanacağını bilmiyorum ama istersen asp nin dosya yazma özelliğiyle .xml de yazdırabilirsin