Ajuda! Soma Total De Registro Por Ano

[Guest - Marcio Henrique -]

Este escirpt que fiz faz uma soma parcial e eu gostaria de fazer uma soma total no final da consulta somando totas as redes do ano Exemplo:

* TPALUNOS E UM SCRIPT QUE FAZ A SOMA DE CADA REDE....

ANO: 2004

REDE: MUNICIPAL

ALUNOS1A4: 50

ALUNOS5A8: 20

* TPALUNOS: 70

REDE: ESTADUAL

ALUNOS1A4: 80

ALUNOS5A8: 60

* TPALUNOS: 140

REDE: PARTICULAR

ALUNOS1A4: 40

ALUNOS5A8: 60

*TPALUNOS: 100

EM CADA CONSULTA DESSA O RESULTADO PARCIAL SOMA MAIS EU GOSTARIA DE QUE NO FINAL SOME MUNICIPAL, ESTADUAL E PARTICULAR...

<% dim c1,r1

set c1=server.createObject("adodb.connection")

set r1=server.createObject("adodb.recordset")

c1.connectionstring = "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath(".") & "/SIEDCAPL.mdb;"

c1.open

set r1=c1.execute("select * from C_MAT_PRE_SER_IDADE_01A where " & request.form("tipo") & " like '" & request.form("PROD") & "%' ")

%>

<% count = 0

Do While Not r1.eof

<%= r1.Fields("ANO")%>%>

<%= r1.Fields("REDE")%>

<%= r1.Fields("ALUNOS1A4")%>

<%= r1.Fields("ALUNOS5A8")%>

<%DIM TALINOS14,TALUNOS58,TPALUNOS

TALUNOS14 = r1.Fields("ALINOS1A4")

TALUNOS58 = r1.Fields("ALINOS5A8")

TPALUNOS = TALUNOS14 + TALUNOS58

Response.Write TPALUNOS%>

<% r1.MoveNext

count=count+1

Loop%>

[bareta]

faça o seguinte:

somatotal=var1+var2+var3
... e ai por diante

response.write somatotal

[Guest - Marcio Henrique -]

Mais esta soma n da certo tem que ser uma que no final do loop que soma todos os campos no final.....

somatotal=var1+var2+var3

... e ai por diante

response.write somatotal