Buscar Texto en HTML

[asauce]

Hola. He cojido el original y lo he cambiado para que me sirva (el original me funciona bien), lo que no sé si he cambiado demasiadas cosas o me falta alguna más por cambiar.

Me queda así:

Donde pone ficheroweb, va la dirección web de un fichero htm que tengo en un servidor web (es que el foro éste me dice que no puedo vincular páginas y no sé qué). Si escribo la dirección del fichero htm tal y como la escribo donde pone FICHEROWEB, se me visualiza correctamente -vamos, que existe y que la dirección está bien escrita-.

<%
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "ficheroweb", False
xml.Send
Cadena = CSTR(xml.responseText)
PosIni1 = InStr(Cadena,"Autor")
PosIni2 = InStr(PosIni1,Cadena,"r")
PosFin = InStr(PosIni2, Cadena,"hu")
Texto = MID(Cadena, PosIni2, PosFin-PosIni2)
Response.Write "Autor: " & Texto & "<br>"
Set xml = Nothing
%>

Me dice error msxml3.dll (0x80070005)
Acceso denegado.

Gracias.