Inserimento update e lettura

[nm2002]

ciao,
ho un problema di inserimento/aggiornamento/lettura da DB Access.

Ho un carrello della spesa che inserisce nella tabella ORDINI
l'ordine di un certo cliente.

Ho un campo ID (contatore).
Da questo campo devo prendere l'ultimo valore inserito per usarlo in altre operazioni...

Il problerma è che NON mi fa l'update del record.

Spero di essere stato chiaro (!)


Qui di seguito parte del codice (dove sta l'errore?):

<%@ LANGUAGE = "VBScript" %>



<%
if session("custid")="" or session("custid")=null then
response.redirect("signin.asp")
end if

If IsArray(Session("cart")) = false Then
Dim acart(19,1)
Session("cart") = acart
response.redirect("error.asp?msg=" & Server.URLEncode("Il carrello della spesa è vuoto."))
end if
acart=Session("cart")
cempty=true
for i=lbound(acart) to ubound(acart)
if acart(i,0)<>"" and acart(i,1)<>"" then
cempty=false
end if
next
if cempty then
response.redirect("review.asp")
end if

fname=request.form("fname")
lname=request.form("lname")
address1=request.form("address1")
city=request.form("city")
zip=request.form("zip")
country=request.form("country")
custid=request.form("custid")
email=request.form("email")

spedirea=request.form("spedirea")
note=request.form("note")

Set rsorder = Server.CreateObject("ADODB.RecordSet")
rsorder.Open "orders", strConn, adOpenKeySet, adLockPessimistic, adCmdTable

rsorder.AddNew
rsorder("dfname") = fname
rsorder("dlname") = lname
rsorder("daddress1") = address1
rsorder("dcity") = city
rsorder("dzip") = zip
rsorder("dcountry") = country
rsorder("custid") = custid
rsorder("email") = email
'rsorder("date") = data
rsorder("date")=date() & " " & time()

rsorder.update

dim custidx
custidx =Session("custid")

rsorder.Close
Set rsorder = Nothing


dim db3
dim strConn3
strConn3 = "tabac"
Set db3 = Server.CreateObject("ADODB.Connection")
db3.open strConn3

Set apri2 = Server.CreateObject("ADODB.RecordSet")
apri2.Open "orders", strConn, adOpenKeySet, adLockPessimistic, adCmdTable

set rsid=db3.execute("SELECT top 1 * FROM orders ORDER BY orderidcont DESC")
idconto = rsid("orderidcont")
idconto = idconto + 1

response.write "L'id conto è: "
response.write idconto

apri2.Close
Set apri2 = Nothing
db3.close
set db3=nothing

[.........ecc.........]

HELP!!!!!!!!!!!
THANKSSSSSSSSS

[nm2002]

[nm2002]