Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
HMTLMetaElement
- Thread starter ecannizzo
- Start date
JohnYingling
Programmer
I use objects.
Code:
Dim mobjdocument as object
Dim objelements as object
Dim objelement as object
With mobjWeb
Do
Set mobjDocument = mobjWeb.Document
If Err.Number <> 0 Then Exit Do
If mobjDocument Is Nothing Then Exit Do
'*****
'* META http-equiv="Refresh" BYPASS REDIRECTION
'*****
Set objElements = mobjDocument.getElementsByTagName("Meta")
If Err.Number <> 0 Then Exit Do
If objElements Is Nothing Then Exit Do
For Each objElement In objElements
If LCase(objElement.httpEquiv) = "refresh" Then
'* We are still busy
blnBusy = True
Exit Do
End If
Next
Exit do: loop- Status