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'

grego122Asked:
Who is Participating?
 
SlimshaneeyConnect With a Mentor Commented:
Actually you will need to remove the brackets on the open line...
0
 
SlimshaneeyCommented:
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
0
 
grego122Author Commented:
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.  
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.