Avatar billede bimbo111 Nybegynder
03. juli 2005 - 20:25 Der er 10 kommentarer og
1 løsning

Asp script til at lave indsætte <br> ved linjeskift

Je ghar lavt et asp script som gemmer en indtastet nyhed i en database så den bliver vist på min forside.
Men selv om jeg indtaster linjeskift i min <textarea> bliver de ikke vist når de kommer ind på forsiden. Er der nogen der kan hjælpe mig med at lave en del som kan indsætte en <br> hver gang der er linjeskift i min <textarea> ?
Avatar billede steent Nybegynder
03. juli 2005 - 20:36 #1
Replace(TEKSTFRADATABSE, vbCrLf, "<br>")
Avatar billede bimbo111 Nybegynder
03. juli 2005 - 20:38 #2
Jeg kender replace, men skal den bruges før jeg gemmer i databasen eller når jeg skal loade fra min news side ?
Avatar billede busschou Praktikant
03. juli 2005 - 20:44 #3
Når du taster i dit textarea er det VbCrLf.
Så enten kan du gemme det i databasen og så udskifte det ved udtræk
Eller også kan du udskifte det, gemme det i db, og undlade at replace igen ved udtræk fra db
Det er vel en smags sag om man ønsker VbCrLf eller <br> i teksten i databasen
Det afhænger jo også af hvordan du viser det
For skal det vises i et textarea så er der ingen grund til replace, men skal det vises som tekst så er der god grund til det :o)
Avatar billede bimbo111 Nybegynder
03. juli 2005 - 20:44 #4
ok... har fattet det... den skal bare skrives inden jeg gemmer i databasen
Avatar billede musicchart.dk Nybegynder
03. juli 2005 - 20:49 #5
nemlig ;o)
Avatar billede bimbo111 Nybegynder
03. juli 2005 - 21:01 #6
hmm... det er meget godt bortset fra at det ikke virker... men det underlige er at jeg lige har gjordt det samme med abostrof (') hvor jeg replacede den til ´ og det virker ?... Min kode :

<%
dim day, month, year, titel, tekst

day =  Request.Form("day")
month = Request.Form("month")
year = Request.Form("year")
titel = Request.Form("titel")
tekst = Request.Form("tekstblok")

tekst=replace(tekst,"VbCrLf","</br>")
tekst=replace(tekst,"'","´")

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/news/news.mdb")
Conn.Open DSN

' SQL sætning opbygges
strSQL = "Insert into news (Titel,dato,Indhold) values('"&titel&"',#"&month&"-"&day&"-"&year&"#,'"&tekst&"')"

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Avatar billede musicchart.dk Nybegynder
03. juli 2005 - 21:19 #7
der skal ikke " rundt om:

tekst=replace(replace(tekst,VbCrLf,"</br>"),"'","´")
Avatar billede bimbo111 Nybegynder
03. juli 2005 - 21:21 #8
ok
Avatar billede musicchart.dk Nybegynder
03. juli 2005 - 21:24 #9
tsk... ikke engang et tak, her hjælper man selv om der ikke er point at hente.
Avatar billede bimbo111 Nybegynder
03. juli 2005 - 21:25 #10
arh pokkers...
jeg var faktisk overbevist om at jeg havde skrevet det...

- tak !!!
Avatar billede musicchart.dk Nybegynder
03. juli 2005 - 21:26 #11
Så lidt :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester