İmaj listelemek???

ARkadaşlar merhabalar,
sorunum şu şekilde,
dbde kayıtlı olan resimleri her sayfada 6 adet görünecek şekilde sıralıyorum.Ancak son sayfaya geldiğimde eğer kalan kayıtlar 3 yada 6 adet değilse sayfa hata veriyor.Yani 2,4,5,1 adet resim kalmışsa listelenecek sayfada şu hata çıkıyor;
ADODB.Field (0x80020009)
Ya BOF ya da EOF Doğru veya geçerli kayıt silinmiş. İstenen işlem geçerli bir kayıt gerektiriyor.
Kodları yazdım aşağıda.Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim;
<%
sayfala=6
sayfa=cint(request.QueryString("sayfa"))
if sayfa="" then sayfa =0 end if
set rsimage = Server.CreateObject("ADODB.Recordset")
rsimage.open "SELECT * FROM images where imagekategori = 'gamykolye'" ,baglan,1,3
If rsimage.BOF And rsimage.EOF Then%>



<div align="center"><font color="#FFFFFF"><span class="style8" style="font-size: 12px">
Bu Bölümde Henüz Resim Yoktur.</span></font> </div>

<%else
git = Int((sayfa * sayfala)+ 0)
rsimage.Move(git)
for i=1 to (sayfala\3)
if not rsimage.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="360" border="0" cellspacing="5" cellpadding="0">
<tr>
<td width="180" height="20"><table width="20" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td><a href="fotogoster.asp?imageid=<%=rsimage("imageid") %>"><img src="<%=rsimage("imagesmallurl")%>" border="0" /></a></td>

</tr>
</table></td>
<td width="180">
&nbsp;</td>
<td width="180">
<%rsimage.MoveNext%>

<table width="20" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td><a href="fotogoster.asp?imageid=<%=rsimage("imageid") %>"><img src="<%=rsimage("imagesmallurl")%>" border="0" /></a></td>

</tr>
</table>
</td>

<td width="180">
&nbsp;</td>
<td width="180">
<%rsimage.MoveNext
%>
<table width="20" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td><a href="fotogoster.asp?imageid=<%=rsimage("imageid") %>"><img src="<%=rsimage("imagesmallurl")%>" border="0" /></a></td>

</tr>
</table>


</td>
</tr>
</table>
<%
if not rsimage.eof or rsimage.bof then rsimage.MoveNext
end if
next
sayfasayisi=(rsimage.RecordCount-1)\sayfala %>
<span class="style6"><font color="#FFFFFF" face="Monotype Corsiva">Sayfalar:&nbsp;
<%for a=0 to sayfasayisi%>
<%if sayfa<>a then%><a href="?sayfa=<%=a%>" class="style6"><%=a+1%></a></span><%else%><span class="style8"><%=a+1%></span><%end if%><span class="style6"></span>
<%next%>
<%
End If
rsimage.close%></font>
</div></td>
</tr>
</table>

</td>
</tr>
</table></td>
</tr>
</table>
</div>
<div align="center">
<table width="750" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10" bgcolor="#000000"></td>
</tr>
</table>
</div>

Buyur bunu dene

<%
sayfala=6
sayfa=cint(request.QueryString("sayfa")) 
if sayfa="" then sayfa =0 end if 
set rsimage = Server.CreateObject("ADODB.Recordset")
rsimage.open "SELECT * FROM images where imagekategori = 'gamykolye'" ,baglan,1,3
If rsimage.BOF And rsimage.EOF Then%>



<div align="center"><font color="#FFFFFF"><span class="style8" style="font-size: 12px">
Bu Bölümde Henüz Resim Yoktur.</span></font> </div>

<%else 
git = Int((sayfa * sayfala)+ 0)
rsimage.Move(git)
for i=1 to (sayfala\3) 
if not rsimage.eof then
%>

<table border="1" width="100%" id="table1">
	<tr>
		<td>
		<table width="20" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC" id="table2">
<tr>
<td><a href="fotogoster.asp?imageid=<%=rsimage("imageid") %>"><img src="<%=rsimage("imagesmallurl")%>" border="0" /></a></td>
<%rsimage.MoveNext
%> 
</tr>
</table></td>
	</tr>
</table>
<%
if not rsimage.eof or rsimage.bof then rsimage.MoveNext
end if
next
sayfasayisi=(rsimage.RecordCount-1)\sayfala %>
<span class="style6"><font color="#FFFFFF" face="Monotype Corsiva">Sayfalar:&nbsp;
<%for a=0 to sayfasayisi%> 
<%if sayfa<>a then%><a href="?sayfa=<%=a%>" class="style6"><%=a+1%></a></span><%else%><span class="style8"><%=a+1%></span><%end if%><span class="style6"></span>
<%next%>
<% 
End If
rsimage.close%></font> 
</div></td>
</tr>
</table>

Bu hatayı veriyor :

Microsoft VBScript derleme hatası (0x800A0401)
Deyim sonu gerekli
/gamzeaktan/denek.asp, line 37, column 35
sayfasayisi=(rsimage.RecordCount-1)sayfala