sto cercando di inviare una struttura xml (coem parametro)tramite asp e xmlhttp ma al momneto va in errore
msxml3.dll (0x8000000A)
I dati necessari per il completamento di questa operazione non sono ancora disponibili.
/test_xml.asp, line 91
line 91 = objXmlDom.loadXML(objXmlHttp.responseText)
ecco il codice:
Login="<CommandList>"&_
"\n <Login>"&_
"\n <Username>"&"theUserName"&"</Username>"&_
"\n <Password>"&"thePassword"&"</Password>"&_
"\n </Login>"&_
"\n</CommandList>"
' Dichiaro le variabili che mi servono nello script
Dim file, objXmlHttp, objXmlDom
' Specifico il file XML da utilizzare
' Imposto l'oggetto XMLHTTP e recuper il file XML
Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open "POST","http://demo.mio_sito.com/xml", true
objXmlHttp.Send (login)
' Imposto l'oggetto XMLDOM e carico il file XML come stringa
Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.async = false
objXmlDom.loadXML(objXmlHttp.responseText)
Set route = objXmlDom.getElementsByTagName("StartRouting/RoutingId")
response.write route
' Inizializzo il contatore per il ciclo
Dim i
i = 0
For i = 0 To rout.length - 1
if objXmlHttp.readyState = 4 then
if (objXmlHttp.status = 200) then
Response.Write Code(i).Text & " "
else
response.write "Problemi con il server"
end if
end if
Next
' Un po di pulizia...
Set objXmlDom = Nothing
Set objXmlHttp = Nothing
%>
msxml3.dll (0x8000000A)
I dati necessari per il completamento di questa operazione non sono ancora disponibili.
/test_xml.asp, line 91
line 91 = objXmlDom.loadXML(objXmlHttp.responseText)
ecco il codice:
Login="<CommandList>"&_
"\n <Login>"&_
"\n <Username>"&"theUserName"&"</Username>"&_
"\n <Password>"&"thePassword"&"</Password>"&_
"\n </Login>"&_
"\n</CommandList>"
' Dichiaro le variabili che mi servono nello script
Dim file, objXmlHttp, objXmlDom
' Specifico il file XML da utilizzare
' Imposto l'oggetto XMLHTTP e recuper il file XML
Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open "POST","http://demo.mio_sito.com/xml", true
objXmlHttp.Send (login)
' Imposto l'oggetto XMLDOM e carico il file XML come stringa
Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.async = false
objXmlDom.loadXML(objXmlHttp.responseText)
Set route = objXmlDom.getElementsByTagName("StartRouting/RoutingId")
response.write route
' Inizializzo il contatore per il ciclo
Dim i
i = 0
For i = 0 To rout.length - 1
if objXmlHttp.readyState = 4 then
if (objXmlHttp.status = 200) then
Response.Write Code(i).Text & " "
else
response.write "Problemi con il server"
end if
end if
Next
' Un po di pulizia...
Set objXmlDom = Nothing
Set objXmlHttp = Nothing
%>