Ciao a tutti,
l'oggetto del post è l'errore che si presenta a questa riga del mio codice

codice:
MyFile.WriteLine("<tr>")

Questa istruzione è all'interno di un file che crea n-file html per un certo numero di clienti (circa 150).
Solo per un cliente mi scrive ad un certo punto questo messaggio di errore, riferito appunto a questa riga


Errore di run-time di Microsoft VBScript error '800a01a8'
Necessario oggetto: ''

/writefilebollavvihtmlbodyavvifina.asp, line 55
Da che può dipendere??! E' veramente strano

Vi posto anche le righe precedenti del file incriminato, anche se non credo possano servire a molto.

Il problema è purtroppo urgente!!!

Grazie

Paolo

codice:
<%
    ' --------------------------------
    ' ho modificato il valore width accanto al valore table
    ' ------------------------------
    sqldaticodaavvisx= "  select '"&descdenoavvicolltemp&"', "_
                      &" substr('"&descdenoavvicolltemp&"',1,(instr('"&descdenoavvicolltemp&"','?',1,1)-1) "_
                      &"			) DESC_FINA_0001, "_
                      &" 	substr('"&descdenoavvicolltemp&"',(instr('"&descdenoavvicolltemp&"','?',1,1)),(instr('"&descdenoavvicolltemp&"','?',1,2)- instr('"&descdenoavvicolltemp&"','?',1,1)) "_
                      &"               ) DESC_FINA_0002, "_
                      &" substr('"&descdenoavvicolltemp&"',(instr('"&descdenoavvicolltemp&"','?',1,2)+1),(instr('"&descdenoavvicolltemp&"','?',1,3)- instr('"&descdenoavvicolltemp&"','?',1,2))-1 "_
                      &"        ) desc_arti_legg_boll, "_
                      &" substr('"&descdenoavvicolltemp&"',(instr('"&descdenoavvicolltemp&"','?',1,3)+1),(instr('"&descdenoavvicolltemp&"','?',1,4)- instr('"&descdenoavvicolltemp&"','?',1,3))-1 "_
                      &"        ) DATA_PUBL, "_
                      &" substr('"&descdenoavvicolltemp&"',(instr('"&descdenoavvicolltemp&"','?',1,4)+1),(instr('"&descdenoavvicolltemp&"','?',1,5)- instr('"&descdenoavvicolltemp&"','?',1,4))-1 "_
                      &"        ) DESC_SCAD_MINU, "_
                      &" substr('"&descdenoavvicolltemp&"',(instr('"&descdenoavvicolltemp&"','?',1,5)+1),(instr('"&descdenoavvicolltemp&"','?',1,6)-instr('"&descdenoavvicolltemp&"','?',1,5))-1 "_
                      &"        ) DATA_SCAD_VISU,    "_
                      &" substr('"&descdenoavvicolltemp&"',(instr('"&descdenoavvicolltemp&"','?',1,6)+1),(instr('"&descdenoavvicolltemp&"','?',1,7)- instr('"&descdenoavvicolltemp&"','?',1,6))-1 "_
                      &"        ) DESC_SCAD_ORAA,                         "_
                      &" substr('"&descdenoavvicolltemp&"',(instr('"&descdenoavvicolltemp&"','?',1,7)+1),(instr('"&descdenoavvicolltemp&"','?',1,8)-	instr('"&descdenoavvicolltemp&"','?',1,7))-1 "_
                      &"        ) DESC_SCAD_MINU, "_
                      &" substr('"&descdenoavvicolltemp&"',(instr('"&descdenoavvicolltemp&"','?',1,8)+1),(instr('"&descdenoavvicolltemp&"','?',1,9)-instr('"&descdenoavvicolltemp&"','?',1,8))-1 "_
                      &"        ) DATA_PUBL, "_
                      &" substr('"&descdenoavvicolltemp&"',(instr('"&descdenoavvicolltemp&"','?',1,9)+1),(instr('"&descdenoavvicolltemp&"','?',1,10)- instr('"&descdenoavvicolltemp&"','?',1,9))-1 "_
                      &"        ) DESC_SCAD_ORAA, "_
                      &" substr('"&descdenoavvicolltemp&"',(instr('"&descdenoavvicolltemp&"','?',1,10)+1),(instr('"&descdenoavvicolltemp&"','?',1,11)- instr('"&descdenoavvicolltemp&"','?',1,10))-1 "_
                      &"        ) DATA_PUBL, "_
                      &" substr('"&descdenoavvicolltemp&"',(instr('"&descdenoavvicolltemp&"','?',1,11)+1),(instr('"&descdenoavvicolltemp&"','?',1,12)- instr('"&descdenoavvicolltemp&"','?',1,11))-1 "_
                      &"        ) DESC_NOTE_ENTE_visu "_
                      &" FROM DUAL "
    'response.write " =============== SELECT " & sqldaticodaavvisx			
    Set rsdaticodiavvisx = con.Execute(sqldaticodaavvisx)
    if not rsdaticodiavvisx.EOF then 
      Desc_fina_0001temp = Replace(rsdaticodiavvisx("desc_fina_0001"),"NP", "")
      Desc_fina_0002temp = Replace(rsdaticodiavvisx("desc_fina_0002"),"?NP", "")
      Desc_arti_legg_bolltemp=Replace(rsdaticodiavvisx("desc_arti_legg_boll"),"NP", "")
      Data_publtemp=Replace(rsdaticodiavvisx("data_publ"),"NP", "")
      DATA_SCAD_VISUtemp=Replace(rsdaticodiavvisx("DATA_SCAD_VISU"),"NP", "")
      DESC_SCAD_ORAAtemp=Replace(rsdaticodiavvisx("DESC_SCAD_ORAA"),"NP", "")
      DESC_SCAD_MINUtemp=Replace(rsdaticodiavvisx("DESC_SCAD_MINU"),"NP", "")
      DESC_NOTE_ENTE_VISUtemp=Replace(rsdaticodiavvisx("DESC_NOTE_ENTE_VISU"),"NP", "")
      'Desc_fina_0001temp=rsdaticodiavvisx("desc_fina_0001")
      'Desc_fina_0002temp=rsdaticodiavvisx("desc_fina_0002")
      'Desc_arti_legg_bolltemp=rsdaticodiavvisx("desc_arti_legg_boll")
      'Data_publtemp=rsdaticodiavvisx("data_publ")
      'DATA_SCAD_VISUtemp=rsdaticodiavvisx("DATA_SCAD_VISU")
      'DESC_SCAD_ORAAtemp=rsdaticodiavvisx("DESC_SCAD_ORAA")
      'DESC_SCAD_MINUtemp=rsdaticodiavvisx("DESC_SCAD_MINU")
      'DESC_NOTE_ENTE_VISUtemp=rsdaticodiavvisx("DESC_NOTE_ENTE_VISU")
    end if  
    rsdaticodiavvisx.Close
    Set rsdaticodiavvisx = Nothing
    end if 
    ' SELECT SE IL PRECEDENTE AVVISO E' UN COLLEGATO
    MyFile.WriteLine("<tr>")
...