Avatar billede pixelboxdk Nybegynder
01. oktober 2003 - 21:24 Der er 12 kommentarer og
1 løsning

<br> Spørgsmål.. HURTIGT

Jeg er ved at lave en gæstebog :)
Jeg skal have gjort sådan at, når man skriver en besked med linjeskift..
Så laver den også linjeskiftet når man ser beskeden..
Men jeg kan ikke få det til at virke..
hvad er der i vejen med denne kode?

navn = Request.Form("navn")
navn = Replace(navn, "'", "")

email = Request.Form("email")
email = Replace(email, "'", "")

kommentar = Request.Form("kommentar")
kommentar = Replace(kommentar, vbCrLf, "<br>")
kommentar = Replace(kommentar, "'", "&acute;")
Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
strText = Replace(LCase(strText), "<br>", chr(10))
RemoveHTML = RegEx.Replace(strText, "")
End Function
kommentar = RemoveHTML(kommentar)
navn = RemoveHTML(navn)
email = RemoveHTML(email)


 
strSQL = "Insert into guestbook (navn, email, kommentar) values('" & navn & "', '" & email & "', '" & kommentar & "')" 


Hvoooorfor!?! :)
Avatar billede ellebaek Nybegynder
01. oktober 2003 - 21:27 #1
<br> = vbCrLf i asp...

strText = Replace(LCase(strText), vbCrlF, "<br>")
Avatar billede ellebaek Nybegynder
01. oktober 2003 - 21:28 #2
navn = Request.Form("navn")
navn = Replace(navn, "'", "")

email = Request.Form("email")
email = Replace(email, "'", "")

kommentar = Request.Form("kommentar")
kommentar = Replace(kommentar, vbCrLf, "<br>")
kommentar = Replace(kommentar, "'", "&acute;")
Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
strText = Replace(LCase(strText), vbCrLf, "<br>")
RemoveHTML = RegEx.Replace(strText, "")
End Function
kommentar = RemoveHTML(kommentar)
navn = RemoveHTML(navn)
email = RemoveHTML(email)


 
strSQL = "Insert into guestbook (navn, email, kommentar) values('" & navn & "', '" & email & "', '" & kommentar & "')" 


Altså sådan her...
Så ændres alle linieskift i et textarea til html-linieskifts...
Avatar billede ellebaek Nybegynder
01. oktober 2003 - 21:29 #3
og hvis du vil have det til chr(10) sætter du selvfølgelig bare den ind i stedet for "<br>" i din replace-sætning..
Avatar billede pixelboxdk Nybegynder
01. oktober 2003 - 21:39 #4
Nu har jeg sat det ind, i stedet for det andet.. men det virker sku stadig ikke..
Du kan se gæstebogen på : http://daniel.webzone.dk/guestbook/
hva pokker ka det være?! :)
Avatar billede erikjacobsen Ekspert
01. oktober 2003 - 21:42 #5
Du har tilsyneladende fjernet linieskift da du indsatte i databasen.
Avatar billede erikjacobsen Ekspert
01. oktober 2003 - 21:43 #6
Vrøvl. Du skal selvfølgelig:

kommentar = Request.Form("kommentar")
Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
strText = Replace(LCase(strText), vbCrLf, "<br>")
RemoveHTML = RegEx.Replace(strText, "")
End Function
kommentar = RemoveHTML(kommentar)
kommentar = Replace(kommentar, vbCrLf, "<br>")
kommentar = Replace(kommentar, "'", "&acute;")
navn = RemoveHTML(navn)
email = RemoveHTML(email)
Avatar billede erikjacobsen Ekspert
01. oktober 2003 - 21:45 #7
Eller du kan nøjes med

kommentar = Request.Form("kommentar")
Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
kommentar = RemoveHTML(kommentar)
kommentar = Replace(kommentar, vbCrLf, "<br>")
kommentar = Replace(kommentar, "'", "&acute;")
navn = RemoveHTML(navn)
email = RemoveHTML(email)
Avatar billede pixelboxdk Nybegynder
01. oktober 2003 - 21:46 #8
stadig intet linjeskift? :-/
Avatar billede erikjacobsen Ekspert
01. oktober 2003 - 21:47 #9
Det er nok den sidste der er korrekt ;) Jeg overså at du gjorde det 2 gange.
Avatar billede pixelboxdk Nybegynder
01. oktober 2003 - 21:49 #10
Aahhh.. så virker det sku! thx m8 :)
Avatar billede bugger Nybegynder
02. oktober 2003 - 10:08 #11
Hejsa
Hvis jeg lige må indskyde et lille spørgsmål...:
kommentar = Replace(kommentar, "'", "&acute;")
hvad er det den linie laver? Er det for at en ' kan komme med i databasen? For der plejer at lave :
kommentar = Replace(kommentar, "'", "''")
???
Det var bare hvis I havde tid.
Avatar billede carpediem Nybegynder
02. oktober 2003 - 10:38 #12
bugger. Du har helt ret. Men med din version bliver du nødt til at lave dine '' om til ' når du vil udskrive det igen. Det gør du ikke med ovenstående.
Avatar billede erikjacobsen Ekspert
02. oktober 2003 - 11:27 #13
Det er "rigtigst" at bruge
 
  kommentar = Replace(kommentar, "'", "''")

og man skal ikke lave det tilbage igen. Nummer to enkeltstrof bliver "spist" af databasen.
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