Posizionamento di un If

[diegoctn]

Ragazzi ho personalizzato un calendari e finalmente sono riuscito a farlo funzionere correttamente. Mi manca un ultimo, ultimissimo passo. Devo fare in modo che i giorni precedentio a oggi non siano cliccabili:

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 CDate(aMessageStatus(J)) >= DatePlus14  and CDate(aMessageStatus(J)) < DatePlus7 then 
          strDateIMG = "seven"
         else
          strDateIMG = "fourteen"  
         end if 
        
        
	If CDate(aMessagedate(J)) = CDate(NEWDATE) then 
	strIMG = "<CENTER><A HREF='messages.asp?Group_Nommer=" &intGroupNommer &"&date=" &aMessagedate(J) _
	&"'>[img]./images/" &aMessages(J) &strDateIMG &".gif[/img]</A>"                
	exit For
	else strIMG = ""
	End if
	Next
	if intCounter mod 7 = 2 then
	IF blnIsPublic = TRUE THEN  
	Response.Write "<TD CLASS=PUBLIC VALIGN=TOP ALIGN=RIGHT WIDTH="&CELL_WIDTH _
	     &" HEIGHT="&CELL_HEIGHT &" BGCOLOR=" &strBGCOLOR   &">"   &"" &I &"</A>
" _
	     &strIMG &"</TD>" 
	     else
	Response.Write "<TD CLASS=DAYS2 VALIGN=TOP ALIGN=RIGHT WIDTH="&CELL_WIDTH _
	     &" HEIGHT="&CELL_HEIGHT &" BGCOLOR=" &strBGCOLOR   &">"   &"" &I &"
" _
	     &strIMG &"</TD>" 
	 END IF
	 else
	 if intCounter mod 7 <> 0 then
	 Response.Write "<TD CLASS=" &strCLASS &" VALIGN=TOP ALIGN=RIGHT WIDTH="&CELL_WIDTH _
	     &" HEIGHT="&CELL_HEIGHT &" BGCOLOR=" &strBGCOLOR   &">"   &"" &I &"
" _
	     &strIMG &"</TD>"
	     else
	     Response.Write "<TD CLASS=" &strCLASS &" VALIGN=TOP ALIGN=RIGHT WIDTH="&CELL_WIDTH _
	     &" HEIGHT="&CELL_HEIG HT &" BGCOLOR=" &strBGCOLOR   &">"   &"" &I &"
" _
	     &strIMG &"</TD></TR><TR>" 
          end if	     	
	  end if 
	Next 
	 %>

Come vedete ci sono due tipi di response.write, uno che mi da a video il href e uno che non me lo da. io vorrei dirgli che se Cdate(aMessagedate(J)) < Cdate(Now) mi dia il reponse.write senza href. Ma l'ho posizionato ovunque eppure non mi prende l'if.

[byluciani]

non mi sembra un buon codice quello che hai postato

così ad occhio si vedono due NEXT ed un solo FOR

diciamo che è un pò pasticciato