---
title: "Textformatering i gästbok?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/82692-textformatering-i-gästbok"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "k0ffe"
published: "2003-07-24T17:21:07.000Z"
updated: "2003-07-24T18:49:09.000Z"
replies: 14
views: 388
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/82692-textformatering-i-gästbok"
---

# Textformatering i gästbok?

## #1 — k0ffe, 2003-07-24T17:21Z

Vet någon vänlig själ hur jag ska fixa till textformateringen i t.ex en gästbok? D.v.s man ska kunna slå en retur, mellanslag m.m. Nu blir allt bara en stor gröt...

Sen undrar jag om man på något sätt kan skriva ut, vid inskriven nyhet, personen som skrev nyheten? Kommer inte på något bra sätt... 

Hoppas någon hängde med :)

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

## #2 — @nders, 2003-07-24T17:28Z

1\. För att få till en ersättning av radbrytning till \<br\> så det syns när du läser i webbläsaren, så använder du enklast funktionen Replace().

```
Response.write Replace(objRS("nyhetstext"), vbCrLf, "<br>")
```

Mellanslag kan du på motsvarande sätt ersätta med &amp;nbsp;.

2\. Hur lagrar du nyheterna i databasen? Vilka fält har du i tabellen? Det borde inte vara svårare än:

```
Response.write objRS("nyhetstext")
Response.Write "<br>Skrivet av " & objRS("forfattare")
```

Mvh

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

## #3 — k0ffe, 2003-07-24T17:41Z

Ok, tack.

Jag har alltså ett admin system. Där jag nu vill skriva ut användaren som var inloggad och skrev respektive nyhet.

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

## #4 — @nders, 2003-07-24T17:43Z

Då får du lagra författaren i nyhetstabellen också. Jag antar att du har en session som identifierar inloggad användare, så det är bara att lägga med sessionens värde i insert-satsen när du ska spara nyheten.

mvh

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

## #5 — k0ffe, 2003-07-24T17:57Z

Ok... ska kika på det.

Men hur ska jag få till det med \<br\> satsen i den här koden?

\<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'Exempel på hur man kan 'plocka ner' andra forumlärelement
rubrik = UploadRequest.Item("rubrik").Item("Value")
inlagg = UploadRequest.Item("inlagg").Item("Value")

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\\"))
value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.MapPath("upload/"&filename)) 

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

%\>

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

## #6 — @nders, 2003-07-24T17:59Z

> **k0ffe skrev:**
>
> Men hur ska jag få till det med \<br\> satsen i den här koden?

Jag förstår inte vad bifogad kod har med frågan att göra?\`:q

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

## #7 — k0ffe, 2003-07-24T18:02Z

Response.write Replace(objRS("nyhetstext"), vbCrLf, "\<br\>")

Hur får jag det att fungera tillsammans med den bifogade koden? Det blev lite rörigt... :)

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

## #8 — @nders, 2003-07-24T18:04Z

Jag vet inte, för jag vet inte var någonstans i den koden du skriver ut nyheten till besökaren? Det där ser ut att bara vara kod som hanterar uppladdning av filer, och ingen presentation av någonting?

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

## #9 — k0ffe, 2003-07-24T18:17Z

rubrik = UploadRequest.Item("rubrik").Item("Value")
inlagg = UploadRequest.Item("inlagg").Item("Value")

Borde väl motsvara:

inlagg = Replace(Request("inlagg"), vbCrLf, "\<br\>")
ip = Replace(Request("ip"), "'", "''")

Eller?

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

## #10 — @nders, 2003-07-24T18:26Z

Det där använder du väl när du sparar informationen? Gör alla ersättningar när du ska skriva ut informationen till besökaren.

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

## #11 — k0ffe, 2003-07-24T18:32Z

Niet, det måste vara den sidan det ska ligga på.

Får det här felmeddelandet:

Request object error 'ASP 0208 : 80004005' 

Cannot use generic Request collection 

/it6/koffedesign/vvk2/uploadkomponentlos/outputfile.asp, line 64 

Cannot use the generic Request collection after calling BinaryRead.

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

## #12 — Melea, 2003-07-24T18:42Z

k0ffe, han menar den sidan där du skriver ut dina nyheter / där du använder t.ex. \<%=RecSet("text")%\> ...

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

## #13 — k0ffe, 2003-07-24T18:45Z

Ok, så 

Response.write Replace(objRS("nyhetstext"), vbCrLf, "\<br\>")

ska ligga där nyheterna skrivs ut?

Får det inte att fungera...

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

## #14 — Melea, 2003-07-24T18:47Z

Men! Skriv ut hela dokumentet, kanske Nyheter.asp?

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

## #15 — k0ffe, 2003-07-24T18:49Z

Oj, sådär. Fixat :)

Kitos.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/82692-textformatering-i-gästbok