View Single Post
09-22-2010, 03:44 PM
#4
jimmykup is offline 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

  Old

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%>

Reply With Quote