subito dopo RSSconti.Close, ho scritto:
RSSconti.Close

dim TotaleQuantita, Quantita, VisualizzaQuantita
TotaleQuantita = RScart("Quantita")
TotaleQuantita=TotaleQuantita+Quantita
TotaleCart = TotaleCart + PrezzoTotaleProdotto

RScart.MoveNext
Loop
%>
<br><%=VisualizzaQuantita(totalequantita)%> -

<%=Importo%> ecc. ecc.

ma ho questo errore:

Microsoft VBScript runtime error '800a000d' sul rigo <%=VisualizzaQuantita(totalequantita)%>

Type mismatch