Operation is not allowed when the object is closed.

Hej

Får nogle gange denne fejlbesked:
"Operation is not allowed when the object is closed."

Fejlen forekommer i: "rs.MoveNext"

Hjælp! :)

_______________________________________

<%
if not Request.Cookies("emailSent") = "true" then

    Set myConn=Server.CreateObject("ADODB.Connection")
    myConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="+server.Mappath("/db/midb.mdb"))
    strSQL="select * FROM search"
    set rs = myConn.execute(strSQL)

    Set myConn2=Server.CreateObject("ADODB.Connection")
    myConn2.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="+server.Mappath("/db/mindb2.mdb"))           

    do while not rs.EOF
        if rs("email_sent") = "false" and rs("datopublish") <= Date() then
           
            strSQL2="select * FROM users WHERE id = " & rs("bruger_id")
            set rs2 = myConn2.execute(strSQL2)
                       
            if not rs.EOF then
                Set JMail          = Server.CreateObject("JMail.SMTPMail")
                JMail.ServerAddress = "XXXXXXXXXXXX"
                  JMail.Sender        = Session("email")
                  JMail.Subject      = "XXXXXXXXX - " & rs("url_title") & " (" & rs("linkType") & ")"
                  JMail.AddRecipient       rs2("email")
                  JMail.Priority      = 3
                  JMail.AddHeader      "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
                  JMail.Body             = "Hej " & rs2("navn") & vbcrlf & vbcrlf & "Til orientering er din henvisning netop blevet offentliggjort på vores forside. Held og lykke med den. Vi håber, at du vil oprette flere spændende henvisninger." & vbcrlf & vbcrlf & "Hilsen" & vbcrlf & Session("navn")
                  JMail.Execute     
                  Set JMail = Nothing

                  strSQL="update search SET email_sent = 'true' WHERE url_id = " & rs("url_id")
                set rs = myConn.execute(strSQL)
                besked = besked & rs2("navn") & " - "
              end if
        end if

        rs.MoveNext
    Loop
   
    myConn.close
    myConn2.close
   
    Response.Cookies("emailSent") = "true"
    Response.Cookies("emailSent").expires = Date + 1

    if besked = "" then
        besked = "Der var ingen at orientere om, at deres oprettede henvisning(er) i dag er blevet offentliggjort på vores forside."
    else
        besked = besked & " er blevet orienteret om, at deres oprettede henvisning(er) i dag er blevet offentliggjort på vores forside."
    end if
'else
    'besked = "Orienteringen af dem, som i dag har fået offentliggjort deres henvisninger på vores forside, har allerede fundet sted for i dag."
end if
%>