Problema con ASP e XML

maltese2000 · 16 Mag 2013

Devo leggere un file xml molto complesso. Ho preparato la struttura di base del file ed ho realizzato una pagina asp per leggere i dati. Il tutto funzionava regolarmente.
Ad un certo punto non riesco piu' a leggere ne file proveniente da esterno ne i miei di prova.
ho tagliato tutto il codice e portato il file asp a leggere solo una riga ma il problema permane.
Sembra che non riesca a capire il numero di record presenti o lo legga come file vuoto

Il codice e' il seguente

<% response.buffer=false %>
<html>
<head>
<meta http-equiv="Content-Language" content="it">
<title> *** Lettura file XML ****</title>
</head>
<body>
<p align="center"><img border="0" src="..\logo.png" width="318" height="76"></p>

<%

Dim objXmlDom
Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.async = False
objXmlDom.load Server.MapPath("\XML_data\todobrasil_feed_test.xml")
'-------------------------------------------------------------------------
' Dimensionamento Array
'-------------------------------------------------------------------------
response.write (" Inizio dimensionamento Array <br>")
Dim ag
response.write (" FINE dimensionamento Array " & time() &" <br>")

Set ag = objXmlDom.getElementsByTagName("Anuncios/AgenciaNome")
response.write "n. record =" & ag.length - 1

Dim i
i = 0
For i = 0 To ag.length - 1
response.write (" record n.= "& A & "<BR>")

%>
<div align="center">
<table border="1" width="852">
<tr>
<td colspan="2">Agencia</td>
<td width="599" colspan="4"> <%=ag(I).Text%></td>
</tr>
</table>
</div>

<%

'----------------------------------------------------------------------
Next

response.write "<hr>"
Set objXmlDom = Nothing
%>

</p>
</body>
</html>

-----------------------------------------------------
Il feed

<?xml version="1.0" encoding="UTF-8"?>

<root>
<Anuncios>
<AgenciaNome>Matriz</AgenciaNome>
</Anuncios>

</root

come numero record porta

n. record =-1

qualche idea in proposito ???
grazie in anticipo

Paolo69 · 16 Mag 2013

Ho caricato il file in locale ed ho il risultato come da immagine, è identico al tuo?

Paolo

maltese2000 · 16 Mag 2013

Aggiornamento

Lo strano e' che se prendo access e carico i dati esterni dal file completo, vengono elaborati regolarmente....
Non riesco a capire perche' non carica i dati..

Ho caricato l'intero file e programma sul server di produzione e non ottengo dati....
quello che e' ancora piu' strano che fino ad un paio di giorni fa' il tutto
funzionava regolarmente nella lettura.

maltese2000 · 16 Mag 2013

risultato elaborazione

Il risultato che mi appare e' il seguente

Paolo69 · 16 Mag 2013

Ciao maltese,
ho usato un file xml mio ed il codice ha funzionato comunque.

Ti indico il codice, ho fatto alcune modifiche non indispensabili:

Codice:

<%


	Dim objXmlDom
	Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
		objXmlDom.setProperty "ServerHTTPRequest", true 
		objXmlDom.async = False
	' carico il file
		strFile = "C:\inetpub\MN4025484S005\fitness\script\tblNPMembers.xml"
		objXmlDom.Load (strFile)
	' valorizzo le variabili
	Dim nome, email
	Set nome  = objXmlDom.getElementsByTagName("Name")
	Set email = objXmlDom.getElementsByTagName("Email")
	
	'info varie
		response.write (" Inizio dimensionamento Array <br>")
		response.write (" FINE dimensionamento Array " & time() &" <br>")
		response.write "n. record =" & nome.length 
		response.Write "<br />"&strFile&"<br /><br />"

	' ciclo
	Dim i
		i = 0
	For i = 0 To nome.length - 1
	
	%>
	<div align="center">
	<table cellpadding="1" cellspacing="1" border="1" width="80%">
	<tr>
	<td width="20%">User</td>
	<td width="40%" colspan="4"> <%=nome(I).Text%></td>
	<td width="40%" colspan="4"> <%=email(I).Text%></td>
	</tr>
	</table>
	</div>
	<%
	
	Next

	      response.write "<hr>"
	Set objXmlDom = Nothing
	
%>

file xml:

Codice:

<?xml version="1.0" encoding="utf-8"?>
<root>
<tblNPMembers>
<Name>Krusty</Name>
<Email>[email protected]</Email>
</tblNPMembers>
<tblNPMembers>
<Name>Paolo</Name>
<Email>[email protected]</Email>
</tblNPMembers>
</root>

Risultato:

HTML:

Inizio dimensionamento Array
FINE dimensionamento Array 11:25:39
n. record =2
C:\inetpub\MN4025484S005\fitness\script\tblNPMembers.xml

User 	Krusty 	[email protected]
User 	Paolo 	[email protected]

maltese2000 · 16 Mag 2013

Paolo69 ha scritto:

Ciao maltese,
ho usato un file xml mio ed il codice ha funzionato comunque.

Ti indico il codice, ho fatto alcune modifiche non indispensabili:

Codice:

<%


	Dim objXmlDom
	Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
		objXmlDom.setProperty "ServerHTTPRequest", true 
		objXmlDom.async = False
	' carico il file
		strFile = "C:\inetpub\MN4025484S005\fitness\script\tblNPMembers.xml"
		objXmlDom.Load (strFile)
	' valorizzo le variabili
	Dim nome, email
	Set nome  = objXmlDom.getElementsByTagName("Name")
	Set email = objXmlDom.getElementsByTagName("Email")
	
	'info varie
		response.write (" Inizio dimensionamento Array <br>")
		response.write (" FINE dimensionamento Array " & time() &" <br>")
		response.write "n. record =" & nome.length 
		response.Write "<br />"&strFile&"<br /><br />"

	' ciclo
	Dim i
		i = 0
	For i = 0 To nome.length - 1
	
	%>
	<div align="center">
	<table cellpadding="1" cellspacing="1" border="1" width="80%">
	<tr>
	<td width="20%">User</td>
	<td width="40%" colspan="4"> <%=nome(I).Text%></td>
	<td width="40%" colspan="4"> <%=email(I).Text%></td>
	</tr>
	</table>
	</div>
	<%
	
	Next

	      response.write "<hr>"
	Set objXmlDom = Nothing
	
%>

file xml:

Codice:

<?xml version="1.0" encoding="utf-8"?>
<root>
<tblNPMembers>
<Name>Krusty</Name>
<Email>[email protected]</Email>
</tblNPMembers>
<tblNPMembers>
<Name>Paolo</Name>
<Email>[email protected]</Email>
</tblNPMembers>
</root>

Risultato:

HTML:

Inizio dimensionamento Array
FINE dimensionamento Array 11:25:39
n. record =2
C:\inetpub\MN4025484S005\fitness\script\tblNPMembers.xml

User 	Krusty 	[email protected]
User 	Paolo 	[email protected]

Stasera provo.. il codice mi sembra molto simile a quello che ho usato... vediamo che viene fuori...
Grazie per ora...

maltese2000 · 17 Mag 2013

maltese2000 ha scritto:
Stasera provo.. il codice mi sembra molto simile a quello che ho usato... vediamo che viene fuori...
Grazie per ora...

Ho ripreso il tuo codice...
Per ora sembra funzionare...
Sto' caricando un po' alla volta i campi dell'XML...
sono veramente tanti.

Grazie..

Vale2 · 18 Mag 2013

Ciao,

stampa il file xml prendendo i dati dal db scriverli a mano è disumano.

Codice:

<%

'Stringa di connessione al Database

Strdb ="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("tuo_database.mdb") // path tuo db

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Strdb

'Istruzione SQL che prende le news dal Data Base;
'da cambiare con il nome della vostra tabella ed i nomi dei campi
SQL = "SELECT * FROM tabella Order by ID desc"

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open SQL, Conn, 1,1

' Numero totale di records
totfiles = rs.recordcount

xml = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCRLF & _
      "<root>" & vbCRLF

' Se il Record Set non è vuoto
if totfiles <> 0 then
  Do while not rs.eof
    xml = xml & "<tblNPMembers>" & vbCRLF
    xml = xml & "<Name>" & rs("nome") & "</Name>" & vbCRLF
    xml = xml & "<Email>" & rs("email") & "</Email>" & vbCRLF
    xml = xml & "</tblNPMembers>" & vbCRLF
  
    rs.movenext
  Loop
End if

xml = xml & "</root>" 

' Impostazione che setta il tipo di file in output su XML
response.ContentType = "text/xml"
response.write xml

'Libero Risorse
rs.close
set rs=nothing
Conn.Close
set Conn=nothing
%>

Cambia il nome del database e i dati che hai impostato (file fatto in base alla descrizione).

Una volta caricato il file .xml copia i dati e mettili nel tuo .xml

Questo è per lggere il tuo .xml

Codice:

<%
Option Explicit
    Dim objXMLDoc
    Set objXMLDoc = CreateObject("Microsoft.XMLDOM")
    objXMLDoc.async = False
    objXMLDoc.load(Server.MapPath("tblNPMembers.xml")) // metti il path dove hai il tuo .xml
    Dim nome, email
    Set nome  = objXmlDoc.getElementsByTagName("Name")
    Set email = objXmlDoc.getElementsByTagName("Email")
        Dim i
	i = 0
	For i = 0 To nome.length - 1
	%>
	<table cellpadding="1" cellspacing="1" border="1" width="80%" align="center">
	<tr>
	<td width="20%">User</td>
	<td width="30%" colspan="4"><%=nome(i).Text%></td>
	<td width="30%" colspan="4"><%=email(i).Text%></td>
        </tr>
	</table>
<%
Next
response.write "<hr>"
Set objXmlDoc = Nothing
%>

Valeria.

maltese2000 · 18 Mag 2013

Ho optato per scriverli a mano ( file di lettura XML ) per capire perche' non andava....

Ho ripreso il tuo codice e passo passo ricontrollato il tutto finche' non sono stato sicuro del risultato...
Adesso riesco quasi a leggerlo...

Quasi perche' l' XML proviene da un file in portoghese dove sono presenti una serie di caratteri che non vengono interpretati correttamente...
es. la è viene trasfomata in #eacute o simili....

Ho provato a mettere un ISO=8559-1
ma il risultato non cambia...

Hai qualche idea in proposito ??? grazie in anticipo

Vale2 · 18 Mag 2013

Ciao,

il fatto è che non stai utilizzando un .xml standard.

Prova a mettere gli rs.nome_campo tra <![CDATA[]]> es:

Codice:

xml = xml & "<Name><![CDATA[" & rs("nome") & "]]></Name>" & vbCRLF
xml = xml & "<Email><![CDATA[" & rs("email") & "]]></Email>" & vbCRLF

adesso non hai problemi con i caratteri è é ecc...

solo che in modalità visualizzazione lo legge è nel .xml

Valeria.

maltese2000 · 18 Mag 2013

Vale2 ha scritto:
Ciao,

il fatto è che non stai utilizzando un .xml standard.

Prova a mettere gli rs.nome_campo tra <![CDATA[]]> es:

Codice:

xml = xml & "<Name><![CDATA[" & rs("nome") & "]]></Name>" & vbCRLF xml = xml & "<Email><![CDATA[" & rs("email") & "]]></Email>" & vbCRLF

adesso non hai problemi con i caratteri è é ecc...

solo che in modalità visualizzazione lo legge è nel .xml

Valeria.

CI provo... vediamo se risolvo. Grazie.

maltese2000 · 19 Mag 2013

Grazie

Dopo una notte ......
sembra che tutto funzioni....

Grazie.

Vale2 · 22 Mag 2013

Ciao,

di nulla.

Valeria. :elvis::elvis:

Autore	Titolo	Forum	Risposte	Data
P	[ASP.Net] Problema ERR_INCOMPLETE_CHUNKED_ENCODING 206 (Partial Content) con Font	ASP.NET	4	25 Ott 2019
T	problema strano con procedura di controllo da database, di dati immessi in un form asp	Classic ASP	5	2 Dic 2013
A	Problema con codice ASP	Classic ASP	1	15 Set 2013
G	problema checkbox con mdb asp	Classic ASP	8	15 Gen 2010
V	Problema con Pure Asp Upload	Classic ASP	4	13 Set 2009
R	Problema con AJAX e UpdatePanel di asp.net	Ajax	2	22 Mag 2009
C	problema asp e db con permessi	Classic ASP	2	23 Set 2008
T	Problema con script search.asp Lukeonweb	Classic ASP	9	26 Lug 2007
K	Problema invio dati form con ASP	Classic ASP	8	8 Mar 2007
	Problema con passaggio dati tra pagine asp	Classic ASP	5	5 Feb 2007
I	Problema con form ASP-CDOSYS 2: la vendetta	Classic ASP	4	13 Gen 2007
I	Problema con form ASP-CDOSYS	Classic ASP	2	8 Gen 2007
S	problema con include e asp	Classic ASP	0	18 Lug 2005
	Problema con asp e sql...	Classic ASP	21	13 Mar 2005
L	problema mail con asp	Classic ASP	15	16 Gen 2005
B	problema con asp	Classic ASP	1	9 Nov 2003
O	problema con dvr dahua xvr5116	IP Cam e Videosorveglianza	0	11 Mar 2023
G	Problema con Xampp	Web Server	1	5 Mar 2023
	Problema con miniature comandi	Photoshop	0	27 Feb 2023
I	problema con alice	Posta Elettronica	0	10 Feb 2023
N	Problema con position absolute e overflow	HTML e CSS	4	23 Gen 2023
L	Problema con inner join	PHP	11	23 Nov 2022
K	[php] Problema con inner join	PHP	4	22 Nov 2022
K	[PHP] Problema con variabili concatenate.	PHP	1	17 Ott 2022
O	problema con query	PHP	4	23 Mag 2022
I	problema con 2 account	Posta Elettronica	1	11 Mar 2022
L	problema collegamento file css con html	HTML e CSS	1	2 Mar 2022
E	Problema accesso a file con app sviluppata con MIT APP INVENTOR 2	Sviluppo app per Android	0	22 Dic 2021
M	Problema con Try Catch	PHP	0	10 Ott 2021
	Problema con gli eventi del mouse su una data table:	Javascript	2	7 Ago 2021
T	PROBLEMA CON SESSIONI	PHP	3	13 Lug 2021
T	ALTRO PROBLEMA CON ARRAY PHP	PHP	1	30 Mag 2021
R	problema con else	PHP	0	27 Mag 2021
T	PROBLEMA CON ARRAY	PHP	8	27 Mag 2021
L	problema con query select	PHP	2	25 Mag 2021
R	Problema query con ricerca id numerico	PHP	2	5 Mag 2021
F	Problema con risposta	PHP	0	28 Apr 2021
S	problema con recupero dati tabella mysql	PHP	2	12 Apr 2021
Z	Problema con il mio tp-l i nk	Reti LAN e Wireless	1	11 Apr 2021
L	Problema RAM con Tomcat 8	Apache	0	10 Mar 2021
	problema con sort e asort	PHP	4	19 Feb 2021
Z	Problema con INT MySQL	PHP	1	7 Gen 2021
Z	Problema database MySQL con XAMPP	PHP	0	5 Gen 2021
M	Problema con controllo form in real time	jQuery	6	21 Dic 2020
Z	Problema di sincronizzazione PAYPAL con PHP	PHP	1	11 Nov 2020
G	Problema con Get page	PHP	4	1 Set 2020
P	Problema con require once	PHP	6	23 Ago 2020
P	Problema con i package	Java	1	2 Ago 2020
A	Problema login con Safari	PHP	14	21 Lug 2020
F	INDESIGN: problema esportazione esecutivo per la stampa con foto B/N	Webdesign e Grafica	0	29 Giu 2020

Cerca

Cerca

Problema con ASP e XML

maltese2000

Nuovo Utente

Paolo69

Moderatore

maltese2000

Nuovo Utente

maltese2000

Nuovo Utente

Allegati

Paolo69

Moderatore

maltese2000

Nuovo Utente

maltese2000

Nuovo Utente

Vale2

Utente Attivo

maltese2000

Nuovo Utente

Vale2

Utente Attivo

maltese2000

Nuovo Utente

maltese2000

Nuovo Utente

Vale2

Utente Attivo

Discussioni simili