Stripping HTML from an ASP code and then Trimming It

Thread title: Stripping HTML from an ASP code and then Trimming It

Thread tools

Search this thread

Display Modes

09-22-2010, 03:44 PM

jimmykup

Status: I'm new around here
Join date: Apr 2010
Location:
Expertise:
Software:

Posts: 11

iTrader: 0 / 0%

jimmykup is on a distinguished road

I was able to figure this out using this code.

Code:

<%End if
	If Not rsItems.Eof Then
		sDescription = rsItems("WEBDESC")
		If Not rsParent.Eof Then%>

<%Function stripHTML(strHTML) 
	Dim objRegExp, strOutput
	Set objRegExp = New Regexp
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	objRegExp.Pattern = "<(.|\n)+?>"
	strOutput = objRegExp.Replace(strHTML, "")
	strOutput = Replace(strOutput, "<", "&lt;")
	strOutput = Replace(strOutput, ">", "&gt;")
	stripHTML = strOutput 'Return the value of strOutput
	Set objRegExp = Nothing
End Function%> 

<%=stripHTML(sDescription)%>

<%End if%>