---
title: "Hur gör man för att undvika att forumet \"förstörs\"?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/60345-hur-gör-man-för-att-undvika-att-forumet-förstörs"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "koltrasten"
published: "2002-11-26T18:05:38.000Z"
updated: "2002-11-27T18:27:34.000Z"
replies: 8
views: 354
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/60345-hur-gör-man-för-att-undvika-att-forumet-förstörs"
---

# Hur gör man för att undvika att forumet "förstörs"?

## #1 — koltrasten, 2002-11-26T18:05Z

Hej!
Jag har ett forum. Man skriver inlägget i en textarea. Därefter läggs det in i en databas. Sedan hämtas den från databasen och läggs ut på en ASP-sida.
Problemet är att designen förstörs om man skriver något i stil med:
sdsd;sdsd;sdsd;sdsd;sdsd;sdsd;sdsd;sdsd;sdsd;sdsd;sdsd;sdsd;sdsd;sdsd;sdsd;sdsd;sdsd;sdsd;sdsd ***osv.***

Jag vill alltså ha radbrytningar. Hur gör man det?

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

## #2 — Eitraz, 2002-11-26T18:49Z

Här kommer en funktionen som det säkert finns nån fördefinerad funktion för i ASP.. som jag som vanligt inte kann ;)

```
Function form_text(txt,max_len)
	txt = vbCrLf & txt
	pos_first = 1
	pos_next = 1
	Do While pos_next > 0
		pos_first = InStr(pos_first,txt,vbCrLf)
		pos_next = InStr(pos_first+1,txt,vbCrLf)
		If pos_next-pos_first > max_len And pos_next > 0 Then
			tmp_txt = Mid(txt,pos_first,max_len)
			tmp_txt_rest = Mid(txt,pos_first+max_len,pos_next-pos_first-max_len)
			txt = Replace(txt,tmp_txt & tmp_txt_rest,tmp_txt & vbCrLf & tmp_txt_rest)
			pos_first = pos_first+max_len
		Else
			pos_first = pos_first + 1
		End If
	Loop
	form_text = txt
End Function
```

funkar alltså såhär t ex:
\<%= Replace(form_text(text,50),vbCrLf,"\<br\>")%\>

denna kapar ord rakt av.. sånt får du fixa själv ;)

den här funktionen lägger in ett vBCrLf i början av texten föresten.. så den kan starta sökandet nånstans ;)
Men det är ju bara o ta "Left" när man vill skriva ut texten sen om man inte vill ha det ;)

\-Eitraz

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

## #3 — koltrasten, 2002-11-27T12:25Z

Tack! :)

Jag återkommer och berättar om den fungerade!  §e

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

## #4 — doggelito, 2002-11-27T12:42Z

> **Eitraz skrev:**
>
> som det säkert finns nån fördefinerad funktion för i ASP

Nope! Det finns faktiskt inte, inte heller i vb-script, fast det borde finnas kan man ju kanske tycka! :)

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

## #5 — Eitraz, 2002-11-27T12:57Z

Hehe, vad dum jag var.. Jag gjorde ju sökningen efter "ny rad".. Det ska ju vara efter mellanslag.. Blir såhär istället då :)

```
Function form_text(txt,max_len)
	txt = vbCrLf & txt
	pos_first = 1
	pos_next = 1
	Do While pos_next > 0
		pos_first = InStr(pos_first,txt," ")
		pos_next = InStr(pos_first+1,txt," ")
		If pos_next-pos_first > max_len And pos_next > 0 Then
			tmp_txt = Mid(txt,pos_first,max_len)
			tmp_txt_rest = Mid(txt,pos_first+max_len,pos_next-pos_first-max_len)
			txt = Replace(txt,tmp_txt & tmp_txt_rest,tmp_txt & vbCrLf & tmp_txt_rest)
			pos_first = pos_first+max_len
		Else
			pos_first = pos_first + 1
		End If
	Loop
	form_text = txt
End Function
```

Ska nog funka bättre ;)

\-Eitraz

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

## #6 — Eitraz, 2002-11-27T14:33Z

Uppdaterade mitt felaktiga inlägg till en ny kod ;)

\-Eitraz

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

## #7 — Vext, 2002-11-27T16:20Z

eller gör så här!

om jag förstår dig rätt så behöver du bara lägga till  wrap="HARD" i din textarea kod....  så radbryts allt och hammnar inte på samma rad

ex.

```
<textarea name="namnet" class="text" cols="45" wrap="HARD" rows="5"></textarea>[
```

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

## #8 — koltrasten, 2002-11-27T16:37Z

:o 
Oj, tack så mycket!

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

## #9 — Eitraz, 2002-11-27T18:27Z

hehe, lite smidigare :)

\-Eitraz

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/60345-hur-gör-man-för-att-undvika-att-forumet-förstörs