Access 2003 IE Object model renders webpage differently the Access 2007 IE object

Trying to extract a company name from a web page,  using Access 2003 vba.
but when using Access 2007the ie object returns different data?

here is my vba code
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
 strHTML = ie.Document.body.innerHTML

HERE IS THE VIEW SOURCE from the webpage
company:</TD>
                              </TR>
                           </TABLE>
                        </TD>
                     </TR>
                                          <TR>
                        <TD>
                           <TABLE BORDER="0">
                              <TR>
                                 <TD WIDTH="25" STYLE="font-size:2pt">&nbsp;</TD>
                              </TR>
                              <TR>
                                 <TD WIDTH="25" CLASS="c1">&nbsp;</TD>

                                 <TD ALIGN="RIGHT" CLASS="c0" VALIGN="TOP" NOWRAP>Company Name:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>

                                 <TD CLASS="c2">AMART CONSULTANT NETWORK INC</TD>
                              </TR>

                              <TR>
                                 <TD WIDTH="25" CLASS="c1">&nbsp;</TD>

                                 <TD ALIGN="RIGHT" CLASS="c0" NOWRAP>CRK:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>


---------------------------
strHTML result from Microsoft Office Access 2003
---------------------------

Company Name:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD><TD class=c2>AMART CONSULTANT NETWORK INC</TD></TR><TR><TD class=c1 width=25>&nbsp;</TD><TD class=c0 noWrap align=right>CRK:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD><TD class=c2>0001000000</TD></T

 strHTML result from Microsoft Office Access2007
Company Name:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>

                                 <td class="c2"><span class="adtext" id="adtext_4">AMART</span> <span class="adtext" id="adtext_1">CONSULTANT NETWORK</span> INC</td>
                              </
my question is why do I get different results in Access 2003 and Access 2007?
how can I make them both work as in Access 2003?
durickAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

als315Commented:
I think problem with different content could be in web server: it can analyse browser used and change code dynamically.
You can exclude this influence by removing tags from result. Look at sample (Query2)
2 functions are used:
removeTags removes any tags from string
GetSection return string with text after section name (second parameter)
DBGetCompany.mdb
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
durickAuthor Commented:
Thanks, these are two great functions. How would I modify "removeTags" to keep "<BR>" tags?
0
als315Commented:
You can see line in the beginning of function:
A = Replace(A, "</TR>", vbCrLf)
add similar line for <BR>:
A = Replace(A, "<BR>", vbCrLf)
or (and)
A = Replace(A, "</BR>", vbCrLf)
0
durickAuthor Commented:
thanks again
0
durickAuthor Commented:
Thanks again you have been so helpful, but now I have one more question.

The get section routine appears to work great in a query, but when I use it in straight  vba, the string value returned has many leading blanks or some characters that the trim function will not remove? any ideas
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.