---
title: "om text är innanför <code> så..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/85274-om-text-är-innanför-code-så"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Wickmark"
published: "2003-09-04T16:09:41.000Z"
updated: "2003-09-05T12:48:09.000Z"
replies: 1
views: 233
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/85274-om-text-är-innanför-code-så"
---

# om text är innanför <code> så...

## #1 — Wickmark, 2003-09-04T16:09Z

Kan man skriva om denna funktionen (skriven av Erik Juhlin), så att den tar bort alla \<br\> innanför \<code\> och \</code\> ?

```
Function BlockUnAllowedHTML(ByVal sStr)
	Dim vAllowedHTML, i, objRegExp
	vAllowedHTML = Array("b", "u","br","fieldset","legend","hr","strong","code","font")
	
	sStr = Server.HTMLEncode(sStr & "")
	
	Set objRegExp = New RegExp
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	
	For i = 0 To UBound(vAllowedHTML)
		objRegExp.Pattern = "&lt;(" & vAllowedHTML(i) & ")&gt;([\s\S]*?)&lt;/(" & vAllowedHTML(i) & ")&gt;"
		sStr = objRegExp.Replace(sStr, "<$1>$2</$3>")
		objRegExp.Pattern = "&lt;(" & vAllowedHTML(i) & ".*?)&gt;([\s\S]*?)&lt;/(" & vAllowedHTML(i) & ")&gt;"
		sStr = objRegExp.Replace(sStr, "<$1>$2</$3>")
		
	Next 'i
	
	Set objRegExp = Nothing
	
	BlockUnAllowedHTML = sStr
End Function
```

MVH
Wickmark

Permalänk: https://www.webforum.nu/p/85274

## #2 — Wickmark, 2003-09-05T12:48Z

Eftersom jag inte fick något svar, har jag specificerat mig och puttat upp tråden igen!

VG. läs tråden ovan!

MVH
WIckmark

Permalänk: https://www.webforum.nu/p/1148518

---

Tråden på webben: https://www.webforum.nu/amne/asp/85274-om-text-är-innanför-code-så