Cita:
por cierto, me a un problema con los acentos, eso es mas grave incluso q lo otro q lo tengo apañadito con una funcion ASP Si, con la funcion que he puesto mas abajo lees el contenido de la pagina y lo dejas en una cadena.
Luego tendrias que analizar la cadena con (con instr) extrayendo (con mid) lo que esta entre <TITLE> y </TITLE> para el titulo, y lo que esta en la propiedad content de <META name="Description" content="...">
Luego tendrias que analizar la cadena con (con instr) extrayendo (con mid) lo que esta entre <TITLE> y </TITLE> para el titulo, y lo que esta en la propiedad content de <META name="Description" content="...">
Código:
Function GetHTML(strURL) as string Dim objXMLHTTP, strReturn, strHTML Set objXMLHTTP = SErver.CreateObject("MSXML2.ServerXMLHTTP") objXMLHTTP.Open "GET", strURL, False objXMLHTTP.Send strHTML = objXMLHTTP.responseText Set objXMLHTTP = Nothing return strHTML End Function