Tipo non corrispondente.: 'aMessageMod11(...)'

[fraude]

Ciao.

Ho il seguente script, che va in errore sulla riga rossa... non capisco perchè, il campo origine è previsto nel db come numerico ed è vuoto per alcuni records, oppure ha valore 1 per altri records...:

Redim aMessages(20)
     Redim aMessageContent(20)
     Redim aMessageContentSplit(20)
     Redim aMessageMod(20)
     Redim aMessageMod2(20)
     Redim aMessageMod3(20)
     Redim aMessageMod4(20)
     Redim aMessageMod5(20)
     Redim aMessageMod6(20)
     Redim aMessageMod7(20)
     Redim aMessageMod8(20)
     Redim aMessageMod9(20)
     Redim aMessageMod10(20)
     Redim aMessageMod11(20)
         
     For I = 0 to 20 
       aMessages(I) = ""
       aMessageContent(I) = ""
       aMessageContentSplit(I) = ""
       aMessageMod(I) = ""
       aMessageMod2(I) = ""
       aMessageMod3(I) = ""
       aMessageMod4(I) = ""
       aMessageMod5(I) = ""
       aMessageMod6(I) = ""
       aMessageMod7(I) = ""
       aMessageMod8(I) = ""  
       aMessageMod9(I) = ""   
       aMessageMod10(I) = ""  
       aMessageMod11(I) = "" 
     Next

     Do While NOT objREC.EOF 

        aMessages(I) = objREC("Sub")
        aMessageMOD(I) = objREC("Last")
        aMessageContent(I) = objREC("Content")
        aMessageContentSplit(I) = objREC("ContentSplit")
        aMessageMOD2(I) = objREC("Date2")
        aMessageMOD3(I) = objREC("Date")
        aMessageMOD4(I) = objREC("at")
        aMessageMOD5(I) = objREC("imp")
        aMessageMOD6(I) = objREC("odm")
        aMessageMOD7(I) = objREC("ita")
        aMessageMOD8(I) = objREC("ID")
        aMessageMOD9(I) = objREC("Codificata")
        aMessageMOD10(I) = objREC("DataSessione")
        aMessageMOD11(I) = objREC("Origine")

       objREC.MoveNext
       Loop


For I = 1 to 20 
      
    If I = 20 then 
         strAdder = 0
        else
         strAdder = I + 1
       end if 
                          
       Response.Write "....."
       
       if aMessages(I) <> "Codificata" then
             Response.Write "" &aMessages(I)&""
       else
             Response.Write "" &aMessageMOD9(I)&""
       end if


       
       if aMessageMOD11(I) = 1 then
             Response.Write "AAAAAA"
       else
             Response.Write "BBBBBB"
       end if
        
       
       
if aMessageMOD7(I) = True then
   Response.Write"...."       
else
   Response.Write"...."
end if

   Next 
   
       objrec.close
       set objrec = nothing

Errore:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Tipo non corrispondente.: 'aMessageMod11(...)'