Ciao a tutti, questo codice mi visualizza un elenco di progetti. Al termine devo elencare la somma dei costi previsti dei vari progetti.
In teoria la variabile costoUfficio dovrebbe prendere i valori di costoPrevisto e sommarli per arrivare alla fine del ciclo e dare la somma totale.codice:<% 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>
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?
Rispondi quotando
