questo e' il codice completo della pagina
codice:
<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath(DB)
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM carrello WHERE id_utente="&session("user_session"), conn ,3,3

' se lo stesso prodotto e' gia' presente nel carrello aggiorna soltanto la quantita'
Do while NOT rs.EOF
	response.write ("id_prodotto(DB): ")&rs("id_prodotto") &"| id_prodotto:" & request.form("id_prodotto") & "
"
	If rs("id_prodotto") = request.form("id_prodotto") Then
		response.write "SI"
		'rs("quantita") = rs("quantita") + 1
		'rs.update
		GiaPresente = True
		Exit do
	Else
		GiaPresente = False
	End If	
	rs.movenext
Loop

' altrimenti aggiungi un nuovo prodotto
If GiaPresente = False Then
	rs.addnew
	rs("id_utente") = session("user_session")
	rs("id_prodotto") = request.form("id_prodotto")
	rs("nome_prodotto") = request.form("nome_prodotto")
	rs("quantita") = request.form("quantita")
	rs.update
End If

rs.Close
Set rs = Nothing

' visuallizza il contenuto gia' aggiornato
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM carrello WHERE id_utente="&session("user_session"), conn ,3,3
response.write "user_session: "&session("user_session")&"
"

do while NOT rs.EOF
	response.write "id:"&rs("id_prodotto")&"|qt:"&rs("quantita")&"|nome:"&rs("nome_prodotto")&"
"
	rs.movenext
loop

conn.Close
set conn = Nothing
%>