codice:
function progressivo_entrate(mese)
dim ms, rsprog
ms = mese
rsprog = server.createObject("ADODB.recordset")
sql = "select entrate from tabella_record where mese < '"&ms&"'"
rsprog.open sql, conn, 3, 3
progressivo_entrate = 0
do until rsprog.eof
progressivo_entrate = progressivo_entrate + rsprog("entrate")
rsprog.movenext
loop
rsprog.close
set rsprog = nothing
end function
...buttata giù proprio al volo senza testarla. A questo punto, dove hai bisogno di usare il dato, ti basta scrivere:
mese="giu"'(per esempio...ma puoi anche inserirlo con un form)
dato = progressivo_entrate(mese)
Occhio al formato delle date e alla sintassi per inserirle nella query sql!