---
title: "HTMLencode"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/90975-htmlencode"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "DiDjo"
published: "2003-11-21T21:31:54.000Z"
updated: "2003-11-22T21:24:43.000Z"
replies: 6
views: 280
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/90975-htmlencode"
---

# HTMLencode

## #1 — DiDjo, 2003-11-21T21:31Z

Tja! varför får jag detta fel?

```
Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'server.HTMLEncode' 

/kommun/Andratext.Asp, line 3
```

Kod:

```
Function byt(strText) 
strText = Replace(server.HTMLEncode(strText),vbCrlf,"<br>")
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "([url]http://[/url](\w|\.|/|-|\?|=|&|;|~){1,}\w*)"
strText = objRegExp.Replace(strText,"<a href='$1' target='_blank'>$1</a>")
```

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

## #2 — Thompa__85, 2003-11-21T22:14Z

Vad finns på rad 3 i Andratext.asp?

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

## #3 — Jesper T, 2003-11-22T09:14Z

Jag antar att det är denna rad: 

```
strText = Replace(server.HTMLEncode(strText),vbCrlf,"<br>")
```

Men det är ju inget fel på den, och du har ju inte bifogat all kod, så det är lite svårt att säga tycker jag iaf.

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

## #4 — DiDjo, 2003-11-22T14:23Z

Trodde inte jag behövde all kod! Det är en include fil!

```
<% 
Function byt(strText) 
strText = Replace(server.HTMLEncode(strText),vbCrlf,"<br>")
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "([url]http://[/url](\w|\.|/|-|\?|=|&|;|~){1,}\w*)"
strText = objRegExp.Replace(strText,"<a href='$1' target='_blank'>$1</a>") 

strText = Replace(strText,"[r]","<font color=""red"">") 
strText = Replace(strText,"[/r]","</font>") 
strText = Replace(strText,"[b]","<font color=""blue"">") 
strText = Replace(strText,"[/b]","</font>") 
strText = Replace(strText,"[g]","<font color=""yellow"">")
strText = Replace(strText,"[/g]","</font>")
strText = Replace(strText,"[f]","<b>") 
strText = Replace(strText,"[/f]","</b>") 
strText = Replace(strText,"[c]","<center>") 
strText = Replace(strText,"[/c]","</center>")
strText = Replace(strText,"[h]","<right>")
strText = Replace(strText,"[h]","</right>") 
strText = Replace(strText,":D","<img src='bilder/smile/D.gif'>")
strText = Replace(strText,";)","<img src='bilder/smile/;).gif'>")
strText = Replace(strText,":)","<img src='bilder/smile/).gif'>")
strText = Replace(strText,":P","<img src='bilder/smile/p.gif'>")
strText = Replace(strText,":birp","<img src='bilder/smile/DD.gif'>")
strText = Replace(strText,"8)","<img src='bilder/smile/cool.gif'>")
strText = Replace(strText,"8P","<img src='bilder/smile/blah.gif'>")
strText = Replace(strText,"[D]","<img src='bilder/smile/devel.gif'>")
strText = Replace(strText,"(d)","<img src='bilder/smile/teufel041.gif'>")
strText = Replace(strText,"!D","<img src='bilder/smile/devilgrin.gif'>")
strText = Replace(strText,":?","<img src='bilder/smile/fragend001.gif'>")
strText = Replace(strText,"[h]","<img src='bilder/smile/huepfen015.gif'>")
strText = Replace(strText,"(i)","<img src='bilder/smile/idea.gif'>")
strText = Replace(strText,"(h)","<img src='bilder/smile/liebe009.gif'>")
strText = Replace(strText,"(m)","<img src='bilder/smile/musik001.gif'>")
strText = Replace(strText,":(","<img src='bilder/smile/sauer022.gif'>")
strText = Replace(strText,":=","<img src='bilder/smile/shame.gif'>")
strText = Replace(strText,":o","<img src='bilder/smile/redface.gif'>")
strText = Replace(strText,"(s)","<img src='bilder/smile/stud.gif'>")
strText = Replace(strText,":'(","<img src='bilder/smile/traurig001.gif'>")
strText = Replace(strText,"Lunarstorm","DiDjo")

byt = strText 
End Function
```

O där jag skriver ut de:

```
<%if rs1("ager") = "Villa" OR rs1("ager") = "Lägenhet" OR rs1("ager") = "Lyx Villa" then
if rs2("present") = True then
if rs1("kort") = "" then
response.write("Jag har inte skrivit något!")
else%>
<%=byt(rs1("kort"))%>
<%end if%>
<%else%>
  Jag äger ingen Presentation
  <%end if
  else%>
  Jag äger ingen Presentation
  <%end if%>
```

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

## #5 — DiDjo, 2003-11-22T15:58Z

Det blir det felet, när man inte skrivit nått!

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

## #6 — @nders, 2003-11-22T16:07Z

Betyder det att du försöker skicka in **null** i funktionen?

```
Function byt(strText)
strText = "" & strText
.......
.......
```

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

## #7 — DiDjo, 2003-11-22T21:24Z

tackar!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/90975-htmlencode