arkadaşlar websitemde böyle bir hata alıyorum.
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'EOF'

hatanın gösterdiği kodlar şöyle:

<%
qry = "SELECT TOP 3 * from makaleler order by sira desc"
rsmak = condb.Execute(qry)
if not rsmak.EOF then
i=0
m=1
do while not rsmak.eof
%>


burada nerde hata olmuştur.
Nasıl düzeltilebilir?
Teşekkürler