asked on

Help getting InternetExplorer.Application to work

I'm trying to get the following code to work:

-------------------------------------------
<%
dim web
dim doc
dim e
dim outdoc

set web = server.createobject("InternetExplorer.Application")

web.navigate "http://www.microsoft.com"

Do While web.busy
Loop

set doc = web.document

outdoc = doc.documentelement.innerhtml
Response.Write outdoc

set web = nothing
set doc = nothing
set e = nothing
%>

-------------------------------------------
So far I've upgraded IE to 6.0 SP1.
Error I'm getting is :
Error Type:
(0x80004005)
Unspecified error

Error Type:
Microsoft VBScript runtime (0x800A01AE)
Class doesn't support Automation: 'busy'

Slimshaneey

Why not just use MSXML like this:

Dim oXML
Dim sPage
Dim oFs
Dim oFile
Set oXML = Server.CreateObject("Microsoft.XMLHTTP")
oXML.Open ("get", "http://www.microsoft.com", false)
oXML.Send
sPage = oXML.ResponseText
Set oXML = Nothing

Response.write sPage

Does same as above without the hassle

ASKER CERTIFIED SOLUTION

Slimshaneey

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

grego122

ASKER

Slimshaneey,

The web application (internal to us) requires authentication. I've tried appending the username and password to the open method but wasn't able to get it to work. Is it possible to get the data within the same session rather than creating a new session/login process?

© 2000-2004 State of California. Gray Davis, Governor.