sto cercando di sommare una colonna a fine lista di una pagina ASP dal seguente codice:

<%
Set Rs2=Server.createobject("ADODB.Recordset")
SQLStr="SELECT * FROM VAPCOM00F where utentedominio = 'y' order by 'mese', 'anno'"
rs2.open SQLStr, cn

while not rs2.eof
%>



<tr><td width="50" bgcolor="#F3F2F1" align="center"><%=rs2("Apnord")%></td>

<td width="25" bgcolor="#F3F2F1"><%=rs2("Anno")%></td>

<td width="25" bgcolor="#F3F2F1"><%=rs2("Mese")%></td>

<td width="250" bgcolor="#F3F2F1"><%=rs2("Apragc")%></td>

<td width="50" bgcolor="#F3F2F1" align="right"><%=rs2("Apimpe")%></td>
<td width="25" style="text-align: right" bgcolor="#F3F2F1"><%=rs2("Aptor")%></td>
<td bgcolor="#F3F2F1" width="25"><%=rs2("AnnoConsegna")%></td>
<td bgcolor="#F3F2F1" width="25"><%=rs2("MeseConsegna")%></td>
<td bgcolor="#F3F2F1" width="25"><%=rs2("Giornoconsegna")%></td>
</tr>


<%
rs2.movenext
wend
rs2.close
set rs2 = nothing

%>

come posso fare la somma della colonna "apimpe" e inserirla a fine lista?

perché ottengo il seguente messaggio di errore su questa stringa: somma = somma + rs2("Apimpe")?
mi sembra di aver fatto tutto... l'errore cmq è questo: Microsoft VBScript runtime error '800a000d'
Type mismatch

ti ringrazio tanto