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"))%>