Aiuto: codice non funzionante dopo controllo checkbox

[saber]

Ho un problema che non riesco a superare. Dietro suggerimento di altri forumisti più esperti , ho implementato il codice per ricevere i valori dalle caselle di opzione.
E funziona.
Il problema è che dopo le altre caselle non funzionano più.
Tutte le altre caselle sottostanti al codice delle checks , danno qeusto risultato :
error '80020009'
ora, immagino abbia a che fare con db. Ma che dovrei aggiungere per farlo rifunzionare di nuovo?
Ecco il codice incriminato.

set rs = Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn_base

 rs.MoveFirst
If not rs.EOF then
   while not rs.EOF
      if trim(rs("statocivile"))="celibe" then
      
         Response.Write "<td width='30'>celibe</td><td width='30'  ><input type='radio' name='statocivile' value='celibe' checked></td></tr><tr>"
         Response.Write "<td width='30'>nubilee</td><td width='30'  ><input type='radio' name='statocivile' value='nubile' ></td></tr><tr>"
         Response.Write "<td  width='30'>coniugato</td><td width='30' ><input type='radio' name='statocivile' value='coniugato'></td></tr><tr>"
      elseif  trim(rs("statocivile"))="nubile" then
      
         Response.Write "<td width='30'>'celibe</td><td width='30' ' ><input type='radio' name='statocivile' value='celibe'></td></tr><tr>"
         Response.Write "<td  width='30'>nubile</td><td width='30'  ><input type='radio' name='statocivile' value='nubile' checked></td></tr><tr>"
            
        Response.Write "<td width='30'>coniugato</td><td width='30'  ><input type='radio' name='statocivile' value='coniugato' ></td></tr><tr>"
      else
      Response.Write "<td width='30'>celibe</td><td width='30' ' ><input type='radio' name='statocivile' value='celibe'></td></tr><tr>"
         Response.Write "<td  width='30'>nubile</td><td width='30'  ><input type='radio' name='statocivile' value='nubile' ></td></tr><tr>"
         Response.Write "<td width='30'>coniugato</td><td width='30'  ><input type='radio' name='statocivile' value='coniugato' checked></td></tr><tr>"
      
      End if   
      
              
      rs.MoveNext
   Wend
End if %>  



<tr><td ><h5>figli</h5></td>
<td colspan="2" ><input type=text name="figli" value="<%=trim(rs("figli"))%>" size="50"></td></tr>

Sopra il codice dello stato civile c'è un codice uguale ed entrambi funzionano.
Sotto quel codice, l'input type= text e il select non funzionano più e restituiscono quell'errore.
Il codice di casella di testo,che precede il codice invece funziona benissimo.


Sotto alle check box, il cui codice funziona benone, si vede invece una casella di testo minuscola con la scritta : "<font face=" ma il codice è questo:

<td colspan="2" ><input type=text name="figli" value="<%=trim(rs("figli"))%>" size="50"></td></tr>

Dove questo comando "font face", non c'è...da dove lo pesca?! Aiuto...

[Lak3d]

<td colspan="2" ><input type=text name="figli" value="<%=trim(rs("figli"))%>" size="50"></td></tr>

questo viene stampato da un Response.Write?
Se così fosse, occhio ai doppi apici che vengono interpretati come terminatore di stringa...

<td colspan='2' ><input type=text name='figli' value='<%=trim(rs("figli"))%>' size='50'></td></tr>

[saber]

No , la tabella si interrompe in quel punto.
Si visualizza una text box, minuscola ,

dentro la quale c'è questo "f <font face=" che nella tabella non è scritto da nessuna parte.
Il record c'è , ovviamente e il name è giusto.

Ah , no quel codice che non funziona NON è compreso tra i tag dell'asp.

[saber]

Ragazzi, sto messo male, suggeritemi qualcosa.