Funktion og XMLHTTP

Jeg har nedenstående function, som henter nogle meta taqs fra given url.
Functionen virer tilfredsstillende, men ikke 100% perfekt. Men umiddelbart eneste løsning når man ikke vil/kan gøre brug af komponent.

Men tager jeg og vil lave forespørgsel på eks. www.yahoo.dk, får jeg fejl:

MSXML3.DLL (0x80070005)
Adgang nægtet.

Det er givet fald fordi yahoo omdirigerer til http://dk.yahoo.com/

Hvad kan jeg gøre ved det?



<%

Function Meta(StrUrl,strType)

if strType = 1 then
Start = "<title>"
Slut = "</title>"
end if

if strType = 2 then
Start = "<meta name=""description"" content="""
Slut = ">"
end if

if strType = 3 then
Start = "<meta name=""keywords"" content="""
Slut = ">"
end if

  Response.Buffer = True
  Dim objXMLHTTP, xml
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  xml.Open "GET", "" & strUrl & "", False
  xml.Send
  strUrl = xml.responseText
  Set xml = Nothing

 
  ArrTitle1 = Split(StrUrl, "" & start & "",3,1)
    If UBound(ArrTitle1) > 0 Then
      ArrTitle2 = Split(ArrTitle1(1), "" & Slut & "",3,1)
      Meta = ArrTitle2(0)
    End If
   
    meta = replace(meta,"""","",1,-1,1)
    meta = replace(meta,"/","",1,-1,1)



End Function
%>

<%
url = "http://www.yahoo.dk"
Response.Write Meta(url,1)
%>