Problemi con una semplice somma

[dtomasini]

Ciao a tutti, questo codice mi visualizza un elenco di progetti. Al termine devo elencare la somma dei costi previsti dei vari progetti.

<%
costoUfficio=0
%>
<h1>Verifica Situazione Progetti Formativi Proposti</h1>
<%
	Set Conn=Server.CreateObject("ADODB.Connection")
					
	Conn.open (strConn)

	dim strSql
	strSql = "SELECT * FROM progettiFormativi ORDER BY dipartimentoProponente, approvazione, dataVerifica DESC"
	Set rs = Server.CreateObject("ADODB.Recordset")

	rs.Open strSql, Conn ,3,3
	%>
	<form action="delPianificazione.asp" method="post">
        <table width="640">
	<%
	'Lettura Dati da Database
	k=0
	dim color1, color2, color3, color4,colorA, colorB, reparto
	color1 = "#99FF99"
	color2 = "#99FF66"
	color3 = "#99FF33"
	color4 = "#99FF66"
	reparto=""
	do while not(rs.eof)

	titolo = rs("titoloCorso")
	obiettivi = rs("obbiettivi")
	costoPrevisto = rs("costoPrevisto")
	periodoDal = rs("periodoDal")
	periodoAl = rs("periodoAl")
	tipologia = rs("tipologia")
	competenzeTecniche = rs("competenzeTecniche")
	competenzeRelazionali = rs("competenzeRelazionali")
	competenzeOrganizzative = rs("competenzeOrganizzative")
	competenzeEtiche = ("competenzeEtiche")
	problemi = rs("problemiRilevati")
	edizioni = rs("edizioni")
	durata = rs("durata")
	settimana = rs("settimana")
	ore = rs("ore")
	modalita = rs("modalitaDiValutazione")
	respScient = rs("responsabileScentifico")
	contatto = rs("contatto")
	completo1 = ""
	completo2 = ""
	completo3 = ""
	completo4 = ""
	completo = ""
					
	if ((titolo<>"") AND (obiettivi<>"") AND (periodoDal<>"") AND (periodoAl<>"") AND (tipologia<>"")) then
		completo1 = "full"
	end if
					
	if ((problemi<>"") AND (edizioni<>"") AND (modalita<>"") AND (respScient<>"") AND (contatto<>"")) then
		completo2="full"
	end if
					
	if ((competenzeTecniche<>0) OR (competenzeOrganizzative<>0) OR (competenzeRelazionali<>0) OR (competenzeEtiche<>"")) then
		completo3 = "full"
	end if
					
	if ((settimana<>0) OR (ore<>0) OR (durata<>"")) then
		completo4 = "full"
	end if
			
	if ((completo1<>"") AND (completo2<>"") AND (completo3<>"") AND (completo4<>"")) then
		completo = "full"
	end if

	'response.Write(rs(5) & "<<>>" & rs(0))
	if(k Mod 2 = 0) then
		colorA = color1
		colorB = color2
	else
		colorA = color2
		colorB = color2
	end if
					
	'response.write(costo1 & "<<>>" & costoPrevisto)
	if (reparto<>"") then
		if (reparto<>rs("titoloDipartimento")) then
			reparto=rs("titoloDipartimento")
			%>
                        <tr><td colspan="4"><h2>Dipartimento: <% =rs("titoloDipartimento") %></h2></td></tr>
                        <tr>
                        	<td>Appr.</td>
                            <td align="center">Titolo Progetto</td>
                            <td align="center">Completo</td>
                            <td align="center">Elimina</td>
                        </tr>
                        <%
		end if
	else
		reparto=rs("titoloDipartimento")
		%>
                <tr><td colspan="4"><h2>Dipartimento: <% =rs("titoloDipartimento")%></h2></td></tr>
                <tr>
                <td>Appr.</td>
                <td align="center">Titolo Progetto</td>
                <td align="center">Completo</td>
                <td align="center">Elimina</td>
                <tr>
                <%
	end if
	%>
         <tr>
         <td bgcolor="<% =colorB %>" align="center" width="10px">
         <%
	if (rs("approvazione")<>0) then %>
                 [img]img/approvato.jpg[/img]
                  <%
	else
		%>
               [img]img/rifiutato.jpg[/img]
		<%
	end if
	%>
         </td>
         <td bgcolor="<% =colorA %>">"><% =titolo %></td>
        <td bgcolor="<% =colorB %>" align="center">
          <%
	if (completo<>"") then %>
              [img]img/approvato.jpg[/img]
              <%
	else
	%>
               [img]img/rifiutato.jpg[/img]
	<%
	end if
	%>
        </td>
        <td bgcolor="<% =colorB %>" align="center"><input type="checkbox" name="myCheckbox" value="<% =rs("ID") %>"/> - 
				&admin=on">Modifica</td>
       </tr>
       <%				
                costoUfficio = costoUfficio + costoPrevisto
		k = k + 1
		rs.movenext
loop
                                                                    
rs.Close
set rs = Nothing
Conn.Close 
set Conn = Nothing
			%>
<tr><td colspan="4">
<table>
<tr>
<td>Budget Disponibile:</td>
<td>10000</td>
<td>Previsione Costi:</td>
<td><% =costoUfficio %></td>
</tr>
</table>

In teoria la variabile costoUfficio dovrebbe prendere i valori di costoPrevisto e sommarli per arrivare alla fine del ciclo e dare la somma totale.
Alla fine, però, il risultato è 0!!!!
Ho provato a visualizzare singolarmente la variabile costoPrevisto e mi visualizza il valore. Non so come mai quando cerco di eseguire la somma il valore rimanga sempre 0
Grazie Mille
Qualcuno sa spiegarmi il motivo?