Ecco:
codice:
' estrazione numero prodotti nel carrello
Set prodCar = Server.CreateObject( "ADODB.Recordset" )
prodCar.ActiveConnection = Con
sqlString = "SELECT carrello_prodottoID, COUNT(carrello_prodottoID) as contaprodotti FROM carrello GROUP BY carrello_utenteID"
prodCar.Open sqlString	
WHILE NOT prodCar.EOF 
contaprodotti = prodCar("contaprodotti")
prodCar.MoveNext
WEND
prodCar.Close
Set prodCar = Nothing

IF userID > 0 THEN 
IF orderTotal > "0" THEN
Response.Write "N° prodotti: " & contaprodotti
Response.Write "
Valore di " & formatNumber(orderTotal, 2) & " €"
ELSE
Response.Write "carrello vuoto"
END IF	
ELSE
Response.Write "carrello vuoto"
END IF
Ti ho inserito anche la parte dove richiamo contaprodotti

Ciao