Hvordan får jeg et <TEXTAREA> til at acceptere <BR> ???

Prøv noget i denne stil:

response.write Replace(RS("TEXT"), vbCr, "<br>")

Er det ikke:
Response.Write Replace(RS("TEXT"), VbCrLf, "<br>") ????

Det tror jeg...

Men hvordan får puttet ind i DB'en at jeg har lavet <ENTER>-tegn i mit textarea ????

Ligesom dette textarea...det finder da også ud af at jeg har trykket ENTER..

<//morpheus\\>

det kommer der automatisk, når folk taster <enter>

Jeg benytter selv "vbCr" og ikke "vbCrLf"... men prøv..!

Den kommer med en fejlmeddelse:

ADODB.Fields fejl '800a0cc1'
ADO kunne ikke finde objektet i den samling, der svarer til den henvisning til navn eller ordenstal, som programmet anmodede om.

/d-net/users/fdf/docs/gb/gb.asp, linje 42


Linie 42:
response.write "<td width='100%'>" & font & Replace(Record("Besked"), "<br>", VbCr) & "</td></tr>"

....

<//morpheus\\>

Der er godt nok byttet om på det...

Men det giver samme resultat...

Feltet "Besked" eksisterer ikke i den DB som du referer til. Endvidere mener jeg at du skal bytte om på "<BR>" og "vbCr".

Den fatter stadig ikke mine linieskift i DataBasen...

Min linie ser nu sådan ud...
response.write "<td width='100%'>" & font & Replace(Record("Tekst"), "<br>", VbCrLf) & "</td></tr>"

???

<//morpheus\\>

Endvidere mener jeg at du skal bytte om på "<BR>" og "vbCr".

Tak for det...

Det hjalp, men også kun hvis jeg slettede de records der lå i DB'en..

<//morpheus\\>

Er det egentlig ikke smartere at udskift vbCr'erne når man sætter det ind i db'en istedet for at skulle udskifte dem hvergang man henter dem ud?

Villadsen>>>>

Hvad mener du ?

Vil du skrive dit forslag til noget kode ?

<//morpheus\\>

Hvis du fx. skal indsætte variablen "tekst" i en db, så kan du jo skrive:

tekst = replace(tekst,vbCR,"<br>")
sql = insert into bla bla bla
rs.execute(sql)

Så vil teksten i databasen lyde fx.
"Nu laver jeg en ny linie.<br>Nu har jeg lavet en ny linie"

På den måde skal man kun udskifte det en gang i stedet for hver gang man trækker det ud.

Men det tager jo næsten den samme tid ?!

Det er da kun 100-dele sec. vi snakker om....

Men ok...hvis det er værd at tage med...

<//morpheus\\>

Ja det er skam ikke fordi det går voldsomt hurtigere, men det er da smartere at der bliver ordnet en gang for alle. Som regel vil man jo alligevel skulle lave noget replace med "'erne osv.

villadsen...Replace...?

Hvad ?

Kan du ikke lige skrive noget kode og en forklaring ?

<//morpheus\\>

Nogen gange skriver folk fx " (anførselstegn) i deres tekstfelter, som jeg gør lige nu fx.

Hvis du bare sender det ind i en db og bagefter trækker det ud igen vha response.write får du en fejl, hvis ikke det ene " er erstattet af 2 "'er. Derfor er det smart lige at replace " med "" som fx. den her også gør:

tekst = replace(tekst,vbCR,"<br>")
tekst = replace(tekst,""","""")
sql = insert into bla bla bla
rs.execute(sql)

Igen: Så er teksten formateret som den skal og du kan blot trække den ud uden problemer efterfølgende.

Hey !

Den fucker i det...(Eller osse er det mig *hehe*)

Min kode:
---------
Response.Buffer = True

font        = "<font size = '2' face='Verdana'>"
strongfont  = "<font size = '4' face='Verdana'><Strong>"
linecolor  = "#FFFFFF"
medfont = "<font face='Verdana' size='2'><Strong>"

  Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("gbdb.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

  If Request.Servervariables("Content_Length") > 0 then
    tekst = replace(tekst,""","""")
    Sql = "Insert into t_gaestebog (Fra, Dato, email, http, Tekst) values('" & Request("Fra") & "','" & Now() & "','" & Request("email") & "','" & Request("webside") & "','"  & Request("Besked") & "')"
    Rs.Execute(Sql)
    Response.Write strongfont & "Tak for det...</font></Strong><br><br>"
  end if

----------

Hvad sker der...

<//morpheus\\>

tekst = replace(tekst,""","""")
virker kun hvis du har en variabel der hedder tekst.

Derfor laver du det sådan her:
Response.Buffer = True

font        = "<font size = '2' face='Verdana'>"
strongfont  = "<font size = '4' face='Verdana'><Strong>"
linecolor  = "#FFFFFF"
medfont = "<font face='Verdana' size='2'><Strong>"

  Set Rs = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("gbdb.mdb")
  Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

  If Request.Servervariables("Content_Length") > 0 then
    tekst = request("besked")
    tekst = replace(tekst,""","""")
    Sql = "Insert into t_gaestebog (Fra, Dato, email, http, Tekst) values('" & Request("Fra") & "','" & Now() & "','" & Request("email") & "','" & Request("webside") & "','"&tekst&"')"
    Rs.Execute(Sql)
    Response.Write strongfont & "Tak for det...</font></Strong><br><br>"
  end if

Det virker...ikke ! :o)

Får du en fejl? Hvad er det der ikke virker?

Det er en syntaksfejl...

Prøv lige at poste fejlen, så er det lettere at se hvad der går galt for dig.