if not tabRs.EOF then
Response.Write"<td width=""8%"">SI</td>"
else
Response.Write"<td width=""8%"">NO</td>"
end if


Ok nessun errore
ma se faccio

if tabRs("str_tabellino_A") = "" then
Response.Write"<td width=""8%"">SI</td>"
else
Response.Write"<td width=""8%"">NO</td>"
end if

Mi da errore come prima.


Quest Sql è inserita in un ciclo pero'


Posto tutto il codice:

'Ora stampiamo i record
Do Until ObjRs.EOF
Response.Write"<tr class=""elenco2a"" onMouseOver=""this.className='elenco2'"" onMouseOut=""this.className='elenco2a'"">"
Response.Write"<td width=""8%"" align=""center"">[img][/img][img][/img]</td>"&vbCrlf
Response.Write"<td width=""16%"">"&ObjRs("str_giornata")&"a giornata</td>"
Response.Write"<td width=""16%"">"&ObjRs("A")&" - "&ObjRs("B")&" "&ObjRs("str_gol_A")&"-"&ObjRs("str_gol_B")&"</td>"
If ObjRs("str_articolo") = "" then
Response.Write"<td width=""11%""><div align=""center"">[img][/img]</div></td>"& vbCrlf
else
Response.Write"<td width=""11%""><div align=""center"">[img][/img]</div></td>"& vbCrlf
end if
Dim IDg
IDg = ObjRs("id_calendario")
'Creiamo la stringa sql per i tabellini
Dim TabRs
strSQL = "SELECT * FROM tb_tabellini WHERE id_calendario="&IDg
Set TabRs = Server.CreateObject("ADODB.Recordset")
TabRs.Open strSQL, objConn
if tabRs("str_tabellino_A") = "" then
Response.Write"<td width=""8%"">SI</td>"
else
Response.Write"<td width=""8%"">NO</td>"
end if
Response.Write"<td width=""31%""></td>"
Response.Write"<td width=""10%""></td>"
Response.Write"</tr>"

ObjRs.MoveNext
Loop
ObjRs.close
End If