tolgasen adlı üyeden alıntı: mesajı görüntüle
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.
Çok eski bir arşivden kalma hocam üstüne daha sonra html5 ile gelen kodları ekledim 3-5 bir şey yoksa hayatta el atılmaz zaten