Fejlretning i kode

Hi eksperter,

Umiddelbart ved jeg ikke hvorfor denne kode give fejl. Måske i kan se det :)


Error:
.........................
Error Type:
ADODB.Recordset.1 (0x80020009)
Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.
../pages/situationreports.asp, line 14





Code:
....................
<%
sub situationreports

ban()

if getmode() = "normal" then

response.write("<table width='630' height='23' valign='top' align='center' cellpadding='0' cellspacing='0' class='textnormalbold'>")
response.write("<tr>")
response.write("<td width='200'>Dato:<td>")
response.write("<td width='200'>Overskrift:<td>")
response.write("<td width='150'>Forfatter:<td>")
response.write("<td width='80' align='right'>Detaljer:<td>")
response.write("</tr>")
response.write("<table>")
response.write("<table width='630' align='center' cellpadding='0' cellspacing='0' class='textnormalbold'>")
response.write("<tr>")
response.write("<td height='1' background='../temp/gfx/dot_horizontal.gif'></td>")
response.write("</tr>")
response.write("<table>")
response.write("<br>")

SQL = "SELECT situationreports.id as situationreportsid, img_id, DATE_FORMAT(datetime, '%d.%m.%Y  "& "kl. " &" %H:%i') AS datestr, topic, author, body, members.id as memberid, nick, firstname, lastname FROM situationreports, members WHERE members.id = author ORDER BY situationreports.id DESC;"
set rs = Conn.execute(SQL)

datestr = replace(RS("datestr"),"-","/")

if RS.EOF then

response.write("<table width='630' valign='top' align='center' cellpadding='0' cellspacing='0' class='no_content'>")
response.write("<tr>")
response.write("<td>Ingen nyheder fundet i databasen.</td>")
response.write("</tr>")
response.write("</table>")

else

do while not RS.EOF

response.write("<table width='630' valign='top' align='center' cellpadding='0' cellspacing='0' class='no_content'>")
response.write("<tr>")
response.write("<td width='200'>" &  datestr & "<td>")
response.write("<td width='200'>" & RS("topic") & "<td>")
response.write("<td width='150'><a href='?page=7&mode=details&id=" & RS("memberid") & "'>  " & RS("firstname") & " '" & RS("nick") & "' " & RS("lastname") & "</a><td>")
response.write("<td width='80' align='right'><a href='?page=3&mode=details&id" & RS("situationreportsid") & "'>Læs mere...</a><td>")
response.write("</tr>")
response.write("</table>")


    RS.movenext
    loop

    end if


SQL = "SELECT COUNT(*) AS count FROM situationreports"
set rs = Conn.execute(SQL)

response.write("<br>")
response.write("<table width='630' align='center' cellpadding='0' cellspacing='0' class='textnormal'>")
response.write("<tr>")
response.write("<td height='1' background='../temp/gfx/dot_horizontal.gif'></td>")
response.write("</tr>")
response.write("<tr>")
response.write("<td align='center'><br>Nyheder: " & RS("count") & "</td>")
response.write("</tr>")
response.write("<table>")

end if




end sub
%>