Html kodları temizleme

Function RemoveHTML( strText )
	Dim RegEx

	Set RegEx = New RegExp

	RegEx.Pattern = "<[^>]*>"
	RegEx.Global = True

	RemoveHTML = RegEx.Replace(strText, "")
End Function

<?
$degisken = "<font size="1">Seni Seviyorum<font>";
strip_tags($degisken);
echo "$degisken";
?>

metin="<b>deneme</b>"
do while inStr(metin,"<")>0
baslangic=inStr(metin,"<")
son=inStr(baslangic,metin,">")
silinecek=mid(metin,baslangic,son-baslangic+1)
metin=replace(metin,silinecek,"")
loop