extraer datos html

[Adler]

Hola

Reemplazar los tags HTML, como te indica JuanRa

Código asp:

Function LimpiarTags(cadena) 
Dim objRegExp
    Set objRegExp= New RegExp 
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<[^>]+>"
strlimpio = objRegExp.Replace(cadena, " ") 
    Set objRegExp = Nothing
LimpiarTags = strlimpio
End Function
 

Cortar cadena

Código asp:

Function Cortar (str, longitud)
if Len(str) => longitud then
    Cortar=Left(str, longitud)&".."
else
    Cortar=str
end if
End Function
 

Suerte