Eliminar HTML

[Ascariz]

Buentas a todos,

Hay alguna funcion para eliminar todo el HTML ?.
O como lo haceis?

graciaso

[Ascariz]

ESte es mi codigo y me da este error por que es ?

en PHP hay una funcion que se llama: strip_tags($nombre); La hay en ASP ????

Código:

	texto = "hola  < http://www.dominio.com/images/esp/cab_envio_email.jpg >123< fdew fndew d > fds fds fd"
	'texto_aux = "hola  < http://www.dominio.com/images/esp/cab_envio_email.jpg >123< fdew fndew d > fds fds fd"
	'texto_aux = "hola  123< fdew fndew d > fds fds fd"
	'texto_aux = "hola  123 fds fds fd"
	texto = replace(texto,"<","&lt;")
	texto = replace(texto,">","&gt;")
	texto_aux = texto
	response.Write(InStr(texto_aux,"&lt;")& "<br />")
	tiene = cint(InStr(texto_aux,"&lt;"))
	while tiene > 0
		response.Write("<br />"&texto_aux& "<br />")
		pos1 = cint(InStr(texto_aux,"&lt;"))
		pos2 = cint(InStr(texto_aux,"&gt;"))
		response.Write(pos1 & " " & pos2)
		texto_aux = Mid(texto,1,pos1-1)
		response.Write("<br />"&texto_aux)
		texto_aux =  texto_aux & Mid(texto,pos2+4,len(texto))	
		response.Write("<br />"&texto_aux)
		tiene = InStr(texto_aux,"&lt;")	
	wend
	response.Write("<br />"&texto_aux)

[Ascariz]

Buscando en los fondes de Internet la entrontre..

Aki la teneis.

Código:

'------------------------------------------
'
' Esta funcion recibe una cadena en HTML y retorna sin las etiquetas de HTML
'
'------------------------------------------

Function stripTags( strToStrip )
	Dim objRegExp
	strToStrip = Trim( strToStrip & "" )
	If Len( strToStrip ) > 0 Then
		Set objRegExp = New RegExp
		objRegExp.IgnoreCase = True
		objRegExp.Global = True
		objRegExp.Pattern = "<[^>]+>"
		strToStrip = objRegExp.Replace(strToStrip, "")
		Set objRegExp = Nothing
	End If
	stripTags = strToStrip
End Function