Avatar billede fuxi Nybegynder
28. maj 2004 - 09:17 Der er 2 kommentarer og
1 løsning

XML Parsing af Ekstern side

Lige et lille problem jeg håber der er nogen der kan hjælpe med.

Jeg har en ekstern dynamisk side der generere noget XML, side kunne f.eks. være: http://tmcomponents.travelmarket.com/modules/auction/teaser_xml.cfm?nSupplierID=187

Det jeg gerne vil er at hente indholdet det vil sige XMLen og parse det så jeg kan vise det på min egen side...  Jeg har lavet følgende kode men det fejler.

Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://tmcomponents.travelmarket.com/modules/auction/teaser_xml.cfm?nSupplierID=187", false
xml.Send()

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Load (xml.ResponseText)

If objXML.parseError.errorCode <> 0 Then
        Response.Write objXML.parseError.reason
        Response.Write("<br>")
        Response.Write("Der er sket en fejl")
        Response.end()
End If
Avatar billede nozio Nybegynder
28. maj 2004 - 09:42 #1
Her er lidt at arbejde med (hentet fra html.dk):

' Adressen på det RSS-feed der skal loades
extURL = "http://tmcomponents.travelmarket.com/modules/auction/teaser_xml.cfm?nSupplierID=187"

' feedet loades
set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(extURL)

' Check at feedet er loadet korrekt
If (xmlDoc.parseError.errorCode <> 0) then
    ' Udskriv eventuelle fejl (for nem fejlretning)
    Response.Write "XML error: " & xmlDoc.parseError.reason
' Fortsæt hvis alt er ok
Else

    ' Åbn elementet <auction>
    set auctionNodes = xmlDoc.selectNodes("//auction/*")

    for each entry in auctionNodes
        ' De tre obligatoriske elementer i auction lægges i variable
        if entry.tagName = "title" then
            strAuctionTitle = entry.text
        elseif entry.tagName = "value" then
            strAuctionValue = entry.text
        elseif entry.tagName = "current_bid" then
            strAuctionCurrent_bid = entry.text
        elseif entry.tagName = "bids" then
            strAuctionsBids = entry.text
        end if
    next

    ' De fire elementer i auction udskrives
    response.write strAuctionTitle & " - "
    response.write strAuctionValue & " - "
    response.write strAuctionCurrent_bid & " - "
    response.write strAuctionsBids & "<br>"


    ' Vi rydder op
    set auctionNodes = nothing

End If
Avatar billede fuxi Nybegynder
20. oktober 2004 - 13:32 #2
Giv lige et svar nozio så du kan få point :O)
Avatar billede nozio Nybegynder
20. oktober 2004 - 13:34 #3
Ok - svar :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Seneste spørgsmål Seneste aktivitet
I går 10:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging