Problema al quitar cantidades a 0

[Essftg]

hola tengo un problema al mostrar las cantidades a 0, no me las elimina este es mi codigo.
Tipo de error:
Microsoft JET Database Engine (0x80040E23)
El controlador de filas hizo referencia a una fila eliminada o marcada para eliminación.
/tienda/bck 190805/Tienda/checkout.asp, línea 171

<%
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)

element2 = "quant2" & rsProd("productID")
intQuant2 = Request.form(element2)

element3 = "quant3" & rsProd("productID")
intQuant3 = Request.form(element3)

element4 = "quant4" & rsProd("productID")
intQuant4 = Request.form(element4)

element5 = "quant5" & rsProd("productID")
intQuant5 = Request.form(element5)

element6 = "quant6" & rsProd("productID")
intQuant6 = Request.form(element6)

element7 = "quant7" & rsProd("productID")
intQuant7 = Request.form(element7)

element8 = "quant8" & rsProd("productID")
intQuant8 = Request.form(element8)

element9 = "quant9" & rsProd("productID")
intQuant9 = Request.form(element9)

element10 = "quant10" & rsProd("productID")
intQuant10 = Request.form(element10)

element11 = "quant11" & rsProd("productID")
intQuant11 = Request.form(element11)

element12 = "quant12" & rsProd("productID")
intQuant12 = Request.form(element12)

element13 = "quant13" & rsProd("productID")
intQuant13 = Request.form(element13)

element14 = "quant14" & rsProd("productID")
intQuant14 = Request.form(element14)

element15 = "quant15" & rsProd("productID")
intQuant15 = Request.form(element15)

element16 = "quant16" & rsProd("productID")
intQuant12 = Request.form(element16)

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


if intQuant2 <> "" and isNumeric(intQuant2) then
if intQuant2 < 0 then
rsProd.Delete
else
rsProd("quantity2") = intQuant2
end if
end if

if intQuant3 <> "" and isNumeric(intQuant3) then
if intQuant3 < 0 then
rsProd.Delete
else
rsProd("quantity3") = intQuant3
end if
end if

if intQuant4 <> "" and isNumeric(intQuant4) then
if intQuant4 < 0 then
rsProd.Delete
else
rsProd("quantity4") = intQuant4
end if
end if

if intQuant5 <> "" and isNumeric(intQuant5) then
if intQuant5 < 0 then
rsProd.Delete
else
rsProd("quantity5") = intQuant5
end if
end if

if intQuant6 <> "" and isNumeric(intQuant6) then
if intQuant6 < 0 then
rsProd.Delete
else
rsProd("quantity6") = intQuant6
end if
end if

if intQuant7 <> "" and isNumeric(intQuant7) then
if intQuant7 < 0 then
rsProd.Delete
else
rsProd("quantity7") = intQuant7
end if
end if

if intQuant8 <> "" and isNumeric(intQuant8) then
if intQuant8 < 0 then
rsProd.Delete
else
rsProd("quantity8") = intQuant8
end if
end if

if intQuant9 <> "" and isNumeric(intQuant9) then
if intQuant9 < 0 then
rsProd.Delete
else
rsProd("quantity9") = intQuant9
end if
end if

if intQuant10 <> "" and isNumeric(intQuant10) then
if intQuant10 < 0 then
rsProd.Delete
else
rsProd("quantity10") = intQuant10
end if
end if

if intQuant11 <> "" and isNumeric(intQuant11) then
if intQuant11 < 0 then
rsProd.Delete
else
rsProd("quantity11") = intQuant11
end if
end if

if intQuant12 <> "" and isNumeric(intQuant12) then
if intQuant12 < 0 then
rsProd.Delete
else
rsProd("quantity12") = intQuant12
end if
end if


if intQuant13 <> "" and isNumeric(intQuant13) then
if intQuant13 < 0 then
rsProd.Delete
else
rsProd("quantity13") = intQuant13
end if
end if

if intQuant14 <> "" and isNumeric(intQuant14) then
if intQuant14 < 0 then
rsProd.Delete
else
rsProd("quantity14") = intQuant14
end if
end if

if intQuant15 <> "" and isNumeric(intQuant15) then
if intQuant15 < 0 then
rsProd.Delete
else
rsProd("quantity15") = intQuant15
end if
end if

if intQuant16 <> "" and isNumeric(intQuant16) then
if intQuant16 < 0 then
rsProd.Delete
else
rsProd("quantity16") = intQuant16
end if
end if

rsProd.Update
rsProd.MoveNext

wend

if Request.form("control") = "Actualizar" 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

%>
si pongo =0 entonces me da un error en el quantity2 y asi sucesivamente, como puedo solucionarlo???