I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
oliweb76
oliweb76
il 24 aprile 2002 alle 15:16
386 messaggi dal 25 maggio 2001
Quando ho 1 prodotto nel carrello e lo voglio eliminare mi da il seguente errore:

Microsoft JET Database Engine error '80040e0e'
Bookmark is invalid.

/serfunghi/asp/checkout.asp, line 145

line 145 = rsProd.MoveNext

-----------------------codice completo----------------------------------
<%
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
%>
<body>
...........................
<%
set rsProdInfo = Server.CreateObject("ADODB.Recordset")
rsProdInfo.Open "products", Conn, adOpenStatic, adLockOptimistic, adCmdTable

intTotal = 0

rsProd.MoveNext
while not rsProd.EOF
rsProdInfo.MoveNext
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
%>
</table>
<%
rsProd.Close
set rsProd = Nothing

rsProdInfo.Close
set rsProdInfo = Nothing
end if
end if
end if

Conn.Close
set Conn = Nothing
%>
</body>

Come posso risolverlo?
Grazie

RispondiQuoting
oliweb76
oliweb76
il 24 aprile 2002 alle 16:05
386 messaggi dal 25 maggio 2001
chi mi aiuta?????????????

RispondiQuoting
ojd
ojd
il 24 aprile 2002 alle 16:57
635 messaggi dal 06 settembre 2002
Ciao,
l'errore è dovuto al fatto che, essendoci un solo record, non può passare al record successivo.

Prova a remmare l'istruzione rsProd.MoveNext ('rsProd.MoveNext) e controlla se cancella correttamente il record.
Ciao.

JD
OJD
RispondiQuoting
giowen
giowen
il 24 aprile 2002 alle 17:27
54 messaggi dal 06 settembre 2002
www.archimedesrl.com
Ciao

Se il MoveNext ti necessita prova a farli un if

if not eof() then
rsProd.MoveNext
End if


while not rsProd.EOF
rsProdInfo.MoveNext
rsProdInfo.Find "productID = " & rsProd("productID")
intProdID = rsProd("productID


facce sape'



giowen
http://www.archimedesrl.com


Giovanni SPAZIOSO
MCSE - MCSA Messaanging
http://www.spazioso.org
http://www.archimedesrl.com
http://www.gecomepartners-srl.it
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.