SanalTurkey adlı üyeden alıntı: mesajı görüntüle
Bunu sağlayabilecek bir kod yok. En azından benim kanaatimce durum böyle. Her tag için kodları ayrı ayrı girmeniz gerekiyor. Aşağıda size vereceğim tag listesini kullanabilirsiniz. h1'den h6'ya kadar taglar bulunmuyor onları da ekleyin. 

Function BaslikTemizle(baslik)
'Ön Taglar
baslik = replace(baslik,"<a>","")
baslik = replace(baslik,"<abbr>","")
baslik = replace(baslik,"<acronym>","")
baslik = replace(baslik,"<address>","")
baslik = replace(baslik,"<applet>","")
baslik = replace(baslik,"<area>","")
baslik = replace(baslik,"<article>","")
baslik = replace(baslik,"<aside>","")
baslik = replace(baslik,"<audio>","")
baslik = replace(baslik,"<b>","")
baslik = replace(baslik,"<base>","")
baslik = replace(baslik,"<basefont>","")
baslik = replace(baslik,"<bdi>  ","")
baslik = replace(baslik,"<bdo>","")
baslik = replace(baslik,"<big>","")
baslik = replace(baslik,"<blockquote>","")
baslik = replace(baslik,"<body>","")
baslik = replace(baslik,"<br>","")
baslik = replace(baslik,"<button>","")
baslik = replace(baslik,"<canvas>","")
baslik = replace(baslik,"<caption>","")
baslik = replace(baslik,"<center>","")
baslik = replace(baslik,"<cite>","")
baslik = replace(baslik,"<code>","")
baslik = replace(baslik,"<col>","")
baslik = replace(baslik,"<colgroup>","")
baslik = replace(baslik,"<datalist>","")
baslik = replace(baslik,"<dd>","")
baslik = replace(baslik,"<del>","")
baslik = replace(baslik,"<details>","")
baslik = replace(baslik,"<dfn>","")
baslik = replace(baslik,"<dialog>","")
baslik = replace(baslik,"<dir>","")
baslik = replace(baslik,"<div>","")
baslik = replace(baslik,"<dl>","")
baslik = replace(baslik,"<dt>","")
baslik = replace(baslik,"<em>","")
baslik = replace(baslik,"<embed>","")
baslik = replace(baslik,"<fieldset>","")
baslik = replace(baslik,"<figcaption>","")
baslik = replace(baslik,"<figure>","")
baslik = replace(baslik,"<font>","")
baslik = replace(baslik,"<footer>","")
baslik = replace(baslik,"<form>","")
baslik = replace(baslik,"<frame>","")
baslik = replace(baslik,"<frameset>","")
baslik = replace(baslik,"<head>","")
baslik = replace(baslik,"<header>","")
baslik = replace(baslik,"<hr>","")
baslik = replace(baslik,"<html>","")
baslik = replace(baslik,"<i>","")
baslik = replace(baslik,"<iframe>","")
baslik = replace(baslik,"<img>","")
baslik = replace(baslik,"<input>","")
baslik = replace(baslik,"<ins>","")
baslik = replace(baslik,"<kbd>","")
baslik = replace(baslik,"<keygen>","")
baslik = replace(baslik,"<label>","")
baslik = replace(baslik,"<legend>","")
baslik = replace(baslik,"<li>","")
baslik = replace(baslik,"<link>","")
baslik = replace(baslik,"<main>","")
baslik = replace(baslik,"<map>","")
baslik = replace(baslik,"<mark>","")
baslik = replace(baslik,"<menu>","")
baslik = replace(baslik,"<menuitem>","")
baslik = replace(baslik,"<meta>","")
baslik = replace(baslik,"<meter>","")
baslik = replace(baslik,"<nav>","")
baslik = replace(baslik,"<noframes>","")
baslik = replace(baslik,"<noscript>","")
baslik = replace(baslik,"<object>","")
baslik = replace(baslik,"<ol>","")
baslik = replace(baslik,"<optgroup>","")
baslik = replace(baslik,"<option>","")
baslik = replace(baslik,"<output>","")
baslik = replace(baslik,"<p>","")
baslik = replace(baslik,"<param>","")
baslik = replace(baslik,"<picture>","")
baslik = replace(baslik,"<pre>","")
baslik = replace(baslik,"<progress>","")
baslik = replace(baslik,"<q>","")
baslik = replace(baslik,"<rp>","")
baslik = replace(baslik,"<rt>","")
baslik = replace(baslik,"<ruby>","")
baslik = replace(baslik,"<s>","")
baslik = replace(baslik,"<samp>","")
baslik = replace(baslik,"<script>","")
baslik = replace(baslik,"<section>","")
baslik = replace(baslik,"<select>","")
baslik = replace(baslik,"<small>","")
baslik = replace(baslik,"<source>","")
baslik = replace(baslik,"<span>","")
baslik = replace(baslik,"<strike>","")
baslik = replace(baslik,"<strong>","")
baslik = replace(baslik,"<style>","")
baslik = replace(baslik,"<sub>","")
baslik = replace(baslik,"<summary>","")
baslik = replace(baslik,"<sup>","")
baslik = replace(baslik,"<table>","")
baslik = replace(baslik,"<tbody>","")
baslik = replace(baslik,"<td>","")
baslik = replace(baslik,"<textarea>","")
baslik = replace(baslik,"<tfoot>","")
baslik = replace(baslik,"<th>","")
baslik = replace(baslik,"<thead>","")
baslik = replace(baslik,"<time>","")
baslik = replace(baslik,"<title>","")
baslik = replace(baslik,"<tr>","")
baslik = replace(baslik,"<track>","")
baslik = replace(baslik,"<tt>","")
baslik = replace(baslik,"<u>","")
baslik = replace(baslik,"<ul>","")
baslik = replace(baslik,"<var>","")
baslik = replace(baslik,"<video>","")
baslik = replace(baslik,"<wbr>","")
'Son Taglar
baslik = replace(baslik,"</a>","")
baslik = replace(baslik,"</abbr>","")
baslik = replace(baslik,"</acronym>","")
baslik = replace(baslik,"</address>","")
baslik = replace(baslik,"</applet>","")
baslik = replace(baslik,"</area>","")
baslik = replace(baslik,"</article>","")
baslik = replace(baslik,"</aside>","")
baslik = replace(baslik,"</audio>","")
baslik = replace(baslik,"</b>","")
baslik = replace(baslik,"</base>","")
baslik = replace(baslik,"</basefont>","")
baslik = replace(baslik,"</bdi>","")
baslik = replace(baslik,"</bdo>","")
baslik = replace(baslik,"</big>","")
baslik = replace(baslik,"</blockquote>","")
baslik = replace(baslik,"</body>","")
baslik = replace(baslik,"</br>","")
baslik = replace(baslik,"</button>","")
baslik = replace(baslik,"</canvas>","")
baslik = replace(baslik,"</caption>","")
baslik = replace(baslik,"</center>","")
baslik = replace(baslik,"</cite>","")
baslik = replace(baslik,"</code>","")
baslik = replace(baslik,"</col>","")
baslik = replace(baslik,"</colgroup>","")
baslik = replace(baslik,"</datalist>","")
baslik = replace(baslik,"</dd>","")
baslik = replace(baslik,"</del>","")
baslik = replace(baslik,"</details>","")
baslik = replace(baslik,"</dfn>","")
baslik = replace(baslik,"</dialog>","")
baslik = replace(baslik,"</dir>","")
baslik = replace(baslik,"</div>","")
baslik = replace(baslik,"</dl>","")
baslik = replace(baslik,"</dt>","")
baslik = replace(baslik,"</em>","")
baslik = replace(baslik,"</embed>","")
baslik = replace(baslik,"</fieldset>","")
baslik = replace(baslik,"</figcaption>","")
baslik = replace(baslik,"</figure>","")
baslik = replace(baslik,"</font>","")
baslik = replace(baslik,"</footer>","")
baslik = replace(baslik,"</form>","")
baslik = replace(baslik,"</frame>","")
baslik = replace(baslik,"</frameset>","")
baslik = replace(baslik,"</head>","")
baslik = replace(baslik,"</header>","")
baslik = replace(baslik,"</hr>","")
baslik = replace(baslik,"</html>","")
baslik = replace(baslik,"</i>","")
baslik = replace(baslik,"</iframe>","")
baslik = replace(baslik,"</img>","")
baslik = replace(baslik,"</input>","")
baslik = replace(baslik,"</ins>","")
baslik = replace(baslik,"</kbd>","")
baslik = replace(baslik,"</keygen>","")
baslik = replace(baslik,"</label>","")
baslik = replace(baslik,"</legend>","")
baslik = replace(baslik,"</li>","")
baslik = replace(baslik,"</link>    ","")
baslik = replace(baslik,"</main>","")
baslik = replace(baslik,"</map>","")
baslik = replace(baslik,"</mark>","")
baslik = replace(baslik,"</menu>","")
baslik = replace(baslik,"</menuitem>","")
baslik = replace(baslik,"</meta>","")
baslik = replace(baslik,"</meter>","")
baslik = replace(baslik,"</nav>","")
baslik = replace(baslik,"</noframes>","")
baslik = replace(baslik,"</noscript>","")
baslik = replace(baslik,"</object>","")
baslik = replace(baslik,"</ol>","")
baslik = replace(baslik,"</optgroup>","")
baslik = replace(baslik,"</option>","")
baslik = replace(baslik,"</output>","")
baslik = replace(baslik,"</p>","")
baslik = replace(baslik,"</param>","")
baslik = replace(baslik,"</picture>","")
baslik = replace(baslik,"</pre>","")
baslik = replace(baslik,"</progress>","")
baslik = replace(baslik,"</q>","")
baslik = replace(baslik,"</rp>","")
baslik = replace(baslik,"</rt>","")
baslik = replace(baslik,"</ruby>","")
baslik = replace(baslik,"</s>","")
baslik = replace(baslik,"</samp>","")
baslik = replace(baslik,"</script>","")
baslik = replace(baslik,"</section>","")
baslik = replace(baslik,"</select>","")
baslik = replace(baslik,"</small>","")
baslik = replace(baslik,"</source>","")
baslik = replace(baslik,"</span>","")
baslik = replace(baslik,"</strike>","")
baslik = replace(baslik,"</strong>","")
baslik = replace(baslik,"</style>","")
baslik = replace(baslik,"</sub>","")
baslik = replace(baslik,"</summary>","")
baslik = replace(baslik,"</sup>","")
baslik = replace(baslik,"</table>","")
baslik = replace(baslik,"</tbody>","")
baslik = replace(baslik,"</td>","")
baslik = replace(baslik,"</textarea>","")
baslik = replace(baslik,"</tfoot>","")
baslik = replace(baslik,"</th>","")
baslik = replace(baslik,"</thead>","")
baslik = replace(baslik,"</time>","")
baslik = replace(baslik,"</title>","")
baslik = replace(baslik,"</tr>","")
baslik = replace(baslik,"</track>","")
baslik = replace(baslik,"</tt>","")
baslik = replace(baslik,"</u>","")
baslik = replace(baslik,"</ul>","")
baslik = replace(baslik,"</var>","")
baslik = replace(baslik,"</video>","")
baslik = replace(baslik,"</wbr>","")
	BaslikTemizle = baslik
End Function
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.