Dediğinizi iki yöntem ile yapabilirsiniz.
Birinci yöntemi yazıyorum. (ikinci yöntem regex ile, gerek olursa onu da yazarım. Ama aşağıdaki yöntem işini görecektir.)
En üste şu kodları yerleştir,
<%
Function BaslikTemizle(baslik)
If baslik = "" Then Exit Function
baslik = replace(baslik,"<p>","")
baslik = replace(baslik,"</p>","")
baslik = replace(baslik,"<strong>","")
baslik = replace(baslik,"</strong>","")
BaslikTemizle = baslik
End Function
%>
Başlığı sunduğun yeri de şu şekilde yansıtmalısın;
<%=BaslikTemizle(rshaber("baslik"))%>
Hocam tşkler evet bu şekilde de çalışıyor,
olabilecek tüm kodları eklememiz gerekiyor buraya, bunun yerine
< işareti ile başlayıp
> bitenlerin hepsini temizlesek nasıl olur.
sonuçta her kod bu taglarda başlıyor
mesela
<br>
<hr>
<h1></h1>
<p></p>
<div></div>
böyle daha pratik daha sağlam olur dimi

.
.
.
.