Problema Importazione Dati Xml

[flash20]

Ciao a tutti, devo importare dei dati da un file xml a un db MySql, sono riuscito a fare il file, ma ho un problema.

Nell'xml c'è un campo foto dove è contenuta la url dell'immagine, riesco a prelevare correttamente il valore se il campo è esistente, ma mi da errore se questo non è presente.

In poche parole chi ha fatto l'xml (e non si può modificare) ha fatto in modo che se l'immagine è presente crea la voce FOTO, ma se non esiste la voce sparisce (Sarebbe stato più semplice se avesse lasciato il campo vuoto).

così quando prendo il valore con questa funzione:

set foto= MyXML.getElementsByTagName("annuncio/foto")
foto(i).Text

mi compare il seguente errore:

Object required: 'foto(...)'

Come posso fare?

[optime]

non è un errore: xml è fatto così, per avere i files il più compatti possibile.

dopo

set foto= MyXML.getElementsByTagName("annuncio/foto")

prova con

if Foto=Null THEN

penso però che esista un metodo per controllare che il tag sia presente...

[flash20]

Mi da il seguente errore corrispondete alla riga che mi hai suggerito:

Wrong number of arguments or invalid property assignment

[optime]

prova con IsNull(Foto)

[optime]

oppure con IsObject, o ancora con IF NOT Foto Is Nothing

[flash20]

Umm non riesco a fare la condizione, ho provato così:

IF NOT foto Is Nothing THEN
foto=foto(i).Text
end if

e anche così:

Is not Null(foto) THEN
foto=foto(i).Text
end if

Ma non cambia il risultato, con IsObject non ho provato perchè non so come si usa

[optime]

come isnull

[flash20]

Ce l'ho fatta, l'ho impostato così e funziona:

IF not foto(i) Is Nothing THEN
foto=foto(i).Text
else
foto=""
end if

Grazie mille mi sei stato di grande aiuto

[tatiana_s]

Ciao Flash,
sto cercando anche io di importare i dati da un file xlm ad un DB.

Potresti dirmi come hai fatto???
io non ci riesco e non so proprio da dove iniziare.

Grazie 1000

[flash20]

Ti posto il codice che ho utilizzato (se non ho tralasciato qualche stringa, ho semplificato il codice):

<%
    Dim MyXML
    Set MyXML = Server.CreateObject("Microsoft.XMLDOM")
        MyXML.Async = False
        MyXML.Load Server.MapPath("file.xml")

	
set controllo= MyXML.getElementsByTagName("annuncio/riferimento")

 
    Dim i
    i = 0
    For i = 0 To controllo.length - 1

set descrizione= MyXML.getElementsByTagName("annuncio/descrizione")

descrizione=descrizione(i).Text

sql="insert into db (descrizione) values ('"&descrizione&"')"
set rs=conn.execute(sql)

    Next
	

response.write "FATTO"

    Set nome = Nothing
    Set telefono = Nothing
    Set MyXML = Nothing
%>

il file xml è strutturato così:

 
<annunci>
  <annuncio>
      <riferimento>123</riferimento>
      <descrizione>bla bla bla bla bla bla</descrizione>
  </annuncio>
</annunci>