Date Added: 10/10/2009
Posted by:
 administrator
 administratortransworldportal.com

Viewed: 72 times

XMLDOM Code to do the importing.

 

<% 'Two ways to load your XML

'From String
'    xmlString = "foo bar, some xml here"
'    Set oXML = Server.CreateObject("Microsoft.XMLDOM")
'    oXML.async = False
'    oXML.LoadXml(server.mappath(xmlPath))

'From filesystem
    xmlPath = "test.xml"
    Set oXML = Server.CreateObject("Microsoft.XMLDOM")
    oXML.async = False
    oXML.Load(server.mappath(xmlPath))

'The rest is the same regardless of load method

If oXML.parseError.errorCode <> 0 Then
    response.write "Error: could not load XML" & vbCrlf &_
                    "Reason: " &  oXML.parseError.reason & oXML.parseError.Errorcode & vbCrlf &_
                    "Line: " &  oXML.parseError.line & vbCrlf &_
                    "Line Pos: " & oXML.parseError.linepos
    response.end
End If

'Get the root node
set root = oXML.getElementsByTagName("torrents")

if root.length = 0 then
    response.write "root XML element not found"
    response.end
end if

'Loop through torrents
Set torrents = root.item(0).getElementsByTagName("torrent")

for each torrent in torrents
 tHash = torrent.getAttribute("hash")
 tFileName = torrent.getAttribute("filename")
 tName = torrent.getAttribute("name")
 tAdded = torrent.getAttribute("added")
 'You get the idea

 response.write "<strong>Torrent</strong> - " & tName & "  " & tHash & "  " & tFileName & "   " & tAdded & "<br />"

 'Loop the peers
 Set peers = torrent.getElementsByTagName("peer")

 for each peer in peers
        pId = peer.getAttribute("id")
        pIp = peer.getAttribute("ip")
        'Same idea...

        response.write " ; ; ;Peer - " & pId & "  " & pIp & "<br />"
    next
next

%>

 

 XML Code to be imported

<?xml version="1.0" encoding="ISO-8859-1" ?>