Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 549
  • Last Modified:

XMLDom not working in standalone vbscript

Hello
I've got an ASP vbscript that works ok. Here it is:

Dim objXMLDOM
Set objXMLDOM = Server.CreateObject("Microsoft.XMLDOM")

objXMLDOM.load(Server.MapPath("test.xml"))

For Each objChild In objXMLDOM.documentElement.childNodes
      Response.Write objChild.NodeName & " - "   
      Response.Write objChild.Text & "<BR>"
Next
Next

However, I cannot get this to work in a standalone vbscript (test.vbs) that looks like this:

Dim objXMLDOM
Set objXMLDOM = CreateObject("Microsoft.XMLDOM")

objXMLDOM.load("c:\test.xml")

For Each objChild In objXMLDOM.documentElement.childNodes
      MsgBox objChild.NodeName & objChild.Text
Next
Next

It throws an "Object Required" error. I know the file is there since a fileexist returns true.

Please help,

Soren
0
speder
Asked:
speder
  • 5
  • 3
1 Solution
 
RejojohnyCommented:
try this ...
objXMLDOM.async = false
objXMLDOM.load("c:\test.xml")
if objXMLDOM.parseError <> 0 then  'to catch the error if any
          msgbox "Error in loading"
end if
0
 
spederAuthor Commented:
This returns Error in Loading but the file is there since this returns "file is there". The xml-file should be okay since it loads allright in an ASP page (and I'm able to traverse the dom tree, etc.)

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim objXMLDOM
Set objXMLDOM = CreateObject("Microsoft.XMLDOM")
objXMLDOM.async = false

objXMLDOM.load("C:/test.xml")

if objXMLDOM.parseError <> 0 then  'to catch the error if any
          msgbox "Error in loading"
end if

if objFSO.fileExists("C:/test.xml") then
      msgbox "file is there"
end if
0
 
RejojohnyCommented:
if it gives .. error in loading .. then there must be some error in the XML file like tags not matching or closing tag not present .. note that XML is case sensitive too ...

change ur code to get the actual error

if objXMLDOM.parseError <> 0 then  'to catch the error if any
          msgbox "error in line " & objXMLDOM.parseError.Line & " with description '" & objXMLDOM.parseError.reason & "' and text '" & objXMLDOM.parseError.srcText & "'"
end if
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
RejojohnyCommented:
load ur XML file into ur browser .. assuming ur browser is IE ... it too will give u error mesages if there are any errors in ur XML file ...
if u still face a problem and cannot correct it .. post ur XML file and we can have a look into it
0
 
EDDYKTCommented:
Post your text.xml if it is not large
0
 
spederAuthor Commented:
Thanks - The problem was a missing DTD file.

I posted a new question that I'm sure will be real easy for you to answer ;-)
0
 
RejojohnyCommented:
any reason for giving just a grade B ?? ur sugestion would help me in my future posts ..
0
 
spederAuthor Commented:
Sorry - This was my first attempt in here. I just clicked on Accept - Didn't even see the Grade Option. Can I change it now?
0
 
RejojohnyCommented:
i think so .. u could ask the moderator .. i think .. anyway .. if it is much of a problem for u .. i wouldn't mind if u do not do it ... . I thought u were not happy with the solution and that's y u graded it 'B' ..
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

  • 5
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now