---
title: "radbrytning"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13849-radbrytning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "pellesvenne"
published: "2002-01-17T15:32:00.000Z"
updated: "2002-01-17T21:26:00.000Z"
replies: 9
views: 309
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/13849-radbrytning"
---

# radbrytning

## #1 — pellesvenne, 2002-01-17T15:32Z

Hejsan!! jag håller på med en gästbok!
när användaren skriver tex: 55555555555555555555555555555555555555555555555555555555555555555555555555555555 då flyttas cellerna!
går det och göra så att när man skriver in det där ska det automatiskt skapa en radbrytning dvs efter 50 tecken

så här ser min kod ut:

```
<%=recset(smiley("text"))%>
```

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

## #2 — mikul, 2002-01-17T16:55Z

kolla på mitt svar, som jag skrev på din fråga i palles forum.
(www.palleman.nu)

/ Mikul

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

## #3 — pellesvenne, 2002-01-17T17:09Z

tack mikul men funkar inte :(

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

## #4 — @nders, 2002-01-17T17:16Z

Välkommen till wF!

Se om denna tråd kan hjälpa dig:
 <http://cgi.webforum.nu/wf/Forum11/HTML/008268.html> 

Mvh,

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

## #5 — pellesvenne, 2002-01-17T17:42Z

varför kan man inte göra så här:

```
<%=Strang(smiley(recset("text")))%>
```

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

## #6 — pellesvenne, 2002-01-17T20:47Z

fattar inte riktigt

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

## #7 — LarsG, 2002-01-17T20:51Z

Vad händer när du skriver så där? Något felmeddelande?

Hur ser funktionerna Strang och Smiley ut?

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

## #8 — pellesvenne, 2002-01-17T20:59Z

```
text = lcase(text)

text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")

text =  replace(text,":-)"," <img src=""Bilder\glad.gif"">")

text = TRIM(text) 

Response.Write text
```

\[Redigerat av pellesvenne den 17 jan 2002\]

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

## #9 — pellesvenne, 2002-01-17T21:01Z

så här ser strang  ut:

```
Function Strang(ByVal OriginalString)
OriginalString = "" & OriginalString

intMaxLength = 66
arrString = Split(OriginalString, " ")

For intIndex = 0 To UBound(arrString)
If Len(arrString(intIndex)) > intMaxLength Then
intSIndex = 0
While intSIndex < (Len(arrString(intIndex)) / intMaxLength)
splittOrd = splittOrd & Mid(arrString(intIndex), (1 + intSIndex * intMaxLength), intMaxLength) & "<br>"
intSIndex = intSIndex + 1
Wend
arrString(intIndex) = splittOrd
End If

strNewString = strNewString & arrString(intIndex) & " "
Next

Strang = strNewString
End Function
```

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

## #10 — LarsG, 2002-01-17T21:26Z

Det här alltså koden för funktionen smiley?

```
text = lcase(text)
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")

text = replace(text,":-)"," <img src=""Bilder\glad.gif"">")

text = TRIM(text) 

Response.Write text
```

Du får nog skriva om den lite

```
function smiley(text)
text = lcase(text)
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")

text = replace(text,":-)"," <img src=""Bilder\glad.gif"">")

text = TRIM(text) 
smiley = text
end function
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13849-radbrytning