Type mismatch 'CDBL'

[ubbicom]

Ciao a tutti.

Vi chiedo un aiuto su come poter risolvere il problema in oggetto specificato.

La parte di codice interessato è la seguente:

          A5 = "0" & Trim(Rec("CLIENTI") & "")
          A5 = CDBL(A5)

Quando il valore di Rec("CLIENTI") è -1 ( valore transitorio in attesa di variazione a numero valido ) lo script asp restituisce l'errore in oggetto.

Come posso risolvere?
Grazie

[rotteninside]

testi se è un numero < 0 non esegui il cast in double

[ubbicom]

Grazie, mi fai un esempio ?

[rotteninside]

A5 = "0" & Trim(Rec("CLIENTI") & "")
if Rec("CLIENTI") > 0 then
    A5 = CDBL(A5)
end if

[ubbicom]

Gentilissimo, grazie !