Condizione all'interno di un ciclo For...next

[[trodat]]

Ciao a tutti, ho questo codice che funziona bene tranne nella condizione evidenziata in rosso che pur essendo realizzata nello script non viene visualizzata, sapete aiutarmi? Grazie:

Redim aMessages(0)
	    Redim aMessageStatus(0)
	    arrIndex = 0 
	    
	    Do While NOT objREC.EOF 
	       aMessages(arrIndex)    = objREC("Total")
	       aMessageStatus(arrIndex) = objREC("Latest")
	       
	       arrIndex = arrIndex + 1 
	       Redim Preserve aMessages(arrIndex)
	       Redim Preserve aMessageStatus(arrIndex)
	      objREC.MoveNext
	    Loop



For J= 0 to UBOUND(aMessageDate)-1 
        
        DatePlus7 = CDate(dateadd("d", -7,NOW))
        DatePlus14 = CDate(dateadd("d", -14,NOW))
        
        If CDate(aMessageStatus(J)) >= DatePlus7 then 
          strDateIMG = ""
         elseif aMessages(J) > 25 then
          strDateIMG = "Warning"         
        end if 


If CDate(aMessagedate(J)) = CDate(NEWDATE) then 
	strIMG = "<CENTER><A HREF='pr_messages.asp?iduoat=" &iduoat &"&date=" &datashort(aMessagedate(J)) _
	&"'>[img]./images/" &aMessages(J) &strDateIMG &".gif[/img]</A>"                
	exit For
	else strIMG = ""
	End if
	Next

[fraude]

Scomponi in due condizioni, una per

If CDate(aMessageStatus(J)) >= DatePlus7 then

e l'altra per:

if aMessages(J) > 25 then