---
title: "Radbrytning som inte funkar!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11215-radbrytning-som-inte-funkar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Katarina"
published: "2001-08-20T21:32:00.000Z"
updated: "2001-08-21T08:23:00.000Z"
replies: 3
views: 266
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/11215-radbrytning-som-inte-funkar"
---

# Radbrytning som inte funkar!

## #1 — Katarina, 2001-08-20T21:32Z

Har skrivit så här när jag skall plockar upp från databasen. 
\<%
Dim Namn, Alder, Inlagg, Datum, Tid, Conn, SQL, Rs
Set Conn = Server.CreateObject("ADODB.Connection")
Datum = date()
Conn.Open ("alela")
SQL="SELECT Namn, Alder, Inlagg, Datum, Tid FROM Gastbok WHERE Datum \>#" & date() -200 &"# ORDER BY Datum DESC;"
Set Rs=Conn.Execute(SQL)
%\>
 
Sedan kommer tabellen som listar upp Rs från databasen. Här görs ingen radbrytning alls när jag testar detta.
\<TD BGCOLOR="white" VALIGN="\_top" COLSPAN=2\>\<FONT FACE="Verdana, Arial" SIZE=2 COLOR="black"\>
\<%=Replace(Rs("Inlagg"), vbCrLf, "\<br\>" & vbCrLf)%\>
\</FONT\>
 \<HR COLOR=""\>
 \</TD\>
 
Har också provat detta förslaget.Men då får jag inte fram någon text alls från databasen. 
 
\<TD BGCOLOR="white" VALIGN="\_top" COLSPAN=2\>\<FONT FACE="Verdana, Arial" SIZE=2 COLOR="black"\>
\<%=Replace(Inlagg, vbCrLf, "\<br\>")%\>\</FONT\>
 \<HR COLOR=""\>
 \</TD\>
 
Finns det inget bättre alternativ  eller vad gör jag för fel.
Tack på förhand.

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

## #2 — jorgen, 2001-08-20T22:32Z

Hej!  

```

Function Free(txt) 
txt = Replace(Trim(txt), vbCrLf, "<br>")
Free = txt 
End Function 

<%=Free(Rs("Inlagg"))%>
```

Borde funka ;)

mvh Jörgen

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

## #3 — Vide, 2001-08-21T06:40Z

```
Function Free(txt) 
txt = Replace(Trim(txt), vbCrLf, "<br>")
Free = txt 
End Function
```

Varför lägger du texten i ytterligare en variabel?

Effektivare såhär kanske:

```
Function Free(txt) 
Free = Replace(Trim(txt), vbCrLf, "<br>")
End Function
```

Ville bara påpeka... :)

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

## #4 — PatrikB, 2001-08-21T08:23Z

och så ett alternativ till:

```
Function Free(txt) 
If IsEmpty(txt) OR IsNull(txt) Then Exit Function
txt = Server.HTMLEncode(txt)
txt = Replace(Trim(txt), vbCrLf, "<br>")
Free = txt
End Function
```

Så kommer inga "fel" att uppstå om ett fält råkar vara tomt eller null + att man ej behöver oroa sig för att ngn ska skicka in en massa annan HTMLkod eller annan typ av kod, det kommer bara att bli "vanlig" text.

cya,
PatrikB

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11215-radbrytning-som-inte-funkar