Somma parziale

[Prof_Mauri]

Ciao a tutti, dovrei fare la somma per mese e la somma totale di alcuni record, ma mentre quella totale mi riesce, quella parziale per mese no!!!
Se qualcuno potesse aiutarmi gliene sarei grato, il codice è questo :

.......SELECT IDScad,DataScad,Descrizione,NomeFornitore,Importo,"&Sum&"(ElencoScadenze.Importo) AS TOTALE, Month(DataScad) AS Mese, StatoPagamento FROM ElencoScadenze ORDER BY DataScad ASC ")
periodo=""
totgen=0
while NOT objrs.EOF
if periodo<>objrs("Mese") then
%>
<tr>
<td colspan="7" class="ms-grid8-left" style="background-color: #CCFFFF">Mese di : <%=MonthName(Month(objrs("DataScad")),False)%>
</td>
</tr>
<tr>
<td class="ms-grid8-left" align="center">Data</td>
<td class="ms-grid8-left" align="center">Descrizione</td>
<td class="ms-grid8-left" align="center">Fornitore</td>
<td colspan="2" class="ms-grid8-left" align="center">Importo</td>
<td colspan="2" class="ms-grid8-left" align="center"><font color="#FFFFFF">-</font></td>
</tr>
<%
periodo=objrs("Mese")
end if
%>
<tr>
<td class="ms-grid8-even">
<%Response.Write objrs("DataScad")%>
</td>
<td class="ms-grid8-even">
<%Response.Write objrs("Descrizione")%>
</td>
<td class="ms-grid8-even">
<%Response.Write objrs("NomeFornitore")%>
</td>
<td colspan="2" class="ms-grid8-even" align="right">
<%Response.Write " € "&(formatNumber(objRs("Importo"),2))%>
</td>
<td align="center" class="ms-grid8-even">
<form method="post" action="Modifica_scadenza.asp?id=<%=objRs("IDScad")%>">
<button type="submit" value="Modifica">Modifica
</button>
</form>
</td>
<td align="center" class="ms-grid8-even">
<form method="post" action="conferma_elimina_scadenza.asp?id=<%=objRs("IDScad")%>">
<button type="submit" onClick="return elimina();">


Elimina</p>
</button>
</form>
</td>
</tr>
<%
totgen=totgen+objRs("Importo")
%>
<%
objrs.Movenext
wend
%>
<tr height="8"><td colspan="6">
	</td></tr>
<td class="ms-grid8-even" colspan="4" align="right">Totale Generale</td>
<td class="ms-grid8-even" align="right">
<%=" € "&(formatNumber((totgen),2))%>
</td>
</tr>
<%
objRs.Close
Set objrs = Nothing
objConn.Close
set objConn = nothing
%>
</table>

[Roby_72]

Non ti riesce nel senso che riporta un parziale non corretto?
Assicurati che Month(DataScad) AS Mese si riferisca correttamente ai mesi, in che formato è la data nel db?

Roby

[Prof_Mauri]

no, nel senso che non capisco come inserirlo nel codice che già ho;
vorrei fare una cosa tipo :

<%
totmese=0
%>
<%while NOT objrs.EOF
totmese=totmese+objRs("TOTALE")
%>
<%
objrs.Movenext
wend
%>
<%=" € "&(formatNumber((totmese),2))%>
<%
objRs.Close
%>

In modo che prima di arrivare al "totgen" che si trova alla fine di tutti i mesi, ci sia per ogni mese un "totmese", come posso fare?

[optime]

fatti un array!

array(mese)=array(mese)+valore

mese lo ricavi dalla data con month(data)

[Prof_Mauri]

mi piacerebbe capire al volo il tuo suggerimento, ma aimè non è così, per cui non è che potresti darmi una mano, please?

[optime]

intanto fa' due cose

inizializza un array

Dim Mesi(12)

e una variabile che contenga il mese

Dim Mese

[Prof_Mauri]

così :

<%
Dim Mesi(12)
Dim Mese(Month(objrs("DataScad"))
%>

va bene?

[optime]

no, ti ho chiesto solo di dimensionare

l'assegnazione la devi fare nel ciclo

[Prof_Mauri]

scusa ma non capisco

[Prof_Mauri]

non ho mai usato un array