Il problema di sommare in verticale è risolto, ora ho qualche problemino con le percentuali
Ho fatto in questo modo
<% s1 = RecSet("S1")
s2 = RecSet("S2")
s3 = RecSet("S3")
s4 = RecSet("S4")
s5 = RecSet("S5")
s6 = RecSet("S6")
s7 = RecSet("S7")
somma1=0
somma2=0
somma3=0
somma4=0
somma5=0
somma6=0
somma7=0
Do Until RecSet.EOF %>
<% somma1=somma1+RecSet("S1")
somma2=somma2+RecSet("S2")
somma3=somma3+RecSet("S3")
somma4=somma4+RecSet("S4")
somma5=somma5+RecSet("S5")
somma6=somma6+RecSet("S6")
somma7=somma7+RecSet("S7")
%>

per calcolarmi la percentuale volevo fare perc1=s1+somma1
ma evidentemente non si fa così