aggiornare il carrello

[Sclerato]

ho scritto questo per aggiornare il carrello...
cosa c'e' di sbagliato?
in pratica gli dico, leggi tutto il carrello, se trovi gia' un prodotto uguale a quello che sto cercando di aggiungere, allora aumenta di 1 la quantita' di quello gia' presente, altrimenti scrivi un nuovo record

' se lo stesso prodotto e' gia' presente nel carrello aggiorna soltanto la quantita'
Do while NOT rs.EOF
	'response.write rs("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

[Sclerato]

questo e' il codice completo della pagina

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

[Roby_72]

Prova così:

If rs("id_prodotto") = CInt(request.form("id_prodotto")) Then

Anche se potresti ottimizzare il codice facendo subito la query con l'id nella WHERE...

Roby

[Sclerato]

grande! funziona!!
:riverenza:

[Roby_72]

Ok, ora ottimizza lo script...
Ad occhio e croce lo puoi dimezzare!

Roby

[Sclerato]

cio' provato ma stavo incasinando tutto....
fortuna che DW ha l'undo...

[Roby_72]

Fortuna a chi non lo usa, fidati!

Roby

[Sclerato]

perche'?
io non mi trovo tanto male...