Perchè questo codice continua a restituire errore:
Error Type:
Microsoft VBScript compilation (0x800A0409)
Unterminated string constant
codice:
Set objRs = Server.CreateObject("ADODB.Recordset")
       strSQL = "Select * from Tab where ... "
       objRs.Open strSql, cn, 3, 3
       If Not objRs.EOF Then
       eseguito = objRs("eseguito")
                  
       Response.Write "<TR><TD ALIGN='CENTER' CLASS='MARGIN' WIDTH=70>"&I&"" _
       &"</TD><TD WIDTH=150 CLASS='MARGIN'><a href='pagina?uoat="&aMessageMOD4(I)&"&imp="&aMessageMOD5(I)&"&odm="&odm&"'>

   if eseguito = false then
       
       [img]./img/img1.gif[/img]</a></TD></TR>"
       
   else
       
       [img]./img/img2.gif[/img]</a></TD></TR>"
    
    end if
    end if
:master: