---
title: "Få <br> på lättaste sätt från db´n?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/81022-få-br-på-lättaste-sätt-från-db-n"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jlee"
published: "2003-07-01T17:03:29.000Z"
updated: "2003-07-01T20:31:08.000Z"
replies: 8
views: 256
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/81022-få-br-på-lättaste-sätt-från-db-n"
---

# Få <br> på lättaste sätt från db´n?

## #1 — jlee, 2003-07-01T17:03Z

Hur får jag lättast enter från en db?? 
Jag har spärrat html i sidan som visar db, annars hade det löst sig av sig själv.
Vet någon hur?

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

## #2 — voigtann1, 2003-07-01T17:05Z

```
Function br(mess)
objRegExp.Pattern = vbcrlf
mess = objRegExp.Replace(mess,"<br>"& vbCrLf)
	br = mess
End Function
```

Denna funktion ersätter alla enter slag till \<br\> taggar... använd den råa formen som finns i databasen och sen kör du funktionen där den behövs.

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

## #3 — jlee, 2003-07-01T17:19Z

Ok funkar säkert men kan du visa praktiskt hur jag gör i min kod:

 \<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage \< 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT \* FROM samla ORDER BY ID DESC"
strDSN = "DRIVER={Microsoft Access Driver (\*.mdb)};DBQ="&Server.MapPath("samla.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "\<p\>\<b\>Sida nr: " & intPage & " av " & intPageCount & "\</b\>\</p\>"
    Do While Not rs.EOF And intRecCount \> 0
      Response.Write "Namn:"
	  
	 	  
	    Response.Write Server.HTMLEncode (rs("Navn")) & "\<br\>Mail:   "		
		Response.Write Server.HTMLEncode (rs("Email")) & "\<br\>Datum:   "
		Response.Write Server.HTMLEncode (rs("Dato")) & "\<br\>\<p style='color:#ffffff'\>Mess:   "
		Response.Write Server.HTMLEncode (rs("Kommentar")) & "\</p\>\<hr noshade\> "
     intRecCount = intRecCount - 1
     rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write "\<p\>Gå til sida "
For intNum = 1 To intPageCount
    Response.Write "\<a href=samla.asp?page=" & intNum & "\>" & intNum & "\</a\> "
Next
Response.Write "\<center\>"
Response.Write "\<p\>"
If Clng(intPage) \> 1 Then
    Response.Write "\<a href=samla.asp?page=" & intPage - 1 & "\>&lt;&lt;\</a\>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) \< Clng(intPageCount) Then
    Response.Write "\<a href=samla.asp?page=" & intPage + 1 & "\>&gt;&gt;\</a\> "
Else
    Response.Write "&gt;&gt;"
End If
%\>

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

## #4 — voigtann1, 2003-07-01T17:21Z

vid raden skriver du:

```
Response.Write Server.HTMLEncode (br(rs("Kommentar")))& "</p><hr noshade> "
```

Om du har lagt in funktionen någonstans

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

## #5 — Peeer, 2003-07-01T17:37Z

Snarare

```
Response.Write br(Server.HTMLEncode(rs("Kommentar")))& "</p><hr noshade> "
```

Ligger br-funktionen innanför server.htmlencode skrivs \<br\>-taggarna ut istället.

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

## #6 — jlee, 2003-07-01T17:39Z

tack, ska testa!

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

## #7 — jlee, 2003-07-01T17:54Z

Får inte det till att funka-skriver så här:

 \<%
		  Function br(mess)
objRegExp.Pattern = vbcrlf
mess = objRegExp.Replace(mess,"\<br\>"& vbCrLf)
	br = mess
End Function
%\>

Sen anropar med:

Response.Write br(Server.HTMLEncode(rs("Kommentar")))& "\</p\>\<hr noshade\> "

Får felmeddelande: 

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'objRegExp'

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

## #8 — voigtann1, 2003-07-01T18:06Z

aha.. sorry :D 

```
<%
Function br(mess) 
mess = Replace(mess,vbcrlf ,"<br>"& vbCrLf) 
br = mess 
End Function %>
```

ska det nog vara :e

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

## #9 — jlee, 2003-07-01T20:31Z

Skitbra!! det funkar, tack så mycket!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/81022-få-br-på-lättaste-sätt-från-db-n