 |
|
 |
|
<%
Dim sXMLInput
sXMLInput = "" & vbCrLf & _
"" & vbCrLf &_
"validation_lists" & vbCrLf &_
"NEX03ENLACES" & vbCrLf &_
"CATEGORIA" & vbCrLf &_
""
'set sMSXML = new MSXML
if sXMLInput<>"" then
set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
xmlhttp.open "POST", sBU & "ics-wpd/exec/icswppro.dll", false
xmlhttp.send sXMLInput
'sXMLOutput=xmlhttp.responseText
'Response.write(sXMLOutput)
'Response.end
if xmlhttp.Status=200 then
sXMLOutput=xmlhttp.responseText
set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.4.0")
xmlDoc.async = false
If xmldoc.loadXML(sXMLOutput) Then
Set ElementoDoc = xmlDoc.getElementsByTagName("inm:Entry")
'Response.Write(ElementoDoc.length)
'Response.End
'If ((ElementoDoc.length>0) and (ElementoDoc.Item(0).childNodes is nothing)) then
For i=0 to ElementoDoc.length-1
Set ElementsDocs = ElementoDoc.Item(i).childNodes
if (ElementsDocs.Item(0) is nothing) then
'Response.Write("no hi ha doc")
else
%>
 |
<%=ElementsDocs.Item(0).text%> |
<%
'Response.Write("posicio" & i & ":" & arrUnidades(i))
end if
Next
End If
else
Response.Write(xmlhttp.Status & " : " & xmlhttp.statusText)
end if
end if
%>
|
|
|
