Leta igenom XML med ASP och få ut dom i sträng

Löste det själv.

Set Namn = xmlDoc.getElementsByTagName("Name")
if Namn.item(1) is nothing then
response.write "strängen är tom"
else
strNamn1 = Namn.item(1).text
end if

Kör en redirect till en sida som avslutar allt när strängen är tom.

Ett tips är att använda sig at xpath för att hämta noder ur ett xml-dokument. Ex för att rendera ut driver-data:

Dim node
For Each node in xmlDoc.selectNodes("RaceResults/Driver")
    Response.Write GetChildNodeValue(node, "Name") & "<br />"
    Response.Write GetChildNodeValue(node, "CarNumber") & "<br />"
    Response.Write GetChildNodeValue(node, "TeamName") & "<br />"
    Response.Write GetChildNodeValue(node, "CarNumber") & "<br />"
Next

Function GetChildNodeValue(ByRef node, ByVal elementName)
   Dim childNode
   Set childNode = node.selectSingleNode(elementName)
   If childNode Is Nothing then
       GetChildNode = ""
    Else
        GetChildNode = childNode.text
   End if
End Function

Här kan du läsa mer om det:

http://msdn.microsoft.com/library/en-us/xmlsdk/html/6da1b6e3-256e-4919-8848-53b425f72ed1.asp?frame=true

Det där var intressant toha. Tackar (y)

toha skrev:

Ett tips är att använda sig at xpath för att hämta noder ur ett xml-dokument.

Tjena!
Har nappat lite på det där, men har kört fast.
Här är mitt XML Dokument:

<mystats>
	<stat>
		<datetime>070516</datetime>
		<rake>4,1</rake>
		<bonus>40,3</bonus>
		<currency>USD</currency>
	</stat>
	<stat>
		<datetime>070517</datetime>
		<rake>2,43</rake>
		<bonus>13,3</bonus>
		<currency>USD</currency>
	</stat>
	<stat>
		<datetime>070518</datetime>
		<rake>34,43</rake>
		<bonus>23,3</bonus>
		<currency>USD</currency>
	</stat>
	<statssum>
		<sumrake>326,91</sumrake>
		<sumbonus>154,1</sumbonus>
	</statssum>
</mystats>

Jag använder följande kod för att få ut data:

Set XMLDoc = CreateObject("MSXML2.DOMDocument")
XMLDoc.setProperty "ServerHTTPRequest", true
XMLDoc.async=false
XMLDoc.Load "http://ADRESSEN.COM/get-stats.asp?account_id=" & global_id & ""
If XMLDoc.parseError.errorCode = 0 Then
	Dim node
	i = 0		
	For Each node in XMLDoc.selectNodes("mystats/stat")
		If i Mod 2 <> 0 Then row_count = "row-odd" Else row_count = "row-even" End If
		Response.Write(	"<p class=""col-1 " & row_count & """>" & GetChildNodeValue(node, "datetime") & "&nbsp;</p>" & VbCrLf &_
				"<p class=""col-2 " & row_count & """>" & GetChildNodeValue(node, "rake") & "&nbsp;</p>" & VbCrLf &_
				"<p class=""col-3 " & row_count & """>" & GetChildNodeValue(node, "bonus") & "&nbsp;</p>" & VbCrLf &_
				"<p class=""col-4 " & row_count & """>" & GetChildNodeValue(node, "currency") & "&nbsp;</p>" & VbCrLf &_
				"<p class=""clear-all"">&nbsp;</p>" & VbCrLf)			
		i = i + 1
	Next
	Response.Write(	"<p class=""site-topic-1 row-topic"">Totalt:</p>" & VbCrLf &_
			"<p class=""site-topic-2 row-topic"">[b][red]0[/red][/b]</p>" & VbCrLf &_
			"<p class=""site-topic-3 row-topic"">[b][red]0[/red][/b]</p>" & VbCrLf &_
			"<p class=""site-topic-4 row-topic"">&nbsp;</p>" & VbCrLf &_
			"<p class=""clear-all"">&nbsp;</p><br />" & VbCrLf)
Else
	Response.write XMLDoc.parseError.reason
End If

Alla rader skrivs ut, utom det som finns inom <statssum> (<sumrake>, <sumbonus>)

Har testat med flera olika saker, men får inte ut dessa två hur jag än gör.
Resultatet ska visas efter For-Loopen, istället för de två, röda nollorna som finns där nu.

Några förslag?

GetChildNodeValue(XMLDoc.selectSingleNode("mystats/statssum"), "sumrake")

Aha, ser intressant ut.
Ska kolla om det funkar det första jag gör när jag kommer till jobbet imorrn.

Tack o Go'natt!

Fungerar hur bra som helst, tack!

Hej igen!
Nu har jag ett XML dokument som är sjukt stort (webbläsaren hänger sig nästan när man ska kolla på filen, ca. 10MB är det på).
Adressen för er som vill kolla på den:
http://admin.octracker.net/fastnet2007.xml

Jag vill nu plcoka ut data om en viss båt, den med ID 420 (<id>420</id>).
Frågan är bara, hur gör jag?

Jag vet hur jag ska göra för att plocka ut allt från filen, men i det här fallet vill jag bara ha just ID420 och det som finns om denna båt.

Några förslag på hur man kan lösa det här?

Tack!

XPathen är:

"/TrackerData/Events/LocationGroups/Locations[ID/text()='420']"

Hmm, aha.
Nu har jag den här koden:

<%
Function GetChildNodeValue(ByRef node, ByVal elementName)
   Dim childNode
   Set childNode = node.selectSingleNode(elementName)
   If childNode Is Nothing then
       GetChildNode = "foo"
    Else
       GetChildNode = childNode.text
   End if
End Function

Set XMLDoc = CreateObject("MSXML2.DOMDocument")
XMLDoc.setProperty "ServerHTTPRequest", true
XMLDoc.async=false
XMLDoc.Load "http://admin.octracker.net/fastnet2007.xml"
If XMLDoc.parseError.errorCode = 0 Then
	Dim node
	For Each node in XMLDoc.selectNodes("/TrackerData/Events/LocationGroups/Locations[ID/text()='420']")
		Response.Write(GetChildNodeValue(node, "Name") & "<br />")
	Next
Else
	Response.write XMLDoc.parseError.reason
End If
%>

Men inget alls returneras...
Har testat att hämta /TrackerData/Events och sen "Name", fast samma där, inget skrivs ut.
Är det något annat fel i koden, eller kan det bero på något annat?

Typiskt... gjorde samma miss som förra gången jag körde funktionen ovan.
Som ni ser heter funktionen "getChildNodeValue" och inte "getChildNode".

:)