Sidst på aftenen......shit, jeg kan ikke se fejlen nu...
Det er en update-funk af en indkøbskurv, hvor antal rettes og man trykker
Opdater:
DB er en AccessXP
Jeg får fejlen Array Out Of Range (og et par enkelte andre jo mere jo roder
nu)......og tror selv det er noget Cursor der ikke kan opføre sig som
scriptet kræver.
Hvad skal der stå efter , conn, ??? så cursor er dynamisk/fleksibel??
if request.form("updateknap") = " Opdater kurven " then
sessionid = request.form("sessionid")
set rsProd = Server.CreateObject("ADODB.Recordset")
rsProd.Open "SELECT * FROM ordrelinie WHERE ordrelinie_sessionid = '"&
sessionid &"'", conn, adOpenDynamic
while not rsProd.EOF
element = rsProd("ordrelinie_produkt")
intQuant = Request.form(element) ' (element =
rsProd("ordrelinie_produkt") i formen)
response.write intQuant
if intQuant <> "" and isNumeric(intQuant) then
if intQuant = 0 then
rsProd.Delete
else
rsProd("ordrelinie_antal") = intQuant
end if
end if
rsProd.Update
rsProd.MoveNext
wend
rsProd.Close
set rsProd = Nothing
end if
--
mvh.
Arne Rasmussen
www.rasweb.dk