Buongiorno ho un problema con del codice ASP classico.
Il mio scopo è prendere dei dati di un recordset e modificare dei campi per calcolare dei totali o delle percentuali sul totale.
All'interno della sql seleziono i due campi "TotaleProgressivo" e "StatoAvanzamento" impostandoli a 0 (SELECT CAST(0 AS FLOAT) AS TotaleProgressivo).
Poi nel vbscript dovrei prendere i campi "ImportoStanziato" e "ImportoPagato" e calcolare un totale progressivo da mettere nel campo
"TotaleProgressivo", ma quando cerco di impostare qualsiasi valore un tale Field del recordset da questo errore :


Microsoft Cursor Engine error '80040e21'

Si sono verificati errori in un'operazione composta da più passaggi. Controllare i singoli valori di stato.


Questo è il codice incriminato con evidenziato i due punti in cui avvengono tali errori.


Set dwhfDB = Server.CreateObject("ADODB.Connection")
dwhfDB.Open Application("DSN")

Set dwhfRec = Server.CreateObject("ADODB.Recordset")
dwhfRec.CursorLocation = 3
dwhfRec.Pagesize = NumRighe

dwhfRec.Open sql, dwhfDB, 3, 3

Dim TotaleProgressivo
TotaleProgressivo = 0

While Not dwhfRec.EOF

If Not IsNull(dwhfRec("ImportoStanziato")) OR dwhfRec("ImportoStanziato") <> "" OR dwhfRec("ImportoStanziato") <> "0" Then
TotaleProgressivo = TotaleProgressivo + cdbl(dwhfRec("ImportoStanziato"))
dwhfRec("TotaleProgressivo") = cdbl(TotaleProgressivo) ' <---- ERRORE

ElseIf Not IsNull(dwhfRec("ImportoPagato")) OR dwhfRec("ImportoPagato") <> "" OR dwhfRec("ImportoPagato") <> "0" Then

dwhfRec("TotaleProgressivo") = cdbl(TotaleProgressivo) '<----- ERRORE
End If

dwhfRec.MoveNext

Wend



Da cosa dipende l'errore ?
Grazie in anticipo