---
title: "Var ska jag sätta in server.htmlEncode?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13059-var-ska-jag-sätta-in-server-htmlencode"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rinaldo"
published: "2001-12-06T13:48:00.000Z"
updated: "2001-12-07T14:26:00.000Z"
replies: 2
views: 153
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/13059-var-ska-jag-sätta-in-server-htmlencode"
---

# Var ska jag sätta in server.htmlEncode?

## #1 — Rinaldo, 2001-12-06T13:48Z

i detta för att det ska funka.

```
<%
Function URL(text)
dim strString

strString = server.HTMLencode(text)
 Set objRegExp = New RegExp
   objRegExp.Global = True
   objRegExp.Ignorecase = True
    objRegExp.Pattern = "(^&#0124;[^""])(http://&#0124;https://&#0124;ftp://&#0124;mailto:&#0124;file://&#0124;telnet://&#0124;gopher://)([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]&#0124;$)"
  strString = objRegExp.Replace(strString,"$1<a target=""" & LinkTarget & """ href=""$2$3"" class=""link"">$2$3</a>$4")
    objRegExp.Pattern = "(^&#0124;[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]&#0124;$)"
  strString = ObjRegExp.Replace(strString,"$1<a target=""" & LinkTarget & """ href=""http://$2"" class=""link"">$2</a>$3")
    objRegExp.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
  strString = ObjRegExp.Replace(strString,"$1<a href=""mailto:$2"">$2</a>")
      objRegExp.Pattern = "\[B\]"
  strString = ObjRegExp.Replace(strString,"<B>")
        objRegExp.Pattern = "\[/B\]"
  strString = ObjRegExp.Replace(strString,"</B>")
            objRegExp.Pattern = "\[I\]"
  strString = ObjRegExp.Replace(strString,"<I>")
          objRegExp.Pattern = "\[/I\]"
  strString = ObjRegExp.Replace(strString,"</I>")
        objRegExp.Pattern = "\[BIG\]"
  strString = ObjRegExp.Replace(strString,"<BIG>")
        objRegExp.Pattern = "\[/BIG\]"
  strString = ObjRegExp.Replace(strString,"</BIG>")
 URL=strString
end function

response.write " "&URL("http://www.spray.se [b]sasd[/b]<"a href=sadas.html">asdsad</a>")&" "
%>
```

NÄr man har fnuttarna runt länken som jag vill avkoda så funkar det inte. Var ska jag sätta sakerna så det funkar...?

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

## #2 — Rinaldo, 2001-12-07T14:01Z

Någon som vet vad som ska fixas för att HTML encode ska funka samt redbrytning??

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

## #3 — iceM2, 2001-12-07T14:26Z

Hade samma problem om jag nu förstår dig rätt dvs... Så här löste jag det:

Först kör du HTML encode på strängen, sedan kör du funktionen för att skapa en länk av den, därefter kör du funktionen för att sätta in BR...
Det fungerar perfekt för mig att göra på detta viset, dvs inga buggar uppstår.

Min lösning ser ut så här:
strKommentar = objRS("kommentar")
strKommentar = HTMLtecken(strKommentar)
strKommentar = URLify(strKommentar, "new_win")
strKommentar = BR(strKommentar)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13059-var-ska-jag-sätta-in-server-htmlencode