Non riesco ad ottenere la somma di valori numerici da un ciclo while, il sistema mi calcola solo l'ultimo record rilevato come posso fare ?
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "Select * from Periodi where idStr="&idStr&" And (nOut <="&nPartenza&" And nIn <="&nPartenza&")"
rs.Open sql, conn, 3, 3
if rs.recordcount > 0 then
numero = rs.recordcount
while not rs.EOF
%>
<%P2=rs("periodo")&" - "&rs("dataIn")&" - "&rs("dataOut")%>
<% if p2 <> p1 And nArrivo < rs("nIn") And nPartenza <> rs("nOut") then %>
<%g2=DateDiff("d", rs("dataIn"), rs("dataOut"))%>
<%
Set rsAll = Server.CreateObject("ADODB.RecordSet")
sqlAll = "select * from prezzi where idPeriodo="&rs("ID")&" And dTipologiaAlloggio="&alloggio&" And idStr="&idStr
rsAll.Open sqlAll, conn, 3, 3
if rsAll.recordcount > 0 then
prezzo = rsAll("prezzo")
else
prezzo = 0
end if
rsAll.Close
Set rsAll = Nothing
%>
<%=rs("periodo")%>

<% end if %>[/b]
<%
rs.movenext
wend
end if
%>