Henten af data via xml fra fjærnserver
Hej jeg har prøve at trække lidt data oplysninger ud og er nu komme et stykke men mangler lige det siste som jeg ikke helt kan få til at virkermin xml fil ser sådan ud
<?xml version="1.0" encoding="ISO-8859-1"?>
<products xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="Price.xsd">
<group name="Test">
<product id="1">
<name>produkt 1</name>
<price>100</price>
</product>
<product id="2">
<name>produkt 2</name>
<price>101</price>
</product>
</group>
<group name="Gruppe 2">
<product id="3">
<name>produkt 3</name>
<price>100</price>
</product>
<product id="4">
<name>produkt 4</name>
<price>101</price>
</product>
</group>
</products>
og min aspfil ser sådan ud..
<%@ Language="VBScript" %>
<html>
<head>
<title>Show i VBS demo</title>
</head>
<body>
<table border="0">
<%
Set objHttp = Server.CreateObject("Msxml2.XMLHTTP")
Set objdocx = CreateObject("MSXML.DOMDocument")
Call objHttp.Open ("GET", "http://www.domain.tld/XMLList.php", False)
objHttp.Send
Set objXML = objHttp.responseXML
If objXML.parseError.errorcode = 0 Then
objdocx.Async = False
objdocx.Load(objHttp.responseXML)
Set grupper = objdocx.GetElementsByTagName("group")
For Each grupe in Grupper
Response.Write "<tr>" & vbCrLf
Response.Write " <td colspan='5'><a href='?gn=" & grupe.Attributes.GetNamedItem("name").Value & "'>" & grupe.Attributes.GetNamedItem("name").Value & "</a></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
For Each product in grupe.ChildNodes
Response.Write "<tr>" & vbCrLf
Response.write " <td width='10'> </td>" & vbCrLf
Response.Write " <td width='20'>" & product.Attributes.GetNamedItem("id").Value & "</td>" & vbCrLf
Response.write " <td width='50'> </td>" & vbCrLf
Response.write " <td> </td>" & vbCrLf
Response.write " <td width='20'> </td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
next
Next
Else
Response.Write ("There was an error")
End If
set objdocx = Nothing
Set objHttp = Nothing
%>
</table>
</body>
</html>
Så langt så godt nu er mit problem at jeg gerne vil have min vare´s navn og priser ind men jeg kan ikke få det til at virker er der en der kan hjælp mig færdig..
