Either BOF or EOF is True, or ...

Får denne fejl:

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/nyheder/common.asp, line 11

common ser ud som:

<%
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bioresearch.mdb")

Function showNews
Randomize

Set RSNyheder = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT id, titel, tekst FROM nyhed WHERE startdato < date() AND slutdato > date()"
RSNyheder.Open SQL, DSN, 3,, 1

RSNyheder.Move(Int(RSNyheder.RecordCount * Rnd))

temp = "<font face=""Verdana, Arial, Helvetica, sans-serif"" size=""3""><b><font color=""#FFFFFF"">Nyheder</font></b></font><br><br><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & RSNyheder(1) & "</b><br>" & shorten(RSNyheder(2), 150) & "<br><br><a href=""#"" onclick=""openWin('nyhed.asp?id=" & RSNyheder(0) & "', 250, 250, 10, 10)"" style=""color: #000000;text-decoration: none;"">L&aelig;s mere</a></font>"

RSNyheder.Close
Set RSNyheder = Nothing

showNews = temp
End Function

Function shorten(Text, Length)
    If Len(Text) < Length + 1 Then
        Temp = Text
    ElseIf InStr(Text, " ") > 0 And InStr(Text, " ") < Length + 1 Then
        Index = 1
        Do While InStr(Index, Text, " ") < Length + 1 And Not InStr(Index + 1, Text, " ") = 0
            Index = InStr(Index + 1, Text, " ")
        Loop
        Temp = Left(Text, Index - 1) & "..."
    Else
        Temp = Left(Text, Length) & "..."
    End If
   
    shorten = Temp
End Function
%>

Hvad går galt?