l'erroe è che viene valorizzato male contaprodotti quando lo richiamo in:
Response.Write "N° prodotti: " & contaprodotti

Ad esempio ora mi esce 1 anche se è 2.

Ciao