Errore '80020009'

[waitec401]

Ottengo questo errore:
error '80020009'
/gestione/elenco_tabellini.asp, line 116

Non dovrebbe essere l'errore di quando il campo è vuoto?

Nel mio caso invece il campo str_Tabellino_A è popolato.


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

Response.Write""&TabRs("str_tabellino_A")&"" ' LINEA 116

Come mai?

[Roby_72]

Verifica che la query ti restituisca qualcosa....

if not TabRs.EOF then
...
else
...
end if

Roby

[waitec401]

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

[Roby_72]

Dentro al ciclo apri TabRs ma non lo chiudi... al secondo giro lo trova aperto...

Roby

[waitec401]

Anche se chiudo TabRs mi da sempre lo stesso errore.

[Roby_72]

Riposta tutto il codice corretto...

Roby

[waitec401]

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

'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

[Roby_72]

Che vuol dire?
Se lo vedi complicato vuol dire che il db non è ben strutturato.
La DIM va fuori dal ciclo...

Roby