<%
Response.CharSet = "UTF-8"
Function RemoveHTML(strText)
If IsNull(strText) = True OR strText = "" Then
Exit Function
End If
strText = Replace(strText, "
", "|br|")
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
strText = RegEx.Replace(strText, "")
strText = Replace(strText, "|br|", "
")
RemoveHTML = strText
End Function

strYazi = "shfsdgfj wgrwe gwej
sf ewte rte er

Deneme İçerik

Burası Büyük Başlık

"
strYazi = RemoveHTML(strYazi)
Response.Write(strYazi)
%>