EOF-fel.

Hej!

Varför får jag följande fel med följane kod?

	<table width="560" cellpadding="5" cellspacing="0" align="center">
	<%
	Set MinCon = Server.CreateObject("ADODB.Connection")
	Set rs = Server.CreateObject("ADODB.Recordset")
	MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/db.mdb")
	
	Const perSida = 10
	Sidan = Request.QueryString("sida")
	If Sidan = "" then 
	sida = 1 
	Else 
	sida = Sidan 
	
	End If 
	
	SQL = "Select * From gastbok order by datum desc"
	
	With rs
	.CursorLocation = 3
	.CacheSize = perSida 
	End With
	
	rs.Open SQL, MinCon
	
	if rs.eof then
	response.write "" 
	else 
	
	With rs
	.PageSize = perSida 
	.AbsolutePage = sida
	End With
	
	Sidor =  rs.PageCount
	
	Count = 0 
	Do While Not rs.EOF And Count < rs.PageSize 
	%>
	<tr>
	<td width="470" valign="top" bgcolor="<%=color%>"><b><%=rs("namn")%>, skrivet <%=rs("datum") %></b></td>
	<td align="right"width="100" valign="top" bgcolor="<%=color%>"><a href="mailto:<%=rs("epost")%>"><font color="#6C8299"><b>mail</b></font></a> | <a href="<%=rs("websida")%>" target="_blank"><font color="#6C8299"><b>webb</b></font></a></td>
	</tr>
	<tr>
	<td width="570" valign="top" bgcolor="<%=color%>" colspan="2">
	<%=rs("inlagg")%>
	</td>
	</tr>
	<tr>
	<td height="1" bgcolor="#A8A8A8" colspan="2"></td>
	</tr>
	<%
	Count = Count + 1
	rs.MoveNext
	Loop
	
	rs.Close
	MinCon.Close
	%>
	</table>
	
	<div align="center">
	<%If Sidor <> 1 Then%><b>Fler inlägg:</b>
	<%For Sid = 1 To Sidor%>
	<%If (Int(Sid)) = (Int(sida)) Then%>(<%=Sid%>)<%Else%> <a href="obt.asp?showPage=gastbok&sida=<%=Sid%>"><%=Sid%></a> <%End If%>
	<%Next%> 
	<%End If%>
	</div>

Felmeddelande:

Feltyp:
ADODB.Recordset (0x800A0BCD)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
/arbajten/agren/gastbok.asp, line 107