Description meta etiketi yapma

selam arkdaşlar asp de description meta etiketi nasıl yapılır. ben yapıyorum aslında ama html kodlarınıda içine alıyor. html kodlarını silerek nasıl yapılabilir?

Public Function temizle(gelenyazi)
strGelen = gelenyazi
strGelen = Replace(strGelen, Chr(10), "", 1, -1, 1)
strGelen = Replace(strGelen, Chr(13), "", 1, -1, 1)
arrKod = Split(strGelen, "<")
FOR EACH Kod IN arrKod
strGidecek = strGidecek & Mid(Kod, Instr(Kod, ">")+1, Len(Kod)-Instr(Kod, ">"))
NEXT
temizle=strGidecek
End Function


fonksiyonu ile temizleyebilirsin html kodlarını.

teşekkür ederim

aspindir den bi kod buldum buda işimi gördü belki başkalarının işinede yarar

<%
Function HtmlEncodeYazi(text)
Set objReg = New RegExp
objReg.Global = True
objReg.IgnoreCase = True
objReg.Pattern = "<[^>]+>"
YeniText = objReg.Replace(text,"")
Set objReg = Nothing
HtmlEncodeYazi = YeniText
End Function
%>

<meta name="Description" content="<%=left(HtmlEncodeYazi(cat("tanim")),150) %>">