Either BOF or EOF is True ... og !?

Jeg har en indkøbskurv som gider mig den velkendte:

ADODB.Recordset error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

checkout.asp, line 214

når jeg ændre antallet på varene i kurven til nul og opdatere. Det er ikke helt meningen, jeg skal stadig kunne se kurven den skal bare være tom ...

Herunder er de to stumper asp som jeg regner med problemet er i, jeg kan bare ikke finde det ... :
************************************************
<% 
else
       
        intOrderID = cstr(Session("orderID"))

        set rsProd = Server.CreateObject("ADODB.Recordset")
        rsProd.Open "SELECT * FROM itemsOrdered " _
            & "WHERE orderID="& intOrderID, _
            Conn, adOpenDynamic, adLockPessimistic, adCmdText
        while not rsProd.EOF

            element = "quant" & rsProd("productID")
            intQuant = Request.form(element)

            if intQuant <> "" and isNumeric(intQuant) then
                if intQuant = 0 then
                    rsProd.Delete
                else
                    rsProd("quantity") = intQuant
                end if
            end if
            rsProd.Update
            rsProd.MoveNext
        wend

        if Request.form("control") = "Update Order" then

            rsProd.Close
            set rsProd = Nothing
   
            Conn.Close
            set Conn = Nothing

            Response.Redirect "reviewOrder.asp"
        else
       
        if rsProd.BOF and rsProd.EOF then
                rsProd.Close
                set rsProd = Nothing
           
                Conn.Close
                set Conn = Nothing
               
                Session("orderID") = ""
                Response.Redirect "checkout.asp"
           
        else
%>
*************************************************

<%
            set rsProdInfo = Server.CreateObject("ADODB.Recordset")
            rsProdInfo.Open "products", Conn, adOpenStatic, adLockOptimistic, adCmdTable

            intTotal = 0

            rsProd.MoveFirst
            while not rsProd.EOF
                rsProdInfo.MoveFirst
                rsProdInfo.Find "productID = " & rsProd("productID")
                intProdID = rsProd("productID")
                strProdName = rsProdInfo("productName")
                intPrice = formatNumber(rsProdInfo("productPrice"), 2)
                intQuant = rsProd("quantity")
                intExtPrice = formatNumber((intPrice * intQuant), 2)
                intTotal = intTotal + intExtPrice
%>

************************************************

Jeg ved at EOF og BOF er et 'FAQ', men jeg har ikke kunne bruge de andre spørgsmål til at rette min fejl, og her på 3. time er det ved at være lidt træls ...

Bonus spørgsmål:
Når jeg retter antallet og kurven ikke tømmes helt, så springer jeg videre til betalingssiden (ordren), det skal den egentlig heller ikke, den skal blive i kurven. Så hvis du lige kan se hvor jeg skal rette det er det helt raket !