Hi Tracy,
I have been trying to figure out how to "wait for a page"
while progressing though a series of pages on a web site.
I had read that DownloadComplete might be more reliable than ReadyState, but
can not find info on DownloadComplete. I think it relates to something
called pDisp. do you know anything about this? On the other hand, your use of
lower(lo_ie.Document.ReadyState) <> "complete" may be just what DownloadComplete
is supposed to do?
Thanks
Steve

*--Change to your login name and your password on the UT
lc_User = "xxxx"
lc_PW = "xxxx"
myurl ="xxxxx"

lo_ie = createobject('internetexplorer.application')
lo_IE.Navigate(myurl)
lo_ie.Visible = .T.
inkey(1)
ln_Now = seconds()

do wait_for_page

with lo_IE
if vartype(.Document) = "O" and ! isNull(.Document);
and lower(.Document.ReadyState) = "complete"

with .Document.forms(0)
.Login_id.value = lc_User
.Passwd.value = lc_PW
.Submit
endwith
do wait_for_page
.Navigate2 (lo_IE.document.links(14).href)
do wait_for_page
.Navigate2 (lo_IE.document.links(13).href)
do wait_for_page
.Visible = .T.
endif
endwith

proc wait_for_page
do while lo_ie.Busy and seconds() <= ln_Now+30
wait wind "Please wait... Internet Explorer is busy" time 1
enddo
do while lower(lo_ie.Document.ReadyState) <> "complete"
wait wind "Please wait...while page downloads " time 1
enddo
endproc