<% ' Function Strip All HTML Tags ' Author Abd Shomad: ' http://www.4guysfromrolla.com/webtech/abdshomad.shtml Function StripHTMLTag(ByVal sText) StripHTMLTag = "" fFound = False Do While InStr(sText, "<") fFound = True StripHTMLTag = StripHTMLTag & " " & Left(sText, InStr(sText, "<")-1) sText = MID(sText, InStr(sText, ">") + 1) Loop StripHTMLTag = StripHTMLTag & sText If Not fFound Then StripHTMLTag = sText End Function %>