---
title: "Radbryt, hur gör jag??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/88998-radbryt-hur-gör-jag"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Discoduck"
published: "2003-10-20T15:02:39.000Z"
updated: "2003-10-21T07:10:03.000Z"
replies: 2
views: 214
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/88998-radbryt-hur-gör-jag"
---

# Radbryt, hur gör jag??

## #1 — Discoduck, 2003-10-20T15:02Z

Jag är inte så insatt i ASP men har ändå försökt mig på att pillra lite på ett script som jag hämtade på Duware.com... Jag får inte till några radbrytningar när jag hämtar från min databas access2000? Har läst flera inlägg här på forumet men jag fattar inte riktigt hur man ska göra... kanske är jättelätt för er som kan men det är det inte för mig! 
Jag har kommit så långt att jag tror att det är i någon av dessa kodrader det ska gå att lägga till att jag vill ha med radbrytningarna från databasen??

...Detta står högt upp i koden...

function DoTrimProperly(str, nNamedFormat, properly, pointed, points)
  dim strRet
  strRet = Server.HTMLEncode(str)
  strRet = replace(strRet, vbcrlf,"")
  strRet = replace(strRet, vbtab,"")
  If (LEN(strRet) \> nNamedFormat) Then
    strRet = LEFT(strRet, nNamedFormat)			
    If (properly = 1) Then					
      Dim TempArray								
      TempArray = split(strRet, " ")	
      Dim n
      strRet = ""
      for n = 0 to Ubound(TempArray) - 1
        strRet = strRet & " " & TempArray(n)
      next
    End If
    If (pointed = 1) Then
      strRet = strRet & points
    End If
  End If
  DoTrimProperly = strRet
End Function

...Detta står där jag hämtar ur databasen....

\<% =(DoTrimProperly((rsTypeListing.Fields.Item("PRO_DESCRIPTION").Value), 1000, 1, 1, " ..."))%\>

Har någon koll på detta? Har jag missat något väsentligt, typ i en helt annan fil? kanske i den där man lägger till i databasen??

Help me, helt enkelt!

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

## #2 — cyprys, 2003-10-20T15:14Z

```
function DoTrimProperly(str, nNamedFormat, properly, pointed, points)
dim strRet
strRet = Server.HTMLEncode(str)
[b]strRet = replace(strRet, vbcrlf,"<br>")[/b]
strRet = replace(strRet, vbtab,"")
If (LEN(strRet) > nNamedFormat) Then
strRet = LEFT(strRet, nNamedFormat)
If (properly = 1) Then
Dim TempArray
TempArray = split(strRet, " ")
Dim n
strRet = ""
for n = 0 to Ubound(TempArray) - 1
strRet = strRet & " " & TempArray(n)
next
End If
If (pointed = 1) Then
strRet = strRet & points
End If
End If
DoTrimProperly = strRet
End Function
```

Detta borde funka!

Välkommen till wF :bire

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

## #3 — Discoduck, 2003-10-21T07:10Z

Ha ha!!

Tack Cyprys, det funkade direkt, Kanon!!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/88998-radbryt-hur-gör-jag