Udskriv uden HTML

Brug denne funktion

Function RegReplace(inStr)
  Dim regEx
  Set regEx = New RegExp
  regEx.Global = True
  regEx.IgnoreCase = True
  regEx.Pattern = "<[^>]+>"
  inStr=regEx.Replace(inStr, "")
  RegReplace=inStr
End Function

//>Rune

Altså fx.

Brug denne funktion

Function RegReplace(inStr)
  Dim regEx
  Set regEx = New RegExp
  regEx.Global = True
  regEx.IgnoreCase = True
  regEx.Pattern = "<[^>]+>"
  inStr=regEx.Replace(inStr, "")
  RegReplace=inStr
End Function

Response.Write(RegReplace(rs("tekst")))

//>Rune

Du er en helt, tak

Anytime ;o)
Thx 4 Poinz

//>Rune