---
title: "response.write med server.htmlencode"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/159737-response-write-med-server-htmlencode"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Trumpf"
published: "2007-04-29T09:29:02.000Z"
updated: "2007-04-29T10:20:00.000Z"
replies: 6
views: 481
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/159737-response-write-med-server-htmlencode"
---

# response.write med server.htmlencode

## #1 — Trumpf, 2007-04-29T09:29Z

Hej,
Skulle vilja ersätta en rad.

Denna har jag idag.

```
response.write "<b>Artikel:</b><br> " & rs("beskrivning") & "<br>"
```

Denna skulle jag vilja visa istället. Men hur ser det ut?

```
<%text = server.htmlencode(rs("beskrivning"))%><%=Replace(text,vbCrLf,"<br>")%>
```

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

## #2 — @nders, 2007-04-29T09:30Z

På vilket sätt funkar inte det du har skrivit?

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

## #3 — voigtann1, 2007-04-29T09:34Z

```
Dim Text
Text = Server.Htmlencode(rs("beskrivning"))
Text = Replace(text,vbCrLf,"<br>")
Response.Write "<b>Artikel:</b><br> " & Text & "<br>"
```

borde fungera.

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

## #4 — Trumpf, 2007-04-29T09:44Z

Jag skriver ut med response.write.
Och jag undrar hur raden ska se ut med alla fnutar osv.....jag får inte till det.

Usch vad snabba ni är på att svara:)

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

## #5 — Trumpf, 2007-04-29T09:46Z

Skriver ut så här:

```

<%
If session("id") = "" then
response.write "ej inloggad"
else
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db.mdb")

SQL = "select id, kategori, uniknr from artiklar where medlem = " & session("id") & " order by inlagtdatum desc"
set rs=server.createobject("adodb.recordset")

rs.Open SQL, connect

Do While not rs.eof 

response.write "<b>Artikel Nr:</b> " & rs("id") & "<br>"
response.write "<b>Artikel:</b><br> " & rs("beskrivning") & "<br>"

rs.MoveNext
loop 
rs.close
connect.close
end if
%>
```

Detta är endast en del. Alltså ej komplett.

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

## #6 — voigtann1, 2007-04-29T10:19Z

```
.....
<%
If session("id") = "" then
response.write "ej inloggad"
else
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db.mdb")

SQL = "select id, kategori, uniknr from artiklar where medlem = " & session("id") & " order by inlagtdatum desc"
set rs=server.createobject("adodb.recordset")

rs.Open SQL, connect

Do While not rs.eof 
Dim Text
Text = Server.Htmlencode(rs("beskrivning"))
Text = Replace(text,vbCrLf,"<br>")

response.write "<b>Artikel Nr:</b> " & rs("id") & "<br>"
Response.Write "<b>Artikel:</b><br> " & Text & "<br>"

rs.MoveNext
loop 
rs.close
connect.close
end if
%>
```

??? annars får du nog komma med en liten bättre förklaring ;)

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

## #7 — Trumpf, 2007-04-29T10:20Z

> **voigtann1 skrev:**
>
> ```
> Dim Text
> Text = Server.Htmlencode(rs("beskrivning"))
> Text = Replace(text,vbCrLf,"<br>")
> Response.Write "<b>Artikel:</b><br> " & Text & "<br>"
> ```
>
> borde fungera.

Detta fungerade

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/159737-response-write-med-server-htmlencode