Tjenare jag har följande xml
[red]
<Worksheet ss:Name="Blad1">
<Table ss:ExpandedColumnCount="1" ss:ExpandedRowCount="598" x:FullColumns="1"
x:FullRows="1">
<Row ss:Height="15.75">
<Cell ss:StyleID="s21"><Data ss:Type="String">FREDAG 3 JUNI</Data></Cell>
</Row>
<Row>
<Cell ss:StyleID="s22"><Data ss:Type="String">Kl 17.00-18.00 Barnridning</Data></Cell>
</Row>
<Row>
<Cell ss:StyleID="s23"><ss:Data ss:Type="String"
xmlns="http://www.w3.org/TR/REC-html40">Ridhuset i Mockfjärd. 70 SEK. Barn upp till 7 år. Anm och info tel <I>Arr: wfRidklubb</I><Font> wf</Font></ss:Data></Cell>
</Row>
...
...
...
</Table>
</Worksheet>
[/red]
Jag tänkte jag skulle loopa igenom denna mha MSXML ungefär så här
[red]
<%
extURL = "http://localhost/wf.xml"
set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(extURL)
If (xmlDoc.parseError.errorCode <> 0) then
Response.Write "wfkunde inte hittas, var god försök senare"
Else
set itemNodes = xmlDoc.selectNodes("//Worksheet/*")
For each item in itemNodes
if item.getAttribute("ss:StyleID") = "s21" Then
Response.Write item.text & "<br/>" & vbcrlf
end if
next
end If
%>
[/red]
Men jag får det inte att funka, Om jag tar bort if-satsen så skriver den ut massor men jag vill till och börja med bara skriva ut alla s21:or ;)
Någon som har något förslag?
mv icaaq