Uso di cint

[vpoppa]

Ho scritto il seguente codice:

Set Rs_ID = Server.CreateObject ("ADODB.RecordSet")
SQL="SELECT Max(SchedaPA.FASE) AS MaxDiCODIDPA FROM SchedaPA WHERE CODID='"&codid&"' and CODIDOBJ='"&codidobj&"'"
Rs_ID.Open SQL,connobj,2,3
If Rs_ID.eof then
numero = 0
else
numero = cint(Mid(Rs_ID("MaxDiCODIDPA"), 1, 2))
end if

ma ho il seguente errore sulla lina di codice in grassetto (nel caso che la SQL da come risultato una lista vuota):

Errore di run-time di Microsoft VBScript error '800a005e'
Utilizzo non valido di Null: 'cint'

Qualcuno mi sa aiutare.

Grazie.

Vincenzo

[optime]

probabilmente Rs_ID("MaxDiCODIDPA") e' NULL. testalo prima di usarlo

[vpoppa]

Ho scritto:

If Rs_ID("MaxDiCODIDPA")=NULL then
numero = 0
else
numero = cint(Mid(Rs_ID("MaxDiCODIDPA"), 1, 2))
end if

ma ho lo stesso errore e non capisco perchè vada nel ramo else.

Vincenzo

[longline]

     If IsNull(Rs_ID("MaxDiCODIDPA")) then
       numero = 0
     else
       numero = cint(Mid(Rs_ID("MaxDiCODIDPA"), 1, 2))
     end if