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