Ho fato così e sembra funzionare, ma mi sembra complicato.

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 not TabRs.EOF then
if TabRs("str_tabellino_A") = "" then
Response.Write"<td width=""8%"">[img][/img]</td>"
else
Response.Write"<td width=""8%"">[img][/img]</td>"
end if
Response.Write"<td width=""31%""></td>"
Response.Write"<td width=""10%""></td>"
TabRs.Close
Set TabRs = Nothing
else
Response.Write"<td width=""8%"">NO</td>"
Response.Write"<td width=""31%"">NO</td>"
Response.Write"<td width=""10%"">NO</td>"
end if
Response.Write"</tr>"
ObjRs.MoveNext
Loop
ObjRs.close
End If