Bu biraz kod ameliliği olmuş sanki hocam

<%
Function temizle(gelenString)
  Dim regExpStr, gidenString
  Set regExpStr = New Regexp
  regExpStr.IgnoreCase = True
  regExpStr.Global = True
  regExpStr.Pattern = "<(.|n)+?>"
  gidenString = regExpStr.Replace(gelenString, "")
  gidenString = Replace(gidenString, "<", "&lt;")
  gidenString = Replace(gidenString, ">", "&gt;")
  temizle = gidenString
  Set regExpStr = Nothing
End Function
%>

Buyur hocam bu fonksiyonu kullan. Tüm < > taglarını temizler.