veja se é isto que você precisa: <%
Function LimpaHTML(matriz)
Do While True
ini = InStr(1,matriz,"<")
If ini = 0 Then Exit Do
fim = InStr(ini,matriz,">")
parcial = Mid(matriz,ini,fim-ini+1)
matriz = Replace(matriz,parcial,"")
Loop
LimpaHTML = matriz
End Function
var = "<img='imagem.gif'>Imagem"
response.write LimpaHTML(var)
%> função retirada deste post