mini google bot

[ksanet]

he encontrado el siguiente ejemplo que supuestamente hace precisamente eso

Response.Buffer = True

Dim strURL, objXMLHTTP, objXML, strContents
Dim objRegExp, strHTML, strPattern, colMatches, strTitle


Set objXMLHTTP = Server.CreateObject ("MSXML2.ServerXMLHTTP")
'Or if this doesn't work then try :
'Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")

objXMLHTTP.Open "GET", "http://www.ksanet.es/test.html", false

objXMLHTTP.Send

strContents = objXMLHTTP.ResponseText

Set objXMLHTTP = Nothing

Set objRegExp = New RegExp

strPattern = "<title>(.*?)<\/title>"

objRegExp.Pattern = strPattern
objRegExp.IgnoreCase = True
objRegExp.Global = True

Set colMatches = objRegExp.Execute(strContents)

If colMatches.Count > 0 then
strTitle = objMatches(0).Value
Else
strTitle = ""
End If

Set objRegExp = Nothing

Response.write(strTitle)

me falla la linea de color rojo con el siguiente error:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'objMatches'

por que no me acepta eso?