Microsoft VBScript error '800a01a8'

[mosquito70]

Ciao a tutti,
l'oggetto del post è l'errore che si presenta a questa riga del mio 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

<%
    ' --------------------------------
    ' 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>")
...

[mosquito70]

Se provo a commentare o eliminare la riga in questione (che però è chiaramente necessaria), mi da sempre lo stesso errore dopo altre 10 righe al punto

MyFile.WriteLine("</tr> ")

Di seguito
le altre 10 righe da "attaccare a quelle precedenti

    if desc_fina_0001temp <> "" and desc_fina_0002temp <> "" then
      MyFile.WriteLine(" <td width=""18%""  class=""txtlabe"">Finanziam.:</td> ")
      MyFile.WriteLine("<td width=""82%"" class=""txtfina""> "& desc_fina_0001temp  &", "& desc_fina_0002temp &" </td> ")
    else
      if desc_fina_0001temp <> "" then 
        MyFile.WriteLine(" <td width=""18%""  class=""txtlabe"">Finanziam.:</td> ")
        MyFile.WriteLine("<td width=""82%"" class=""txtfina""> "& desc_fina_0001temp &" </td> ")
      end if
    end if
    MyFile.WriteLine("</tr> ")

Che dire? Di venerdì sera, in consegna dal cliente... sono disperato
Qualche suggerimento!?

Ciao ciao

[Roby_72]

L'errore è chiaro. L'oggetto MyFile non esiste.
Non è che lo crei dentro il ciclo e lo distruggi fuori?

Roby

[mosquito70]

ho trovato il motivo dell'errore ma non la soluzione e soprattutto non capisco la tua risposta

La questione è, che per questo cliente deve produrre un file senza senza informazioni, ma solo l'intestazione.

Problema 1. Il ciclo di scrittura non dovrebbe entrare in questa parte di codice, se non c'è niente da stampare (non posso postarvi tutto il codice perchè è troppo lungo)
Problema 2. Anche se ci entrasse, perchè mi da errore mentre richiamo l'oggetto MyFile

Ed inoltre. Che vuol dire "distruggi fuori"? L'oggetto comunque lo creo solo quando entra nel ciclo per scrivere qualcosa (risultato diverso da EOF di una select). In questo caso non dovrebbe entrarci.

Il codice per la creazione del file.

   Dim fso, MyFile
    Set fso = CreateObject("Scripting.FileSystemObject")
    'response.write vc_nomefilehtmlasso
    Set MyFile = fso.CreateTextFile(server.mapPath(vc_nomefilehtmlasso), True)

Questa parte di codice la richiamo ogni volta che creo il file di un cliente.
Potrebbe essere questo il problema?



CIoa ciao

ps. comunque ho vinto un bel weekend lavorativo...

[Roby_72]

1) Lo script da errore solo con un cliente e con tutti gli altri funziona oppure da errore ad esempio al secondo Loop? :rollo:
2) E' importante dove crei l'oggetto e dove lo distruggi. E' quello che devi mostrare.

Roby