Problema somma dati

[m_ferraris]

ciao a tutti, questo è il mio problema: ho una pagina in cui inserisco il periodo di fatturazione e la ditta a cui devo fatturare; una seconda pagina dove vedo a visualizzare tutti i documenti di trasporto in base al periodo scelto e ne faccio fare la somma totale degli oggetti i quali andranno poi a trovarsi nella fattura finale. Il problema è questo: se tutti i documenti di trasporto sono creati nello stesso modo e nello stesso ordine, i totali mi vengono giusti però, se una voce è spostata, oppure non inserita, non riesco a farla escludere dalla somma e quindi mi da un errore di calcolo finale.

Sapete aiutarmi su questo problema?

[Mems]

A occhio e croce senza vedere il codice mi pare un po difficile aiutarti.

[m_ferraris]

la prima parte è quella della visualizzazione per date dei documenti di trasporto.

la seconda parte è quella che riguarda la somma di un unico capo del tabella del db.

<%
Dim rsReport__MMColParam
rsReport__MMColParam = "1"
If (Request.QueryString("data") <> "") Then
rsReport__MMColParam = Request.QueryString("data")
End If
%>
<%
dataInizio = month(Request.QueryString("dataInizio")) & "/" & day(Request.QueryString("dataInizio")) & "/" & year(Request.QueryString("dataInizio"))
dataFine = month(Request.QueryString("dataFine")) & "/" & day(Request.QueryString("dataFine")) & "/" & year(Request.QueryString("dataFine"))

dim totale
totale = 0

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("../Database/db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM ddt WHERE (data BETWEEN #"&dataInizio&"# And #"&dataFine&"#) AND nome_esercizio= '" &REQUEST("nome_esercizio")& "' ORDER BY esercizio ASC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3



do while not(rs.eof)
if intVolta="1" then
intVolta="0"
intTesto="#000000"
intSfondo="#ffccff"
else
totale = totale + rs(36)
intVolta="1"
intTesto="#000000"
intSfondo="#ccccff"
end if


%>
<tr bgcolor="#CCCCCC" bordercolor="#CCCCCC">
<td width="15"></td>
<td colspan="15">
<div align="center">Documento di Trasporto numero:
<input type="text" name="ddt" value="<%=rs(1)%> \ <%=rs(2)%>">
<span class="Stile2"><font color="#000000"> <a href="../ddt/Modifica1.asp" target="_blank">Modifica
D.d.T.</a></font></span></div>
</td>
<tr bgcolor="<%=intSfondo%>">
<td width="15">
<div align="center">1</div>
</td>
<td width="55">
<div align="center"><%=rs("s1")%></div>
</td>
<td width="67">
<div align="center"><%=rs("q1")%></div>
</td>
<td width="49">
<div align="center"><%=rs("p1")%></div>
</td>
<td width="21">
<div align="center">6</div>
</td>
<td width="55">
<div align="center"><%=rs("s6")%></div>
</td>
<td width="67">
<div align="center"><%=rs("q6")%></div>
</td>
<td width="49">
<div align="center"><%=rs("p6")%></div>
</td>
<td width="19">
<div align="center">11</div>
</td>
<td width="76">
<div align="center"><%=rs("s11")%></div>
</td>
<td width="63">
<div align="center"><%=rs("q11")%></div>
</td>
<td width="47">
<div align="center"><%=rs("p11")%></div>
</td>
<td width="16">
<div align="center">16</div>
</td>
<td width="57">
<div align="center"><%=rs("s16")%></div>
</td>
<td width="63">
<div align="center"><%=rs("q16")%></div>
</td>
<td width="47">
<div align="center"><%=rs("p16")%></div>
</td>
</tr>
<tr bgcolor="<%=intSfondo%>">
<td width="15">
<div align="center">2</div>
</td>
<td width="55">
<div align="center"><%=rs("s2")%></div>
</td>
<td width="67">
<div align="center"><%=rs("q2")%></div>
</td>
<td width="49">
<div align="center"><%=rs("p2")%></div>
</td>
<td width="21">
<div align="center">7</div>
</td>
<td width="55">
<div align="center"><%=rs("s7")%></div>
</td>
<td width="67">
<div align="center"><%=rs("q7")%></div>
</td>
<td width="49">
<div align="center"><%=rs("p7")%></div>
</td>
<td width="19">
<div align="center">12</div>
</td>
<td width="76">
<div align="center"><%=rs("s12")%></div>
</td>
<td width="63">
<div align="center"><%=rs("q12")%></div>
</td>
<td width="47">
<div align="center"><%=rs("p12")%></div>
</td>
<td width="16">
<div align="center">17</div>
</td>
<td width="57">
<div align="center"><%=rs("s17")%></div>
</td>
<td width="63">
<div align="center"><%=rs("q17")%></div>
</td>
<td width="47">
<div align="center"><%=rs("p17")%></div>
</td>
</tr>
<tr bgcolor="<%=intSfondo%>">
<td width="15">
<div align="center">3</div>
</td>
<td width="55">
<div align="center"><%=rs("s3")%></div>
</td>
<td width="67">
<div align="center"><%=rs("q3")%></div>
</td>
<td width="49">
<div align="center"><%=rs("p3")%></div>
</td>
<td width="21">
<div align="center">8</div>
</td>
<td width="55">
<div align="center"><%=rs("s8")%></div>
</td>
<td width="67">
<div align="center"><%=rs("q8")%></div>
</td>
<td width="49">
<div align="center"><%=rs("p8")%></div>
</td>
<td width="19">
<div align="center">13</div>
</td>
<td width="76">
<div align="center"><%=rs("s13")%></div>
</td>
<td width="63">
<div align="center"><%=rs("q13")%></div>
</td>
<td width="47">
<div align="center"><%=rs("p13")%></div>
</td>
<td width="16">
<div align="center">18</div>
</td>
<td width="57">
<div align="center"><%=rs("s18")%></div>
</td>
<td width="63">
<div align="center"><%=rs("q18")%></div>
</td>
<td width="47">
<div align="center"><%=rs("p18")%></div>
</td>
</tr>
<tr bgcolor="<%=intSfondo%>">
<td width="15">
<div align="center">4</div>
</td>
<td width="55">
<div align="center"><%=rs("s4")%></div>
</td>
<td width="67">
<div align="center"><%=rs("q4")%></div>
</td>
<td width="49">
<div align="center"><%=rs("p4")%></div>
</td>
<td width="21">
<div align="center">9</div>
</td>
<td width="55">
<div align="center"><%=rs("s9")%></div>
</td>
<td width="67">
<div align="center"><%=rs("q9")%></div>
</td>
<td width="49">
<div align="center"><%=rs("p9")%></div>
</td>
<td width="19">
<div align="center">14</div>
</td>
<td width="76">
<div align="center"><%=rs("s14")%></div>
</td>
<td width="63">
<div align="center"><%=rs("q14")%></div>
</td>
<td width="47">
<div align="center"><%=rs("p14")%></div>
</td>
<td width="16">
<div align="center">19</div>
</td>
<td width="57">
<div align="center"><%=rs("s19")%></div>
</td>
<td width="63">
<div align="center"><%=rs("q19")%></div>
</td>
<td width="47">
<div align="center"><%=rs("p19")%></div>
</td>
</tr>
<tr bgcolor="<%=intSfondo%>">
<td width="15">
<div align="center">5</div>
</td>
<td width="55">
<div align="center"><%=rs("s5")%></div>
</td>
<td width="67">
<div align="center"><%=rs("q5")%></div>
</td>
<td width="49">
<div align="center"><%=rs("p5")%></div>
</td>
<td width="21">
<div align="center">10</div>
</td>
<td width="55">
<div align="center"><%=rs("s10")%></div>
</td>
<td width="67">
<div align="center"><%=rs("q10")%></div>
</td>
<td width="49">
<div align="center"><%=rs("p10")%></div>
</td>
<td width="19">
<div align="center">15</div>
</td>
<td width="76">
<div align="center"><%=rs("s15")%></div>
</td>
<td width="63">
<div align="center"><%=rs("q15")%></div>
</td>
<td width="47">
<div align="center"><%=rs("p15")%></div>
</td>
<td width="16">
<div align="center">20</div>
</td>
<td width="57">
<div align="center"><%=rs("s20")%></div>
</td>
<td width="63">
<div align="center"><%=rs("q20")%></div>
</td>
<td width="47">
<div align="center"><%=rs("p20")%></div>
</td>
</tr>
<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</table>


<table width="867" border="0">
<tr>
<td height="26">
<div align="left">
<p align="center"></p>
</div>
<div align="center"> <font size="4" color="#FF00CC"><font color="#993399">RIEPILOGO
TOTALE DEGLI ELEMENTI DA FATTURARE DI TUTTI I D.d.t.:</font></font></div>
</td>
</tr>
</table>


<table width="870" border="1" bordercolor="#000000">
<tr>
<td width="72" height="30" bordercolor="#CCCCCC"></td>
<td width="193" bgcolor="#FF9966" height="30">
<div align="center">Articolo:</div>
</td>
<td width="164" bgcolor="#FF9966" height="30">
<div align="center">Quantit&agrave; Totale:</div>
</td>
<td width="30" height="30" bordercolor="#CCCCCC"></td>
<td width="221" bgcolor="#FF9966" height="30">
<div align="center">Articolo:</div>
</td>
<td width="164" bgcolor="#FF9966" height="30">
<div align="center">Quantit&agrave; Totale:</div>
</td>
</tr>
<tr>
<td width="72">
<div align="center">1</div>
</td>
<td width="193">
<div align="center">
<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("../Database/db.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM ddt WHERE nome_esercizio= '" &REQUEST("nome_esercizio")& "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
%>
<input type="text" name="s1" value="<%=rs(15)%>">
</div>
</td>
<td width="164">
<%
Dim mdb
mdb = "../Database/db.mdb"

'creiamo l'oggetto Connection
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")

'apriamo la connessione
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(mdb)

'settiamo la nostra stringa SQL
Dim str_sql
str_sql = "select sum(q1) as totale from ddt WHERE (data BETWEEN #"&dataInizio&"# And #"&dataFine&"#) AND nome_esercizio= '" &REQUEST("nome_esercizio")& "'"

'creiamo l'oggetto RS
set rs = conn.execute(str_sql)
%>
<input type="text" name="t1" value="<%=rs("totale")%>">
</td>
<td width="30">
<div align="center">11</div>
</td>
<td width="221">
<div align="center">[b]
<%