Tuve que hacer esto cuando al extraer los mensajes nuevos de un foro para hacer un "boletín" me encontré con que varios de ellos traían su "musiquilla de fondo". Cuando se ponían a sonar todos al tiempo...
.
Con pequeñas modificaciones puede servir para quitar cualquier otra cosa.
Código:
Function QuitaRuidos(Mensaje)
Dim m1, m2, r1, r2
r1 = Instr(Mensaje, "<BGSOUND")
If r1 = 0 then
QuitaRuidos = Mensaje
else
m1 = Mid(Mensaje, 1, r1-1)
m2 = Mid(Mensaje, r1)
r2 = Instr(m2, ">")
m2 = Mid(m2, r2+1)
QuitaRuidos = m1 & m2
end if
End Function
Modo de empleo...
Código:
Response.Write(QuitaRuidos(MensajeRuidoso))
...o similar.