Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

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

Page Cannot be displayed due to msxml3.dll (0x800C0005)

My Code which used to work all along for years has recently been acting up
<%
    option explicit
   
    Dim RefPage, objXMLHTTP, HTMLPage
    RefPage = Request.QueryString("ref")
    if Len(RefPage) = 0 or not Left(RefPage,7) = "http://" then
          response.write "<font face=verdana size=2>Invalid reference page - " & RefPage & "</font>"
          response.end
    end if
    Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
          objXMLHTTP.Open "GET", RefPage, False
          objXMLHTTP.Send
          HTMLPage = objXMLHTTP.responseText
    Set objXMLHTTP = Nothing
    %>

What I am trying to do here is just merely grab TEXT from my own webpage and display as TEXT for Printing purposes only/


Error Type:
msxml3.dll (0x800C0005)
The system cannot locate the resource specified.

I have searched Google... and found very few similar comments, but hardly any solution. I also know that similar query was done here but not with the same server screenscraping issue.

thks
Sal
0
snensi
Asked:
snensi
2 Solutions
 
lengreenCommented:
Hi snensi,

take a look at this thread, it may help

http://www.experts-exchange.com/Web/Web_Languages/ASP/Q_20934875.html

Cheers!
0
 
SquareHeadCommented:
Hmm, maybe you've changed the XML parser version somehow? Here's a page that will display the versions available on your server (click this from your server if possible):

http://www.zymur.com/xmltest_server.asp

Here's some code that will use the correct XMLHTTP object (or I guess the first XMLHTTP object that does not error):

Some code to use the correct XML version:

     On Error Resume Next
     Err.Clear

     Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
     If (Err) Then
          Err.Clear
          Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
     End If

     If (Err) Then
          Err.Clear
          Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
     End If

     If (Err) Then
          Err.Clear
          Set objXML = Server.CreateObject("Microsoft.XMLHttp")
     End If
     On Error Goto 0

0
 
masirofCommented:
No comment has been added to this question in more than 21 days, so it is now classified as abandoned..
I will leave the following recommendation for this question in the Cleanup topic area:
Split: lengreen & SquareHead

Any objections should be posted here in the next 4 days. After that time, the question will be closed.

masirof
EE Cleanup Volunteer
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

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