Gönderen: 08-Şubat-2007 Saat 13:14 | Kayıtlı IP

arkadaşlar veritbanına metin olarak girilmiş yazılar var ancak bunların arasında img resimlerde var bunları göstermek istemiyorum

<%Function stripHTML(strHTML)
'Strips the HTML tags from strHTML

  Dim objRegExp, strOutput
  Set objRegExp = New Regexp

  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "<(.|\n)+?>"

  'Replace all HTML tag matches with the empty string
  strOutput = objRegExp.Replace(strHTML, "")
 
  'Replace all < and > with &lt; and &gt;
  strOutput = Replace(strOutput, "<img src", "&lt;")
  strOutput = Replace(strOutput, ">", "&gt;")
 
  stripHTML = strOutput    'Return the value of strOutput

  Set objRegExp = Nothing
End Function

      Response.Write(stripHTML (myrs("yazıt")))
                      %>&nbsp;
                                         
                
        <%

bununla <> arası tagları engelliyor ama linklerde var linkleride kapatıyor yardım arkadaşlar nasıl replace edebilirim resimleri